version 1.76, 2002/04/09 04:46:33
|
version 1.77, 2002/04/11 16:02:32
|
Line 472 sub handler {
|
Line 472 sub handler {
|
# some times multiple problemmodes are submitted, need to select |
# some times multiple problemmodes are submitted, need to select |
# the last one |
# the last one |
if ( defined($ENV{'form.problemmode'}) && |
if ( defined($ENV{'form.problemmode'}) && |
defined(@{ $ENV{'form.problemmode'} })) { |
ref($ENV{'form.problemmode'}) ) { |
my $mode=$ENV{'form.problemmode'}->[-1]; |
my $mode=$ENV{'form.problemmode'}->[-1]; |
undef $ENV{'form.problemmode'}; |
undef $ENV{'form.problemmode'}; |
$ENV{'form.problemmode'}=$mode; |
$ENV{'form.problemmode'}=$mode; |