--- loncom/interface/lonsearchcat.pm	2001/03/27 12:49:18	1.81
+++ loncom/interface/lonsearchcat.pm	2001/03/27 13:25:41	1.82
@@ -689,11 +689,13 @@ sub output_results {
 	}
 	my $customdata='';
 	foreach my $result (@results) {
-	    $result=~/(\&custom.*)$/; # grab all custom metadata
-	    $customdata=$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));