version 1.25, 2003/02/10 23:19:45
|
version 1.26, 2003/02/10 23:26:15
|
Line 764 sub NewFile1 {
|
Line 764 sub NewFile1 {
|
if ($ENV{'form.action'} =~ /new(.+)file/) { |
if ($ENV{'form.action'} =~ /new(.+)file/) { |
my $extension=$1; |
my $extension=$1; |
if ($newfilename !~ /\Q.$extension\E$/) { |
if ($newfilename !~ /\Q.$extension\E$/) { |
|
if ($newfilename =~ m|^[^\.]*\.([^\.]+)$|) { |
|
#already has an extension strip it and add in expected one |
|
$newfilename =~ s|.([^\.]+)$||; |
|
} |
$newfilename.=".$extension"; |
$newfilename.=".$extension"; |
} |
} |
} |
} |