--- loncom/interface/lonsearchcat.pm 2001/03/26 21:24:12 1.77 +++ loncom/interface/lonsearchcat.pm 2001/03/27 02:48:02 1.79 @@ -685,6 +685,12 @@ sub output_results { split(/\s+/,$customshow); $extrashow="\n"; } + my $customdata=''; + foreach my $result (@results) { + $result=~/(\&custom.*)$/; # grab all custom metadata + $custom=$1; + $result=~s/\&custom.*$//; # remove custom metadata + } foreach my $result (@results) { my @fields=map {&Apache::lonnet::unescape($_)} @@ -770,6 +776,7 @@ SCRIPT

Search Catalog

+$custom $closebutton @@ -875,7 +882,9 @@ sub detailed_citation_view { MIME Type: $mimetag{$mime}
Language: $language{$lang}
Copyright/Distribution: $cprtag{$copyright}
+

$extrashow +

$shortabstract

END