--- loncom/interface/lonsearchcat.pm	2001/03/22 14:19:17	1.74
+++ loncom/interface/lonsearchcat.pm	2001/03/22 14:24:39	1.75
@@ -793,9 +793,10 @@ sub build_custommetadata_query {
     $q->prepare($logic_statement);
     my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'};
     # quick fix to change literal into xml tag-matching
+    # will eventually have to write a separate builder module
     my $oldmatchexp=$matchexp;
-    $matchexp=~s/\(\?[\:\=]([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g;
-    return $oldmatchexp;
+    $matchexp=~s/(\w+)\\\=(\w+)/\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>/g;
+    return $oldmatchexp . $matchexp;
 }
 
 # - Recursively parse a reverse notation expression into a SQL query expression