--- loncom/interface/lonsearchcat.pm 2001/03/22 14:13:53 1.72 +++ loncom/interface/lonsearchcat.pm 2001/03/22 14:19:17 1.74 @@ -794,7 +794,7 @@ sub build_custommetadata_query { my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'}; # quick fix to change literal into xml tag-matching my $oldmatchexp=$matchexp; -# $matchexp=~s/\(\?\:([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g; + $matchexp=~s/\(\?[\:\=]([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g; return $oldmatchexp; }