version 1.1, 2000/10/16 20:47:39
|
version 1.2, 2000/10/16 21:09:33
|
Line 43 sub handler {
|
Line 43 sub handler {
|
return OK; |
return OK; |
} |
} |
|
|
|
my %hash; |
my %bighash; |
my %bighash; |
|
my $requrl=$r->uri; |
|
|
# ----------------------------------------------------------------- Tie db file |
# ----------------------------------------------------------------- Tie db file |
if ($ENV{'request.course.fn'}) { |
if ($ENV{'request.course.fn'}) { |
my $envkey; |
my $last; |
|
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
|
&GDBM_READER,0640)) { |
|
$last=$hash{'last_direction'}; |
|
untie(%hash); |
|
} |
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)) { |
|
my $direction=''; |
|
my $prevmap=''; |
|
if ($last) { |
|
($prevmap,$direction)=(split(/\_\_\_/,$last)); |
|
} |
|
|
|
# ===== Stuff goes here |
foreach $envkey (keys %ENV) { |
foreach $envkey (keys %ENV) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
if ($envkey=~/^form\.(\d+)\.(\d+)$/) { |
my $mapid=$1; |
my $mapid=$1; |