![[BACK]](/icons/back.gif){kind=icon}
Return to testbankimport.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / publisher|
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>'; |