loncom/interface/lonsearchcat.pm - diff

Return to lonsearchcat.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.80, 2001/03/27 02:51:15	version 1.82, 2001/03/27 13:25:41
Line 683 sub output_results {	Line 683 sub output_results {
$customshow=~s/[^\w\s]//g;	$customshow=~s/[^\w\s]//g;
my @fields=map {"<font color=\"#008000\">$_:</font>"}	my @fields=map {"<font color=\"#008000\">$_:</font>"}
split(/\s+/,$customshow);	split(/\s+/,$customshow);
$extrashow="<ul><li>".join("</li><li>",@fields)."</li></ul>\n";	if ($customshow) {
	$extrashow="<ul><li>".join("</li><li>",@fields)."</li></ul>\n";
	}
}	}
my $customdata='';	my $customdata='';
foreach my $result (@results) {	foreach my $result (@results) {
$result=~/(\&custom.*)$/; # grab all custom metadata	if ($result=~/^(custom\=.*)$/) { # grab all custom metadata
$customdata=$1;	$customdata.=$result;
$result=~s/\&custom.*$//; # remove custom metadata	}
}	}
foreach my $result (@results) {	foreach my $result (@results) {
	next if $result=~/^custom\=/;
	chomp $result;
my @fields=map	my @fields=map
{&Apache::lonnet::unescape($_)}	{&Apache::lonnet::unescape($_)}
(split(/\,/,$result));	(split(/\,/,$result));