--- loncom/publisher/testbankimport.pm	2010/12/14 16:26:04	1.28
+++ 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.28 2010/12/14 16:26:04 www 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 '') {
@@ -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>';