--- loncom/interface/lonsearchcat.pm 2001/03/27 02:32:44 1.78
+++ 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