|
version 1.28, 2003/03/08 01:41:53
|
version 1.29, 2003/03/10 18:34:14
|
|
Line 494 sub Rename1 {
|
Line 494 sub Rename1 {
|
| if(-e $conspace) { |
if(-e $conspace) { |
| if($ENV{'form.newfilename'}) { |
if($ENV{'form.newfilename'}) { |
| my $newfilename = $ENV{'form.newfilename'}; |
my $newfilename = $ENV{'form.newfilename'}; |
| if ($newfilename =~ m|^[^\.]+$|) { |
if ($newfilename =~ m|/[^\.]+$|) { |
| #no extension add on orignal extension |
#no extension add on orignal extension |
| if ($filename =~ m|/[^\.]*\.([^\.]+)$|) { |
if ($filename =~ m|/[^\.]*\.([^\.]+)$|) { |
| $newfilename.='.'.$1; |
$newfilename.='.'.$1; |
![[BACK]](/icons/back.gif){kind=icon}
Return to loncfile.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher