--- loncom/publisher/lonretrieve.pm	2001/04/03 22:03:55	1.4
+++ loncom/publisher/lonretrieve.pm	2001/04/04 03:59:15	1.5
@@ -82,14 +82,29 @@ sub phasetwo {
         }
         my $logfile;
         my $ctarget='/home/'.$uname.'/public_html'.$fn;
+        my $vfn=$fn;
+        if ($version ne 'new') {
+	    $vfn=~s/\.(\w+)$/\.$version\.$1/;
+        }
+        my $csource=$r->dir_config('lonDocRoot').'/res/'.$udom.'/'.$uname.$vfn;
         unless ($logfile=Apache::File->new('>>'.$ctarget.'.log')) {
 	  $r->print(
          '<font color=red>No write permission to user directory, FAIL</font>');
         }
         print $logfile 
 "\n\n================= Retrieve ".localtime()." ================\n".
-"Version $version\n\n";
-
+"Version: $version\nSource: $csource\nTarget: $ctarget\n";
+        $r->print('<p>Copying file: ');
+        if (copy($csource,$ctarget)) {
+	    $r->print('ok<p>');
+            print $logfile "Copied sucessfully.\n\n";
+        } else {
+            my $error=$!;
+	    $r->print('fail, '.$error.'<p>');
+            print $logfile "Copy failed: $error\n\n";
+        }
+        $r->print('<font size=+2><a href="/priv/'.$uname.$fn.
+                  '">Back to '.$fn.'</a></font>'); 
     } else {
        $r->print(
    '<font size=+1 color=red>Please pick a version to retrieve</font><p>');