loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.30, 2003/06/19 20:23:39	version 1.31, 2003/06/19 20:49:13
Line 778 sub NewFile1 {	Line 778 sub NewFile1 {
}	}
}	}

	#remove bad characters
	if ($newfilename=~/[\#\?&]/) {
	$request->print("<p><font color=\"red\">Invalid characters in requested filename have been removed.</font></p>");
	$newfilename=~s/[\#\?&]//g;
	}

my $fullpath = $dir.'/'.$newfilename;	my $fullpath = $dir.'/'.$newfilename;

&Debug($request, "Full path is : ".$fullpath);	&Debug($request, "Full path is : ".$fullpath);