projects
/
webpac2
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
50133d8
)
fix BW Q EW operator
author
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 26 May 2009 14:55:29 +0000
(14:55 +0000)
committer
Dobrica Pavlinusic
<dpavlin@rot13.org>
Tue, 26 May 2009 14:55:29 +0000
(14:55 +0000)
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1191
07558da8
-63fa-0310-ba24-
9fe276d99e06
vhost/webpac2.cgi
patch
|
blob
|
history
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;