Ajout : multiple= parameter.
authorJulien Moutinho <julm+ikiwiki+poll@autogeree.net>
Sat, 7 Jun 2014 20:27:43 +0000 (22:27 +0200)
committerJulien Moutinho <julm+ikiwiki+poll@autogeree.net>
Sat, 7 Jun 2014 20:27:43 +0000 (22:27 +0200)
poll.pm

diff --git a/poll.pm b/poll.pm
index 142d5ea..87c2867 100644 (file)
--- a/poll.pm
+++ b/poll.pm
@@ -64,8 +64,8 @@ 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");
+                                       debug("user=$user");
+                                       debug("userpage_best=$userpage_best");
                                        add_link($params{page}, $userpage_best);
                                 }
                         }
@@ -266,7 +266,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;
                                 }
                         }