--- loncom/interface/lonsearchcat.pm 2001/03/27 02:32:44 1.78 +++ loncom/interface/lonsearchcat.pm 2001/03/27 12:49:18 1.81 @@ -683,7 +683,15 @@ 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 + $customdata=$1; + $result=~s/\&custom.*$//; # remove custom metadata } foreach my $result (@results) { my @fields=map @@ -770,6 +778,7 @@ SCRIPT

Search Catalog

+$customdata $closebutton