fix BW Q EW operator

[webpac2] / vhost / webpac2.cgi

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 664669e..72d4059 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -209,7 +209,13 @@ if ( my $search = param('search') ) {
                                $attr . '="' . $template . '"';
                                ;
                };
-               $v =~ s{(\s*)(\S+)}{rewrite($1,$2)}ge;
+               if ( $op =~ m{\s} ) {
+                       my $template = $op;
+                          $template =~ s{Q}{$v};
+                       $v = $attr . '="' . $template . '"';
+               } else {
+                       $v =~ s{(\s*)(\S+)}{rewrite($1,$2)}ge;
+               }
 
                push @search, $v;