--- rat/client/parameter.html	2011/11/21 13:39:40	1.59.2.1
+++ rat/client/parameter.html	2011/10/08 19:03:11	1.60
@@ -5,7 +5,7 @@
 The LearningOnline Network with CAPA
 Parameter Input Window
 //
-// $Id: parameter.html,v 1.59.2.1 2011/11/21 13:39:40 raeburn Exp $
+// $Id: parameter.html,v 1.60 2011/10/08 19:03:11 raeburn Exp $
 //
 // Copyright Michigan State University Board of Trustees
 //
@@ -70,12 +70,9 @@ function selwrite(text) {
 }
 
 function choicestart() {
-  this.window.choices.document.open();
-  choicewrite('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">');
-  choicewrite('<html xmlns="http://www.w3.org/1999/xhtml">');
+  this.window.choices.document.clear();
+  choicewrite('<html><body>');
   choicewrite('<head>');
-  choicewrite('<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />');
-  choicewrite('<title>LON-CAPA</title>');
   choicewrite('<style type="text/css">');
   choicewrite('<!--');
   choicewrite('body {');
@@ -89,7 +86,6 @@ function choicestart() {
   choicewrite('-->');
   choicewrite('</style>');
   choicewrite('</head>');
-  choicewrite('<body>');
 }
 
 function choiceend() {
@@ -386,9 +382,6 @@ function draw() {
    if (ptype=='string') {
       choicewrite(' action="javascript:stringeval();"');
    }
-   if (ptype != 'int' && ptype != 'float' && ptype != 'string') {
-       choicewrite(' action=""');
-   }
    choicewrite('>');
    if (ptype=='tolerance') {
 // 0: pscat
@@ -664,6 +657,22 @@ function draw() {
            if (svalue=='library') { choicewrite(' checked="checked"'); }
            choicewrite(' /> Library</label><br />');
         }
+        if (pscat=='lenient') {
+           tablestart('Lenient Grading (Partial Credit)');
+           choicewrite('<tr><td>Value:</td><td colspan="2">');
+           choicewrite('<label><input name="stringval" value="yes"'+
+                  ' type="radio" '+callradiostringeval('yes'));
+           if (svalue=='yes') { choicewrite(' checked="checked"'); }
+           choicewrite(' /> Yes</label><br />');
+           choicewrite('<label><input name="stringval" value="no"'+
+                  ' type="radio" '+callradiostringeval('no'));
+           if (svalue=='no') { choicewrite(' checked="checked"'); }
+           choicewrite(' /> No</label><br />');
+           choicewrite('<label><input name="stringval" value="default"'+
+               ' type="radio" '+callradiostringeval('default'));
+           if (svalue=='default') { choicewrite(' checked="checked"'); }
+           choicewrite(' /> Default (only bubblesheet grading is lenient)</label><br />');
+        }
         if (pscat=='ip') {
            tablestart('IP Number/Name');
 	   choicewrite('<tr><td>Value:</td><td colspan="2">');
@@ -847,12 +856,9 @@ function init() {
      }
   }
 
-  this.window.selector.document.open();
-  selwrite('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">');
-  selwrite('<html xmlns="http://www.w3.org/1999/xhtml">');
+  this.window.selector.document.clear();
+  selwrite('<html><body>');
   selwrite('<head>');
-  selwrite('<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />');
-  selwrite('<title>LON-CAPA</title>');
   selwrite('<style type="text/css">');
   selwrite('<!--');
   selwrite('body {');
@@ -864,8 +870,7 @@ function init() {
   selwrite('-->');
   selwrite('</style>');
   selwrite('</head>');
-  selwrite('<body>');
-  selwrite('<form name="fsel" action=""><b>'+pname+'</b><br />');
+  selwrite('<form name="fsel"><b>'+pname+'</b><br />');
   selwrite('<select name="fcat" onchange="parent.catchange();">');
 
   if (ptype=='tolerance') {
@@ -930,6 +935,7 @@ function init() {
      else if (pscat == 'problemstatus'){ sopt('problemstatus','Problem Status'); }
      else if (pscat == 'examtype')     { sopt('examtype','Exam Type'); }
      else if (pscat == 'questiontype') { sopt('questiontype','Question Type'); }
+     else if (pscat == 'lenient')      { sopt('lenient','Lenient Grading (Partial Credit)'); }
      else if (pscat == 'ip')           { sopt('ip','IP Number/Name'); }
      else if (pscat == 'fileext')      { sopt('fileext','File Extension'); }
      else if (pscat == 'useslots')     { sopt('useslots','Slots control access'); }
