--- loncom/interface/lonsearchcat.pm	2001/03/22 14:03:55	1.70
+++ loncom/interface/lonsearchcat.pm	2001/03/22 14:16:21	1.73
@@ -793,7 +793,8 @@ sub build_custommetadata_query {
     $q->prepare($logic_statement);
     my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'};
     # quick fix to change literal into xml tag-matching
-    $matchexp=~s/\(\?\:([^\)]*)\\\=([^\)]*)\)/\(\?\:\<$1\>\[\^\\\<\]\*$2\[\^\\\<\]\*\<\/$1\>)/g;
+    my $oldmatchexp=$matchexp;
+    $matchexp=~s/\(\?[\:\=]([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g;
     return $matchexp;
 }