loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.18, 2008/09/24 19:48:29	version 1.20, 2009/03/26 16:50:12
Line 1773 sub print_header {	Line 1773 sub print_header {
my $output = &Apache::loncommon::start_page($title,$javascript,	my $output = &Apache::loncommon::start_page($title,$javascript,
{'add_entries' => $loadentries});	{'add_entries' => $loadentries});
if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {	if (($uname ne $env{'user.name'}) \|\| ($udom ne $env{'user.domain'})) {
$output .= '<h3><span class="LC_error">'.&mt('Co-Author').': '.$uname.	$output .= '<p class="LC_warning">'
&mt(' at ').$udom.'</span></h3>';	.&mt('Co-Author [_1]:[_2]',$uname,$udom)
	.'</p>';
}	}
return $output;	return $output;
}	}
Line 1817 sub handler {	Line 1818 sub handler {
my ($fn,$filename);	my ($fn,$filename);
if ($env{'form.filename'}) {	if ($env{'form.filename'}) {
$fn=$env{'form.filename'};	$fn=$env{'form.filename'};
$fn=~s/^http\:\/\/[^\/]+\///;	$fn=~s/^https?\:\/\/[^\/]+\///;
$fn=~s/^\///;	$fn=~s/^\///;
$fn=~s{(~\|priv/)($LONCAPA::username_re)}{};	$fn=~s{(~\|priv/)($LONCAPA::username_re)}{};
$fn=~s/\/+/\//g;	$fn=~s/\/+/\//g;