--- loncom/interface/lonparmset.pm	2005/06/17 18:11:42	1.224
+++ loncom/interface/lonparmset.pm	2005/06/17 18:29:45	1.225
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.224 2005/06/17 18:11:42 www Exp $
+# $Id: lonparmset.pm,v 1.225 2005/06/17 18:29:45 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2590,11 +2590,11 @@ ENDDEFHEAD
     if ($env{'form.storerules'}) {
 	my %newrules=();
 	my @delrules=();
-	foreach (keys %env) {
-            if ($_=~/^form\.(\w+)\_action$/) {
+	foreach my $key (keys(%env)) {
+            if ($key=~/^form\.(\w+)\_action$/) {
 		my $tempkey=$1;
-                if ($env{$_}) {
-		    $newrules{$tempkey.'_action'}=$env{$_};
+                if ($env{$key}) {
+		    $newrules{$tempkey.'_action'}=$env{$key};
 		    if (&isdateparm($defkeytype{$tempkey})) {
 			$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
 			$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
@@ -2603,11 +2603,11 @@ ENDDEFHEAD
 			$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
 		    }
 		} else {
-		    push @delrules,$tempkey.'_action';
-		    push @delrules,$tempkey.'_hours';
-		    push @delrules,$tempkey.'_min';
-		    push @delrules,$tempkey.'_sec';
-		    push @delrules,$tempkey.'_value';
+		    push(@delrules,$tempkey.'_action');
+		    push(@delrules,$tempkey.'_hours');
+		    push(@delrules,$tempkey.'_min');
+		    push(@delrules,$tempkey.'_sec');
+		    push(@delrules,$tempkey.'_value');
 		}
 	    }
 	}