--- loncom/interface/lonparmset.pm	2002/09/07 18:25:42	1.68
+++ 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.68 2002/09/07 18:25:42 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>');
@@ -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 />'.