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