loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.84, 2001/03/27 19:05:02	version 1.86, 2001/03/27 19:57:53
Line 580 sub advancedsearch {	Line 580 sub advancedsearch {
}	}
&output_results('Advanced',$r,$envhash,$customquery,$reply);	&output_results('Advanced',$r,$envhash,$customquery,$reply);
}	}
else {	elsif ($customquery) {
&output_results('Advanced',$r,$envhash,$query);	my $reply='';
	$reply=&Apache::lonnet::metadata_query('',
	$customquery,$customshow);
	&output_results('Advanced',$r,$envhash,$customquery,$reply);
}	}
$r->print(' ');	$r->print('system error'); # just in case.. hrrmm..
return OK;	return OK;
}	}

Line 705 sub output_results {	Line 708 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));