--- loncom/interface/lonsearchcat.pm 2001/03/22 14:13:53 1.72 +++ loncom/interface/lonsearchcat.pm 2001/03/22 14:16:21 1.73 @@ -794,8 +794,8 @@ 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; - return $oldmatchexp; + $matchexp=~s/\(\?[\:\=]([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g; + return $matchexp; } # - Recursively parse a reverse notation expression into a SQL query expression