loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.83, 2001/03/27 13:35:35	version 1.85, 2001/03/27 19:32:28
Line 583 sub advancedsearch {	Line 583 sub advancedsearch {
else {	else {
&output_results('Advanced',$r,$envhash,$query);	&output_results('Advanced',$r,$envhash,$query);
}	}
	$r->print(' '); # just in case.. hrrmm..
return OK;	return OK;
}	}

Line 704 sub output_results {	Line 705 sub output_results {
foreach my $result (@results) {	foreach my $result (@results) {
next if $result=~/^custom\=/;	next if $result=~/^custom\=/;
chomp $result;	chomp $result;
	next unless $result;
my @fields=map	my @fields=map
{&Apache::lonnet::unescape($_)}	{&Apache::lonnet::unescape($_)}
(split(/\,/,$result));	(split(/\,/,$result));