--- loncom/interface/lonparmset.pm	2002/09/07 17:53:05	1.67
+++ loncom/interface/lonparmset.pm	2002/09/07 18:48:26	1.69
@@ -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.69 2002/09/07 18:48:26 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -804,12 +804,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 +1429,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 +1438,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 />'.