[LON-CAPA-cvs] cvs: loncom(version_2_9_X) /publisher lonretrieve.pm

[raeburn]

raeburn		Thu Aug 13 05:07:56 2009 EDT

  Modified files:              (Branch: version_2_9_X)
    /loncom/publisher	lonretrieve.pm 
  Log:
  - Reverse parts of 1.41 not included in 2.9.X (breadcrumbs, funclist).
  
  
Index: loncom/publisher/lonretrieve.pm
diff -u loncom/publisher/lonretrieve.pm:1.41 loncom/publisher/lonretrieve.pm:1.41.2.1
--- loncom/publisher/lonretrieve.pm:1.41	Tue Aug 11 15:15:01 2009
+++ loncom/publisher/lonretrieve.pm	Thu Aug 13 05:07:55 2009
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.41 2009/08/11 15:15:01 bisitz Exp $
+# $Id: lonretrieve.pm,v 1.41.2.1 2009/08/13 05:07:55 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -204,20 +204,9 @@
 	$r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');
     }
 
-    my $dir =  &Apache::loncommon::authorspace()
-              .&File::Basename::dirname($fn)
-              .'/';
-    $r->print(&Apache::lonhtmlcommon::start_funclist()
-             .&Apache::lonhtmlcommon::add_item_funclist(
-                  '<a href="/priv/'.$uname.$fn.'">'
-                 .&mt('Back to Resource')
-                 .'</a>')
-             .&Apache::lonhtmlcommon::add_item_funclist(
-                  '<a href="'.$dir.'">'
-                 .&mt('Back to Directory')
-                 .'</a>')
-             .&Apache::lonhtmlcommon::end_funclist()
-    );
+   $r->print('<p><a href="/priv/'.$uname.$fn.'">'
+            .&mt('Back to [_1]','<span class="LC_filename">'.$fn.'</span>')
+            .'</a></p>'); 
 }
 
 # ---------------------------------- Interface for presenting specified version
@@ -334,23 +323,7 @@
   &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;
 
-    # Breadcrumbs
-    &Apache::lonhtmlcommon::clear_breadcrumbs();
-    &Apache::lonhtmlcommon::add_breadcrumb({
-        'text'  => 'Construction Space',
-        'href'  => &Apache::loncommon::authorspace(),
-    });
-    &Apache::lonhtmlcommon::add_breadcrumb({
-        'text'  => 'Retrieve previous version',
-        'href'  => '',
-    });
-
-  $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')
-           .&Apache::lonhtmlcommon::breadcrumbs()
-           .&Apache::loncommon::head_subbox(
-                &Apache::loncommon::CSTR_pageheader()) # FIXME crumbs broken?
-    );
-
+  $r->print(&Apache::loncommon::start_page('Retrieve Published Resources'));
   $r->print('<p>'
            .&mt('Retrieve previous versions of [_1]'
                    ,'<span class="LC_filename">'.$fn.'</span>')