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