--- loncom/interface/lonsearchcat.pm 2001/03/27 02:48:02 1.79 +++ loncom/interface/lonsearchcat.pm 2001/03/27 13:25:41 1.82 @@ -683,15 +683,19 @@ sub output_results { $customshow=~s/[^\w\s]//g; my @fields=map {"$_:"} split(/\s+/,$customshow); - $extrashow="\n"; + if ($customshow) { + $extrashow="\n"; + } } my $customdata=''; foreach my $result (@results) { - $result=~/(\&custom.*)$/; # grab all custom metadata - $custom=$1; - $result=~s/\&custom.*$//; # remove custom metadata + if ($result=~/^(custom\=.*)$/) { # grab all custom metadata + $customdata.=$result; + } } foreach my $result (@results) { + next if $result=~/^custom\=/; + chomp $result; my @fields=map {&Apache::lonnet::unescape($_)} (split(/\,/,$result)); @@ -776,7 +780,7 @@ SCRIPT

Search Catalog

-$custom +$customdata $closebutton