oops
parent
8b97cce53f
commit
10a45c8f43
|
@ -108,7 +108,7 @@ sub cgi ($) { #{{{
|
||||||
if (--$num == 0) {
|
if (--$num == 0) {
|
||||||
$params=~s/(^|\s+)(\d+)\s+"?\Q$choice\E"?(\s+|$)/$1.($2+1)." \"$choice\"".$3/se;
|
$params=~s/(^|\s+)(\d+)\s+"?\Q$choice\E"?(\s+|$)/$1.($2+1)." \"$choice\"".$3/se;
|
||||||
if (defined $oldchoice) {
|
if (defined $oldchoice) {
|
||||||
$params=~s/(^|\s+)(\d+)\s+"?\Q$oldchoice\E"?(\s+|$)/$1.($2-1 >=0 ? $2-1 : 0))." \"$oldchoice\"".$3/se;
|
$params=~s/(^|\s+)(\d+)\s+"?\Q$oldchoice\E"?(\s+|$)/$1.($2-1 >=0 ? $2-1 : 0)." \"$oldchoice\"".$3/se;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return "[[poll $params]]";
|
return "[[poll $params]]";
|
||||||
|
|
Loading…
Reference in New Issue