Return to testbankimport.pm CVS log | Up to [LON-CAPA] / loncom / publisher |
version 1.28, 2010/12/14 16:26:04 | version 1.29, 2011/01/31 17:49:13 |
---|---|
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>'; |