strict match AND/OR with word-boundries

This fixes problem with search queries like victORian

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1329 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/vhost/webpac2.cgi b/vhost/webpac2.cgi
index 7f122bb..5e4ac0e 100755 (executable)
--- a/vhost/webpac2.cgi
+++ b/vhost/webpac2.cgi
@@ -217,7 +217,7 @@ if ( my $search = param('search') ) {
        my @attrs = param('attr');
        my $op = param('attr_operator');
 
        my @attrs = param('attr');
        my $op = param('attr_operator');
 

-       if ( $search =~ m{(=|"|AND|OR)} ) {
+       if ( $search =~ m{(=|"|\bAND\b|\bOR\b)} ) {

                push @search, $search;
        } elsif ( @attrs ) {
 
                push @search, $search;
        } elsif ( @attrs ) {