--- loncom/publisher/lonretrieve.pm	2009/08/11 15:15:01	1.41
+++ loncom/publisher/lonretrieve.pm	2011/10/23 01:27:34	1.43
@@ -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.43 2011/10/23 01:27:34 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -233,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/;
@@ -357,7 +357,7 @@ sub handler {
            .'</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.')')