version 1.29, 2002/08/18 21:45:41
|
version 1.30, 2002/09/07 02:55:38
|
Line 202 sub handler {
|
Line 202 sub handler {
|
} |
} |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^http\:\/\///; |
$currenturl=~s/^[^\/]+//; |
$currenturl=~s/^[^\/]+//; |
unless (($currenturl=~/^\/res\//) || |
unless ($currenturl=~/^\/(res|adm\/wrapper|public|adm\/coursedocs)\//) { |
($currenturl=~/^\/adm\/wrapper\//)) { |
|
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)) { |