--- loncom/publisher/lonretrieve.pm 2010/12/14 16:26:04 1.42 +++ 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.42 2010/12/14 16:26:04 www 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/;