loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.10, 2006/04/10 22:30:31	version 1.11, 2006/12/06 22:22:39
Line 35 use HTML::Entities();	Line 35 use HTML::Entities();
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonupload;	use Apache::lonupload;
use File::Basename();	use File::Basename();
	use LONCAPA();

# ---------------------------------------------------------------- Display Control	# ---------------------------------------------------------------- Display Control
sub display_control {	sub display_control {
Line 1736 sub handler {	Line 1737 sub handler {
$fn=$env{'form.filename'};	$fn=$env{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+\///;	$fn=~s/^http\:\/\/[^\/]+\///;
$fn=~s/^\///;	$fn=~s/^\///;
$fn=~s/(\~\|priv\/)(\w+)//;	$fn=~s{(~\|priv/)($LONCAPA::username_re)}{};
$fn=~s/\/+/\//g;	$fn=~s/\/+/\//g;
} else {	} else {
$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.	$r->log_reason($env{'user.name'}.' at '.$env{'user.domain'}.