Return to lonretrieve.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.42, 2010/12/14 16:26:04 | version 1.43, 2011/10/23 01:27:34 |
---|---|
Line 233 sub phasetwo { | Line 233 sub phasetwo { |
my ($main,$suffix,$is_meta) = &get_file_info($fn); | my ($main,$suffix,$is_meta) = &get_file_info($fn); |
my $logfile; | my $logfile; |
my $ctarget='/home/'.$uname.'/public_html'.$fn; | my $ctarget=$r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.$fn; |
my $vfn=$fn; | my $vfn=$fn; |
if ($version ne 'new') { | if ($version ne 'new') { |
$vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/; | $vfn=~s/\.(\Q$suffix\E)$/\.$version\.$1/; |