loncom/publisher/testbankimport.pm - diff

Return to testbankimport.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.27, 2010/11/28 00:04:10	version 1.29, 2011/01/31 17:49:13
Line 1800 sub print_header {	Line 1800 sub print_header {
{'bread_crumbs' => $brcrum,	{'bread_crumbs' => $brcrum,
'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 .= '<p class="LC_warning">'	$output .= '<p class="LC_info">'
.&mt('Co-Author [_1]',$uname.':'.$udom)	.&mt('Co-Author [_1]',$uname.':'.$udom)
.'</p>';	.'</p>';
}	}
Line 1942 sub handler {	Line 1942 sub handler {
my ($result,$flag) = &Apache::lonupload::phasetwo($r,$fn,$uname,$udom,'testbank');	my ($result,$flag) = &Apache::lonupload::phasetwo($r,$fn,$uname,$udom,'testbank');
$r->print($result);	$r->print($result);
if ($flag eq 'ok') {	if ($flag eq 'ok') {
	my $current_page = 0;
my $js;	my $js;
&jscript_zero($webpath,\$js);	&jscript_zero($webpath,\$js);
$js = '<script type="text/javascript">'."\n$js\n".'</script>';	$js = '<script type="text/javascript">'."\n$js\n".'</script>';