Changeset 2574 for Search-Query-Dialect-KSx/trunk/lib/Search/Query/Dialect/KSx.pm

Timestamp:

03/03/10 22:41:54 (2 years ago)

Author:

karpet

Message:

fix op bugs

File:

• Search-Query-Dialect-KSx/trunk/lib/Search/Query/Dialect/KSx.pm (modified) (3 diffs)

Search-Query-Dialect-KSx/trunk/lib/Search/Query/Dialect/KSx.pm

@@ -174 +174 @@
     # normalize operator
     my $op = $clause->{op} || ":";
-    if ( $op eq '=' ) {
-        $op = ':';
-    }
+    $op =~ s/=/:/g;
     if ( $prefix eq '-' ) {
-        $op = '!' . $op;
-    }
-    if ( $value =~ m/\%/ ) {
-        $op = $prefix eq '-' ? '!~' : '~';
+        $op = '!' . $op unless $op =~ m/^!/;
+    }
+    if ( $value =~ m/\*/ ) {
+        $op =~ s/:/~/g;
     }
 
@@ -201 +199 @@
             $value .= $wildcard unless $value =~ m/\Q$wildcard/;
             push( @buf,
-                join( '', 'NOT ', $name, '=', qq/$quote$value$quote/ ) );
+                join( '', 'NOT ', $name, ':', qq/$quote$value$quote/ ) );
         }
 
@@ -207 +205 @@
         elsif ( $op eq '~' ) {
             $value .= $wildcard unless $value =~ m/\Q$wildcard/;
-            push( @buf, join( '', $name, '=', qq/$quote$value$quote/ ) );
+            push( @buf, join( '', $name, ':', qq/$quote$value$quote/ ) );
         }