--- loncom/publisher/testbankimport.pm	2010/11/28 00:04:10	1.27
+++ loncom/publisher/testbankimport.pm	2011/03/05 22:25:09	1.30
@@ -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.30 2011/03/05 22:25:09 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1330,7 +1330,11 @@ sub create_mcq {
     my $numfoils = scalar(@{$qstnref}) - 1; 
     my $datestamp = localtime;
     my $numansrs = scalar(@{$answerref});
-    my $output = '<problem>
+    my $output = '<problem>';
+    if ($qtype eq 'MC') {
+        $output .= "\n".'<parameter name="maxtries" type="int_pos" default="2" description="Maximum Number of Tries" />';
+    }
+    $output .= '
  <startouttext />';
     if ($res eq 'application/rtf' || $res eq 'text/html') {
         if ($header ne '') {
@@ -1800,7 +1804,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 +1946,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>';