--- loncom/publisher/lonretrieve.pm	2008/11/10 14:11:08	1.35
+++ loncom/publisher/lonretrieve.pm	2011/12/23 17:21:18	1.48
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to retrieve an old version of a file
 #
-# $Id: lonretrieve.pm,v 1.35 2008/11/10 14:11:08 jms Exp $
+# $Id: lonretrieve.pm,v 1.48 2011/12/23 17:21:18 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -108,20 +108,18 @@ use LONCAPA();
 # ------------------------------------ Interface for selecting previous version
 sub phaseone {
     my ($r,$fn,$uname,$udom)=@_;
-    my $docroot=$r->dir_config('lonDocRoot');
 
-    my $urldir='/res/'.$udom.'/'.$uname.$fn;
-    $urldir=~s/\/[^\/]+$/\//;
+    my $urldir = "/res/$udom/$uname".$fn;
+    my $resfn = $r->dir_config('lonDocRoot').$urldir;
 
-    my $resfn=$docroot.'/res/'.$udom.'/'.$uname.$fn;
-    my $resdir=$resfn;
-    $resdir=~s/\/[^\/]+$/\//;
+    $urldir =~ s{[^/]+$}{};
+    my $resdir = $r->dir_config('lonDocRoot').$urldir;
 
     my ($main,$suffix,$is_meta) = &get_file_info($fn);
     
     if (-e $resfn) {  
-	$r->print('<form action="/adm/retrieve" method="POST">'.
-		  '<input type="hidden" name="filename" value="/~'.$uname.$fn.'" />'.
+	$r->print('<form action="/adm/retrieve?inhibitmenu=yes" method="post">'.
+		  '<input type="hidden" name="filename" value="/priv/'.$udom.'/'.$uname.$fn.'" />'.
 		  '<input type="hidden" name="phase" value="two" />'.
 		  &Apache::loncommon::start_data_table().
 		  &Apache::loncommon::start_data_table_header_row().
@@ -152,21 +150,22 @@ sub phaseone {
 		my $rmtime=&Apache::lonnet::metadata($resdir.'/'.$filename,'lastrevisiondate');
 		$r->print(&Apache::loncommon::start_data_table_row().
 			  '<td><input type="radio" name="version" value="'.
-			  $version.'" /></td><td>'.&mt('Previously published version').' '.$version.'</td><td>'.
-			  localtime($rmtime).'</td>');
+			  $version.'" /></td><td>'.&mt('Previously published version').' '.$version.'</td>'.
+              '<td>'.&Apache::lonlocal::locallocaltime($rmtime).'</td>');
 		
 		if (!$is_meta) {
-		    $r->print('<td><a href="'.$urldir.$filename.'.meta" target=cat>'.
-			      &mt('Metadata Version').' '.$version.'</a></td>');
+		    $r->print('<td>'.
+                              &Apache::loncommon::modal_link($urldir.$filename.'.meta',
+			      &mt('Metadata Version [_1]',$version),550,450).'</td>');
 		}
 		if ($is_meta
 		    || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
-		    $r->print(
-			      '<td><a target="cat" href="/adm/diff?filename=/~'.
-			      $uname.$fn.
-			      '&amp;versiontwo=priv&amp;versionone='.$version.
-			      '">'.&mt('Diffs with Version').' '.$version.
-			      '</a></td>');
+		    $r->print('<td>'.
+                              &Apache::loncommon::modal_link(
+                               '/adm/diff?filename=/priv/'.$udom,'/'.$uname.$fn.
+			      '&amp;versiontwo=priv&amp;versionone='.$version,
+			       &mt('Diffs with Version [_1]',$version),550,450).
+			      '</td>');
 		}
 		$r->print(&Apache::loncommon::end_data_table_row());
 	    }
@@ -175,35 +174,38 @@ sub phaseone {
 	my $rmtime=&Apache::lonnet::metadata($resfn,'lastrevisiondate');
 	$r->print(&Apache::loncommon::start_data_table_row().
 		  '<td><input type="radio" name="version" value="new" /></td>'.
-		  '<td><b>'.&mt('Currently published version').'</b></td><td>'.localtime($rmtime).
-		  '</td>');
+		  '<td><b>'.&mt('Currently published version').'</b></td>'.
+          '<td>'.&Apache::lonlocal::locallocaltime($rmtime).'</td>'
+    );
 	if (!$is_meta) {
-	    $r->print('<td><a href="'.$urldir.$main.'.'.$suffix.'.meta" target=cat>'.
-		      &mt('Metadata current version').'</a></td>');           
+	    $r->print('<td>',
+                      &Apache::loncommon::modal_link($urldir.$main.'.'.$suffix.'.meta',
+		      &mt('Metadata current version'),550,450).'</td>');           
 	}
 	if ($is_meta 
 	    || &Apache::loncommon::fileembstyle($suffix) eq 'ssi') {
-	    $r->print(
-		      '<td><a target="cat" href="/adm/diff?filename=/~'.
-		      $uname.$fn.
-		      '&amp;versiontwo=priv'.
-		      '">'.&mt('Diffs with current Version').'</a></td>');
+	    $r->print('<td>'.
+                      &Apache::loncommon::modal_link(
+                       '/adm/diff?filename=/priv/'.
+		      $udom.'/'.$uname.$fn.
+		      '&amp;versiontwo=priv',
+		      &mt('Diffs with current Version'),550,450).
+                      '</td>');
 	}
 	$r->print(&Apache::loncommon::end_data_table_row().
 		  &Apache::loncommon::end_data_table().
 		  '<p>'.'<span class="LC_warning">'.
-		  &mt('Retrieval of an old version will overwrite the file currently in construction space').'</span></p>');
+		  &mt('Retrieval of an old version will overwrite the file currently in construction space.').'</span></p>');
 	if (!$is_meta) {
 	    $r->print('<p>'.'<span class="LC_warning">'.
-		      &mt('This will only retrieve the resource, if you want to retrieve the metadata you will need to do that separately.').
+		      &mt('This will only retrieve the resource. If you want to retrieve the metadata, you will need to do that separately.').
 		      '</span></p>');
 	}
-	$r->print('<input type="submit" value="'.&mt('Retrieve version').'" /></form>');
+	$r->print('<input type="submit" value="'.&mt('Retrieve selected Version').'" /></form>');
     } else {
-	$r->print('<h3>'.&mt('No previous versions published.').'</h3>');
+	$r->print('<p class="LC_warning">'.&mt('No previous versions published.').'</p>');
     }
-    $r->print('<p><a href="/priv/'.$uname.$fn.'">'.&mt('Back to').' '.$fn.
-	      '</a></p>'); 
+
 }
 
 # ---------------------------------- Interface for presenting specified version
@@ -219,37 +221,41 @@ 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/;
         }
 
-        my $csource=$r->dir_config('lonDocRoot').'/res/'.$udom.'/'.$uname.$vfn;
+        my $csource=$r->dir_config('lonDocRoot')."/res/$udom/$uname".$vfn;
 
 	my $logname = $ctarget;
 	if ($is_meta) { $logname =~ s/\.meta$//; }
 	$logname = $ctarget.'.log';
         unless ($logfile=Apache::File->new('>>'.$logname)) {
-	  $r->print(
-         '<font color=red>'.&mt('No write permission to user directory, FAIL').'</font>');
+          $r->print('<span class="LC_error">'
+                   .&mt('No write permission to user directory, FAIL')
+                   .'</span>');
         }
         print $logfile 
 "\n\n================= Retrieve ".localtime()." ================\n".
 "Version: $version\nSource: $csource\nTarget: $ctarget\n";
         $r->print('<p>'.&mt('Copying file').': ');
 	if (copy($csource,$ctarget)) {
-	    $r->print('ok<p>');
+	    $r->print('<span class="LC_success">'
+                     .&mt('ok')
+                     .'</span>');
             print $logfile "Copied sucessfully.\n\n";
+            $r->print(&Apache::lonhtmlcommon::scripttag('parent.location.reload();'));
         } else {
             my $error=$!;
-	    $r->print('fail, '.$error.'<p>');
+	    $r->print('<span class="LC_error">'
+                     .&mt('Copy failed: [_1]',$error)
+                     .'</span>');
             print $logfile "Copy failed: $error\n\n";
         }
-        $r->print('<font size=+2><a href="/priv/'.$uname.$fn.
-                  '">'.&mt('Back to').' '.$fn.'</a></font>'); 
     } else {
-       $r->print('<span class="LC_warning">'.&mt('Please pick a version to retrieve').'</span><p>');
+       $r->print('<p class="LC_info">'.&mt('Please pick a version to retrieve:').'</p>');
        &phaseone($r,$fn,$uname,$udom);
     }
 }
@@ -281,7 +287,7 @@ sub handler {
 
   if ($env{'form.filename'}) {
       $fn=$env{'form.filename'};
-      $fn=~s/^http\:\/\/[^\/]+//;
+      $fn =~ s{^https?\://[^/]+}{};
   } else {
      $r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.
          ' unspecified filename for retrieval', $r->filename); 
@@ -298,9 +304,8 @@ sub handler {
   my $uname;
   my $udom;
 
-  ($uname,$udom)=
-    &Apache::loncacc::constructaccess($fn,$r->dir_config('lonDefDomain'));
-  unless (($uname) && ($udom)) {
+  ($uname,$udom) = &Apache::loncacc::constructaccess($fn);
+  unless (($uname ne '') && ($udom ne '')) {
      $r->log_reason($uname.' at '.$udom.
          ' trying to publish file '.$env{'form.filename'}.
          ' ('.$fn.') - not authorized', 
@@ -308,20 +313,43 @@ sub handler {
      return HTTP_NOT_ACCEPTABLE;
   }
 
-  $fn=~s{/~($LONCAPA::username_re)}{};
-
   &Apache::loncommon::content_type($r,'text/html');
   $r->send_http_header;
 
-  $r->print(&Apache::loncommon::start_page('Retrieve Published Resources'));
-
-  
-  $r->print('<h1>'.&mt('Retrieve previous versions of').' <tt>'.$fn.'</tt></h1>');
+    # Breadcrumbs
+    &Apache::lonhtmlcommon::clear_breadcrumbs();
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'Construction Space',
+        'href'  => &Apache::loncommon::authorspace($fn),
+    });
+    &Apache::lonhtmlcommon::add_breadcrumb({
+        'text'  => 'Retrieve previous version',
+        'href'  => '',
+    });
+
+    my $londocroot = $r->dir_config('lonDocRoot');
+    my $trailfile = $fn;
+    $trailfile =~ s{^/(priv/)}{$londocroot/$1};
+
+  $r->print(&Apache::loncommon::start_page('Retrieve Published Resources')
+           .&Apache::lonhtmlcommon::breadcrumbs()
+           .&Apache::loncommon::head_subbox(
+                &Apache::loncommon::CSTR_pageheader($trailfile))
+    );
+
+  $fn=~s{/priv/$LONCAPA::domain_re/$LONCAPA::username_re}{};
+
+  $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('<h3><span class="LC_diff_coauthor">'.&mt('Co-Author').': '.$uname.
-		    &mt(' at ').$udom.
-               '</span></h3>');
+          $r->print('<p><span class="LC_info">'
+                   .&mt('Co-Author [_1]'
+                       ,&Apache::loncommon::plainname($uname,$udom)
+                       .' ('.$uname.':'.$udom.')')
+                   .'</span></p>');
   }