loncom/interface/lonsearchcourse.pm - diff

Return to lonsearchcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.7, 2021/11/30 15:55:37	version 1.8.2.1, 2024/07/04 17:30:17
Line 136 sub course_search {	Line 136 sub course_search {
foreach (sort(keys(%hash))) {	foreach (sort(keys(%hash))) {
if ($c->aborted()) { last; }	if ($c->aborted()) { last; }
if (($_=~/^src\_(.+)$/)) {	if (($_=~/^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);
&checkonthis($r,$1,$hash{$_},0,&Apache::lonnet::gettitle($symb),	&checkonthis($r,$rid,$hash{$_},0,&Apache::lonnet::gettitle($symb),
$fulltext,$symb,@allwords);	$fulltext,$symb,@allwords);
}	}
}	}
Line 261 sub checkonthis {	Line 262 sub checkonthis {
}	}
my $href=$url;	my $href=$url;
if ($hash{'encrypted_'.$id} && !$env{'request.role.adv'}) {	if ($hash{'encrypted_'.$id} && !$env{'request.role.adv'}) {
$href=&Apache::lonenc::encrypted($href)	$href=&Apache::lonenc::encrypted($href);
.'?symb='.&Apache::lonenc::encrypted($symb);	if ($href =~ /\.sequence$/) {
	$href .= '?navmap=1';
	} else {
	$href .= '?symb='.&Apache::lonenc::encrypted($symb);
	}
} else {	} else {
$href.='?symb='.&escape($symb);	if ($href =~ /\.sequence$/) {
	$href .= '?navmap=1';
	} else {
	$href .= '?symb='.&escape($symb);
	}
}	}
$r->print('<a href="'.$href.'" target="cat">'.($title?$title:$url).	$r->print('<a href="'.$href.'" target="cat">'.($title?$title:$url).
'</a><br />');	'</a><br />');