loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

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";
}	}
}	}