X-Git-Url: http://git.cyclocoop.org/?p=ikiwiki%2Fpoll.git;a=blobdiff_plain;f=poll.pm;h=4a7b79b3f1565c381da74ed6d3dd791d37f3867a;hp=142d5eaf5e937cf8f9f865ed4a4935064ce80fcf;hb=HEAD;hpb=3ad13402ddf85b2727c2e15b2f51e714266c2d65 diff --git a/poll.pm b/poll.pm index 142d5ea..4a7b79b 100644 --- a/poll.pm +++ b/poll.pm @@ -64,8 +64,6 @@ sub scan (@) { my $userpage_best = bestlink($params{page}, $user); $userpage_best = (length $userpage_best > 0 ? $userpage_best : bestlink($userdir, $user)); $userpage_best = (length $userpage_best > 0 ? $userpage_best : ($user =~ m{/} ? '/' : $userdir).$user); - #debug("user=$user"); - #debug("userpage_best=$userpage_best"); add_link($params{page}, $userpage_best); } } @@ -266,7 +264,8 @@ sub sessioncgi ($$) { $params.=" 1 \"$choice\"" if length $choice; } - if (defined $oldchoice and not ($oldchoice eq $choice)) { + if (defined $oldchoice and not ($oldchoice eq $choice) + and not ($params=~/multiple=(\w+)/ & &IkiWiki::yesno($1))) { $params=~s/(^|\s+)(\d+)(="([^"]*)")?(\s+)"?\Q$oldchoice\E"?(\s+|$)/$1.$vote->('del', $2, $4)."$5\"$oldchoice\"".$6/es; } }