loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.224, 2005/06/17 18:11:42	version 1.225, 2005/06/17 18:29:45
Line 2590 ENDDEFHEAD	Line 2590 ENDDEFHEAD
if ($env{'form.storerules'}) {	if ($env{'form.storerules'}) {
my %newrules=();	my %newrules=();
my @delrules=();	my @delrules=();
foreach (keys %env) {	foreach my $key (keys(%env)) {
if ($_=~/^form\.(\w+)\_action$/) {	if ($key=~/^form\.(\w+)\_action$/) {
my $tempkey=$1;	my $tempkey=$1;
if ($env{$_}) {	if ($env{$key}) {
$newrules{$tempkey.'_action'}=$env{$_};	$newrules{$tempkey.'_action'}=$env{$key};
if (&isdateparm($defkeytype{$tempkey})) {	if (&isdateparm($defkeytype{$tempkey})) {
$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};	$newrules{$tempkey.'_hours'}=$env{'form.'.$tempkey.'_hours'};
$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};	$newrules{$tempkey.'_min'}=$env{'form.'.$tempkey.'_min'};
Line 2603 ENDDEFHEAD	Line 2603 ENDDEFHEAD
$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};	$newrules{$tempkey.'_value'}=$env{'form.'.$tempkey.'_value'};
}	}
} else {	} else {
push @delrules,$tempkey.'_action';	push(@delrules,$tempkey.'_action');
push @delrules,$tempkey.'_hours';	push(@delrules,$tempkey.'_hours');
push @delrules,$tempkey.'_min';	push(@delrules,$tempkey.'_min');
push @delrules,$tempkey.'_sec';	push(@delrules,$tempkey.'_sec');
push @delrules,$tempkey.'_value';	push(@delrules,$tempkey.'_value');
}	}
}	}
}	}