version 1.25, 2013/11/12 04:47:38
|
version 1.26, 2014/12/11 01:13:24
|
Line 87 sub handler {
|
Line 87 sub handler {
|
my $envkey; |
my $envkey; |
if (tie(%bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
foreach $envkey (keys %env) { |
foreach $envkey (keys(%env)) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
# ---------------------------------------------------- Update symb and redirect |
# ---------------------------------------------------- Update symb and redirect |
my $mapid=$1; |
my $mapid=$1; |