--- rat/client/parameter.html	2010/05/17 22:41:02	1.56.2.1
+++ rat/client/parameter.html	2011/11/21 13:39:40	1.59.2.1
@@ -5,7 +5,7 @@
 The LearningOnline Network with CAPA
 Parameter Input Window
 //
-// $Id: parameter.html,v 1.56.2.1 2010/05/17 22:41:02 raeburn Exp $
+// $Id: parameter.html,v 1.59.2.1 2011/11/21 13:39:40 raeburn Exp $
 //
 // Copyright Michigan State University Board of Trustees
 //
@@ -70,9 +70,12 @@ function selwrite(text) {
 }
 
 function choicestart() {
-  this.window.choices.document.clear();
-  choicewrite('<html><body>');
+  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">');
   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 {');
@@ -86,6 +89,7 @@ function choicestart() {
   choicewrite('-->');
   choicewrite('</style>');
   choicewrite('</head>');
+  choicewrite('<body>');
 }
 
 function choiceend() {
@@ -382,6 +386,9 @@ function draw() {
    if (ptype=='string') {
       choicewrite(' action="javascript:stringeval();"');
    }
+   if (ptype != 'int' && ptype != 'float' && ptype != 'string') {
+       choicewrite(' action=""');
+   }
    choicewrite('>');
    if (ptype=='tolerance') {
 // 0: pscat
@@ -636,6 +643,22 @@ function draw() {
 //                ' type="radio" '+callradiostringeval('form'));
 //         if (svalue=='form') { choicewrite(' checked="checked"'); }
 //         choicewrite('> Input Form</label><br />');
+           choicewrite('<label><input name="stringval" value="surveycred"'+
+                ' type="radio" '+callradiostringeval('surveycred'));
+           if (svalue=='surveycred') { choicewrite(' checked="checked"'); }
+           choicewrite('> Survey (credit for submission)</label><br />');
+           choicewrite('<label><input name="stringval" value="anonsurvey"'+
+                ' type="radio" '+callradiostringeval('anonsurvey'));
+           if (svalue=='anonsurvey') { choicewrite(' checked="checked"'); }
+           choicewrite('> Anonymous Survey</label><br />');
+           choicewrite('<label><input name="stringval" value="anonsurveycred"'+
+                ' type="radio" '+callradiostringeval('anonsurveycred'));
+           if (svalue=='anonsurveycred') { choicewrite(' checked="checked"'); }
+           choicewrite('> Anonymous Survey (credit for submission)</label><br />');
+           choicewrite('<label><input name="stringval" value="randomizetry"'+
+                ' type="radio" '+callradiostringeval('randomizetry'));
+           if (svalue=='randomizetry') { choicewrite(' checked="checked"'); }
+           choicewrite('> New Randomization Each N Tries (default N=1)</label><br />');
            choicewrite('<label><input name="stringval" value="library"'+
                ' type="radio" '+callradiostringeval('library'));
            if (svalue=='library') { choicewrite(' checked="checked"'); }
@@ -824,9 +847,12 @@ function init() {
      }
   }
 
-  this.window.selector.document.clear();
-  selwrite('<html><body>');
+  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">');
   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 {');
@@ -838,7 +864,8 @@ function init() {
   selwrite('-->');
   selwrite('</style>');
   selwrite('</head>');
-  selwrite('<form name="fsel"><b>'+pname+'</b><br />');
+  selwrite('<body>');
+  selwrite('<form name="fsel" action=""><b>'+pname+'</b><br />');
   selwrite('<select name="fcat" onchange="parent.catchange();">');
 
   if (ptype=='tolerance') {
