loncom/publisher/loncfile.pm - diff

Return to loncfile.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.83, 2007/04/26 21:17:16	version 1.84, 2007/07/10 23:34:54
Line 340 sub cleanDest {	Line 340 sub cleanDest {
$dest=~s\|.*/\|\|;	$dest=~s\|.*/\|\|;
}	}
}	}
	if ($dest =~ /\.(\d+)\.(\w+)$/){
	$request->print('<span class="LC_error">'
	.&mt('Bad filename [_1].<br /> <tt>(name).(number).(extension)</tt> not allowed. <br /> Removing the <tt>.number.</tt> from requested filename.',$dest)
	.'</span>');
	$dest =~ s/\.(\d+)(\.\w+)$/$2/;
	}
if ($foundbad) {	if ($foundbad) {
$request->print("<p><span class=\"LC_error\">".&mt('Invalid characters in requested name have been removed.')."</span></p>");	$request->print("<p><span class=\"LC_error\">".&mt('Invalid characters in requested name have been removed.')."</span></p>");
}	}