version 1.69, 2001/03/22 14:00:55
|
version 1.70, 2001/03/22 14:03:55
|
Line 793 sub build_custommetadata_query {
|
Line 793 sub build_custommetadata_query {
|
$q->prepare($logic_statement); |
$q->prepare($logic_statement); |
my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'}; |
my $matchexp=${$q}{'-parse'}{'-build'}{'matchstring'}; |
# quick fix to change literal into xml tag-matching |
# quick fix to change literal into xml tag-matching |
s/\(\?\:([^\)]*)\\\=([^\)]*)\)/\(\?\:\<$1\>\[\^\\\<\]\*$2\[\^\\\<\]\*\<\/$1\>)/g; |
$matchexp=~s/\(\?\:([^\)]*)\\\=([^\)]*)\)/\(\?\:\<$1\>\[\^\\\<\]\*$2\[\^\\\<\]\*\<\/$1\>)/g; |
return $matchexp; |
return $matchexp; |
} |
} |
|
|