--- loncom/interface/lonsearchcat.pm 2001/03/27 20:33:40 1.87 +++ loncom/interface/lonsearchcat.pm 2001/03/27 21:18:55 1.88 @@ -696,7 +696,7 @@ sub output_results { $customshow=~s/[^\w\s]//g; my @fields=map {"$_:"} split(/\s+/,$customshow); - my @customfields=split(/\s+/,$customshow); + @customfields=split(/\s+/,$customshow); if ($customshow) { $extrashow="\n"; } @@ -730,9 +730,9 @@ sub output_results { foreach my $field (@customfields) { my $value=''; if ($customhash{$url}=~/\<${field}[^\>]*\>(.*?)\<\/${field}[^\>]*\>/s) { - my $value=$1; + $value=$1; } - $extrashow2=~s/\<\!\-\- $field \-\-\>/$value/g; + $extrashow2=~s/\<\!\-\- $field \-\-\>/ $value/g; } } $compiledresult.=<\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>/g; + $matchexp=~s/(\w+)\\\=([\w\\\+]+)/\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>/g; return $matchexp; }