loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.56, 2004/05/26 22:31:30	version 1.57, 2004/06/10 18:20:16
Line 291 sub checksuffix {	Line 291 sub checksuffix {
sub cleanDest {	sub cleanDest {
my ($request,$dest)=@_;	my ($request,$dest)=@_;
#remove bad characters	#remove bad characters
if ($dest=~/[\#\?&%]/) {	if ($dest=~/[\#\?&%\"]/) {
$request->print("<p><font color=\"red\">".&mt('Invalid characters in requested name have been removed.')."</font></p>");	$request->print("<p><font color=\"red\">".&mt('Invalid characters in requested name have been removed.')."</font></p>");
$dest=~s/[\#\?&%]//g;	$dest=~s/[\#\?&%]//g;
}	}