version 1.2, 2011/12/25 20:41:53
|
version 1.3, 2024/02/12 03:46:17
|
Line 70 sub course_index {
|
Line 70 sub course_index {
|
%alreadyseen=(); |
%alreadyseen=(); |
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)) { |
foreach (sort(keys(%hash))) { |
foreach my $key (sort(keys(%hash))) { |
if ($c->aborted()) { last; } |
last if ($c->aborted()); |
if (($_=~/^src\_(.+)$/)) { |
if ($key =~ /^src\_(.+)$/) { |
if ($hash{'randomout_'.$1} & !$env{'request.role.adv'}) { |
my $rid = $1; |
|
if ($hash{'randomout_'.$rid} & !$env{'request.role.adv'}) { |
next; |
next; |
} |
} |
my $symb=&make_symb($1); |
my $symb=&make_symb($rid); |
my %newwords=&checkonthis($r,$1,$hash{$_},0,&Apache::lonnet::gettitle($symb), |
my %newwords=&checkonthis($r,$rid,$hash{$key},0,&Apache::lonnet::gettitle($symb), |
$symb); |
$symb); |
} |
} |
} |
} |
Line 136 sub checkonthis {
|
Line 137 sub checkonthis {
|
# Check also the dependencies of this one |
# Check also the dependencies of this one |
my $dependencies= |
my $dependencies= |
&Apache::lonnet::metadata($url,'dependencies'); |
&Apache::lonnet::metadata($url,'dependencies'); |
foreach (split(/\,/,$dependencies)) { |
foreach my $item (split(/\,/,$dependencies)) { |
if (($_=~/^\/res\//) && (!$alreadyseen{$id})) { |
if (($item =~ /^\/res\//) && (!$alreadyseen{$id})) { |
&checkonthis($r,$id,$_,$level+1,''); |
&checkonthis($r,$id,$item,$level+1,''); |
} |
} |
} |
} |
} |
} |