![[BACK]](/icons/back.gif){kind=icon}
Return to lonretrieve.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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/; |