--- loncom/interface/lonparmset.pm	2002/09/07 17:53:05	1.67
+++ loncom/interface/lonparmset.pm	2002/10/01 06:21:23	1.70
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.67 2002/09/07 17:53:05 www Exp $
+# $Id: lonparmset.pm,v 1.70 2002/10/01 06:21:23 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -449,8 +449,11 @@ sub print_row {
     }
     my $sessionval=&Apache::lonnet::EXT('resource.'.$$part{$which}.
                                         '.'.$$name{$which},$symbp{$rid});
-    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
-                                      '.'.$$name{$which}.'.type',$symbp{$rid});
+# this doesn't seem to work, and I don't think is correct
+#    my $sessionvaltype=&Apache::lonnet::EXT('resource.'.$$part{$which}.
+#                                      '.'.$$name{$which}.'.type',$symbp{$rid});
+# this seems to work
+    my $sessionvaltype=$typeoutpar[$result];
     $r->print('<td bgcolor=#999999 align="center"><font color=#FFFFFF>'.
                   &valout($sessionval,$sessionvaltype).'&nbsp;'.
                   '</font></td>');
@@ -804,12 +807,12 @@ sub assessparms {
 	if ($reply=~/^error\:(.*)/) {
 	    $message.="<font color=red>Write Error: $1</font>";
 	}
+# ---------------------------------------------------------------- Done storing
+    }
 # --------------------------------------------- Devalidate cache for this child
         &Apache::lonnet::devalidatecourseresdata(
                  $ENV{'course.'.$ENV{'request.course.id'}.'.num'},
                  $ENV{'course.'.$ENV{'request.course.id'}.'.domain'});
-# ---------------------------------------------------------------- Done storing
-    }
 # -------------------------------------------------------------- Get coursedata
     %courseopt = &Apache::lonnet::dump
         ('resourcedata',
@@ -1429,7 +1432,7 @@ sub crsenv {
 	}
 	foreach (sort keys %descriptions) {
             # onchange is javascript to automatically check the 'Set' button.
-            my $onchange = 'onchange="javascript:window.document.forms'.
+            my $onchange = 'onFocus="javascript:window.document.forms'.
                 '[\'envform\'].elements[\''.$_.'_setparmval\']'.
                 '.checked=true;"';
 	    $output.='<tr><td>'.$descriptions{$_}.'</td>'.
@@ -1438,7 +1441,7 @@ sub crsenv {
                 '<td><input type=checkbox name="'.$_.'_setparmval"></td>'.
                 '</tr>'."\n";
 	}
-        my $onchange = 'onchange="javascript:window.document.forms'.
+        my $onchange = 'onFocus="javascript:window.document.forms'.
             '[\'envform\'].elements[\'newp_setparmval\']'.
             '.checked=true;"';
 	$output.='<tr><td><i>Create New Environment Variable</i><br />'.