version 1.73, 2001/03/22 14:16:21
|
version 1.74, 2001/03/22 14:19:17
|
Line 795 sub build_custommetadata_query {
|
Line 795 sub build_custommetadata_query {
|
# quick fix to change literal into xml tag-matching |
# quick fix to change literal into xml tag-matching |
my $oldmatchexp=$matchexp; |
my $oldmatchexp=$matchexp; |
$matchexp=~s/\(\?[\:\=]([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g; |
$matchexp=~s/\(\?[\:\=]([^\)]*)\\\=([^\)]*)\)/\(\?\:\\\<$1\\\>\[\^\\\<\]\*$2\[\^\\\<\]\*\\\<\\\/$1\\\>)/g; |
return $matchexp; |
return $oldmatchexp; |
} |
} |
|
|
# - Recursively parse a reverse notation expression into a SQL query expression |
# - Recursively parse a reverse notation expression into a SQL query expression |