version 1.73, 2006/10/20 22:03:24
|
version 1.74, 2006/10/20 22:04:16
|
Line 240 sub first_accessible_resource {
|
Line 240 sub first_accessible_resource {
|
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
if (tie(%hash,'GDBM_File',$env{'request.course.fn'}.'.db', |
&GDBM_READER(),0640)) { |
&GDBM_READER(),0640)) { |
$furl=$hash{'first_url'}; |
$furl=$hash{'first_url'}; |
if (!&Apache::lonnet::allowed('bre',$furl)) { |
my %args; |
|
my ($url,$args) = split(/\?/,$furl); |
|
foreach my $pair (split(/\&/,$args)) { |
|
my ($name,$value) = split(/=/,$pair); |
|
$args{&unescape($name)} = &unescape($value); |
|
} |
|
if (!&Apache::lonnet::allowed('bre',$url,$args{'symb'})) { |
# Wow, we cannot see this ... move forward to the next one that we can see |
# Wow, we cannot see this ... move forward to the next one that we can see |
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward'); |
my ($newrid,$newmap)=&move($hash{'first_rid'},$hash{'first_mapurl'},'forward'); |
# Build the new URL |
# Build the new URL |