loncom/interface/lonindexcourse.pm - diff

Return to lonindexcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

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,'');
}	}
}	}
}	}