--- loncom/interface/lonsearchcat.pm 2001/03/27 02:32:44 1.78
+++ loncom/interface/lonsearchcat.pm 2001/03/27 13:25:41 1.82
@@ -683,9 +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) {
+ 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));
@@ -770,6 +780,7 @@ SCRIPT
Search Catalog