--- loncom/interface/lonsearchcat.pm 2001/03/27 02:48:02 1.79
+++ loncom/interface/lonsearchcat.pm 2001/03/27 02:51:15 1.80
@@ -688,7 +688,7 @@ sub output_results {
my $customdata='';
foreach my $result (@results) {
$result=~/(\&custom.*)$/; # grab all custom metadata
- $custom=$1;
+ $customdata=$1;
$result=~s/\&custom.*$//; # remove custom metadata
}
foreach my $result (@results) {
@@ -776,7 +776,7 @@ SCRIPT