From 080258fed4c8829e7a88e2c8062e5a7eef5a99d9 Mon Sep 17 00:00:00 2001 From: Julien Moutinho Date: Sat, 7 Jun 2014 22:27:43 +0200 Subject: [PATCH] Ajout : multiple= parameter. --- poll.pm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/poll.pm b/poll.pm index 142d5ea..87c2867 100644 --- 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; } } -- 2.20.1