--- 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