version 1.35, 2003/03/01 15:13:59
|
version 1.36, 2003/03/03 20:24:25
|
Line 198 sub handler {
|
Line 198 sub handler {
|
untie(%hash); |
untie(%hash); |
} |
} |
my $newloc; |
my $newloc; |
if ($last) { |
if (($last) && (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'.db', |
$newloc=&Apache::lonnet::clutter((split(/\_\_\_/,$last))[1]); |
&GDBM_READER(),0640))) { |
|
my ($murl,$mid,$fn)=split(/\_\_\_/,$last); |
|
$newloc=$hash{'src_'. |
|
$hash{'map_pc_'.&Apache::lonnet::clutter($murl)}. |
|
'.'.$mid}; |
|
untie %hash; |
} else { |
} else { |
$newloc='/adm/noidea.html'; |
$newloc='/adm/noidea.html'; |
} |
} |