version 1.7, 2002/11/06 22:51:51
|
version 1.8, 2003/01/14 18:47:50
|
Line 38 use Apache::lonnet;
|
Line 38 use Apache::lonnet;
|
use Apache::Constants qw(:common REDIRECT); |
use Apache::Constants qw(:common REDIRECT); |
use GDBM_File; |
use GDBM_File; |
|
|
|
my %bighash; |
|
|
|
sub cleanup { |
|
if (tied(%bighash)){ |
|
&Apache::lonnet::logthis('Cleanup ambiguous: bighash'); |
|
unless (untie(%bighash)) { |
|
&Apache::lonnet::logthis('Failed cleanup ambiguous: bighash'); |
|
} |
|
} |
|
} |
|
|
# ----------------------------------------------------------- Could not resolve |
# ----------------------------------------------------------- Could not resolve |
|
|
Line 63 sub handler {
|
Line 73 sub handler {
|
} |
} |
|
|
# ---------------------------------------------------------- Is this selecting? |
# ---------------------------------------------------------- Is this selecting? |
|
|
my %bighash; |
|
|
|
if ($ENV{'form.selecturl'}) { |
if ($ENV{'form.selecturl'}) { |
my $envkey; |
my $envkey; |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
if (tie(%bighash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |