version 1.34, 2003/01/14 18:47:50
|
version 1.35, 2003/03/01 15:13:59
|
Line 211 sub handler {
|
Line 211 sub handler {
|
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
unless ($currenturl=~/^\/(res|adm\/wrapper|public|adm\/coursedocs)\//) { |
# |
|
# Is the current URL on the map? If not, start with last known URL |
|
# |
|
unless (&Apache::lonnet::is_on_map($currenturl)) { |
my $last; |
my $last; |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
if (tie(%hash,'GDBM_File',$ENV{'request.course.fn'}.'_symb.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |