From 086edfc67a8fb9dc4bcf9203e1e7c837a5cba085 Mon Sep 17 00:00:00 2001
From: Dobrica Pavlinusic <dpavlin@rot13.org>
Date: Tue, 26 May 2009 14:55:29 +0000
Subject: [PATCH] fix BW Q EW operator

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1191 07558da8-63fa-0310-ba24-9fe276d99e06
---
 vhost/webpac2.cgi | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 664669e..72d4059 100755
--- 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;
 	
-- 
2.20.1