--- loncom/publisher/testbankimport.pm	2010/11/28 00:04:10	1.27
+++ loncom/publisher/testbankimport.pm	2011/01/31 17:49:13	1.29
@@ -1,5 +1,5 @@
 # Handler for parsing text upload problem descriptions into .problems
-# $Id: testbankimport.pm,v 1.27 2010/11/28 00:04:10 raeburn Exp $
+# $Id: testbankimport.pm,v 1.29 2011/01/31 17:49:13 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1800,7 +1800,7 @@ sub print_header {
                                              {'bread_crumbs' => $brcrum,
                                               'add_entries' => $loadentries});
     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)
                  .'</p>';
     }
@@ -1942,6 +1942,7 @@ sub handler {
         my ($result,$flag) = &Apache::lonupload::phasetwo($r,$fn,$uname,$udom,'testbank');
         $r->print($result);
         if ($flag eq 'ok') {
+            my $current_page = 0;
             my $js;
             &jscript_zero($webpath,\$js);
             $js = '<script type="text/javascript">'."\n$js\n".'</script>';