version 1.43, 2002/07/01 15:02:19
|
version 1.44, 2002/08/12 18:21:42
|
Line 162 sub handler {
|
Line 162 sub handler {
|
if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) { |
if (($ENV{'request.course.fn'}) && (!$ENV{'form.forceselect'})) { |
my $fn=$ENV{'request.course.fn'}; |
my $fn=$ENV{'request.course.fn'}; |
if (-e "$fn.db") { |
if (-e "$fn.db") { |
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER,0640)) { |
if (tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640)) { |
# ------------------------------------------------------------------- Hash tied |
# ------------------------------------------------------------------- Hash tied |
my $firstres=$hash{'map_start_'.$requrl}; |
my $firstres=$hash{'map_start_'.$requrl}; |
my $lastres=$hash{'map_finish_'.$requrl}; |
my $lastres=$hash{'map_finish_'.$requrl}; |