--- loncom/publisher/lonretrieve.pm	2009/08/13 05:07:55	1.41.2.1
+++ loncom/publisher/lonretrieve.pm	2011/10/24 22:10:21	1.44
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.41.2.1 2009/08/13 05:07:55 raeburn Exp $
+# $Id: lonretrieve.pm,v 1.44 2011/10/24 22:10:21 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -204,9 +204,20 @@ sub phaseone {
 	$r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');
     }
 
-   $r->print('<p><a href="/priv/'.$uname.$fn.'">'
-            .&mt('Back to [_1]','<span class="LC_filename">'.$fn.'</span>')
-            .'</a></p>'); 
+    my $dir =  &Apache::loncommon::authorspace()
+              .&File::Basename::dirname($fn)
+              .'/';
+    $r->print(&Apache::lonhtmlcommon::start_funclist()
+             .&Apache::lonhtmlcommon::add_item_funclist(
+                  '<a href="/priv/'.$udom.'/'.$uname.$fn.'">'
+                 .&mt('Back to Resource')
+                 .'</a>')
+             .&Apache::lonhtmlcommon::add_item_funclist(
+                  '<a href="'.$dir.'">'
+                 .&mt('Back to Directory')
+                 .'</a>')
+             .&Apache::lonhtmlcommon::end_funclist()
+    );
 }
 
 # ---------------------------------- Interface for presenting specified version
@@ -222,7 +233,7 @@ sub phasetwo {
 	my ($main,$suffix,$is_meta) = &get_file_info($fn);
 
         my $logfile;
-        my $ctarget='/home/'.$uname.'/public_html'.$fn;
+        my $ctarget=$r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.$fn;
         my $vfn=$fn;
         if ($version ne 'new') {
 	    $vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/;
@@ -255,7 +266,7 @@ sub phasetwo {
             print $logfile "Copy failed: $error\n\n";
         }
         $r->print('</p>'
-                 .'<p><a href="/priv/'.$uname.$fn.'">'
+                 .'<p><a href="/priv/'.$udom.'/'.$uname.$fn.'">'
                  .&mt('Back to Resource')
                  .'</a></p>');
     } else {
@@ -323,14 +334,30 @@ sub handler {
   &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;
 
-  $r->print(&Apache::loncommon::start_page('Retrieve Published Resources'));
+    # 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('<p>'
            .&mt('Retrieve previous versions of [_1]'
                    ,'<span class="LC_filename">'.$fn.'</span>')
            .'</p>');
   
   if (($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) {
-          $r->print('<p><span class="LC_warning">'
+          $r->print('<p><span class="LC_info">'
                    .&mt('Co-Author [_1]'
                        ,&Apache::loncommon::plainname($uname,$udom)
                        .' ('.$uname.':'.$udom.')')