Correction : n’impose pas de / avant $config{userdir} .

diff --git a/poll.pm b/poll.pm
index 411f3bd..f9fc878 100644 (file)
--- a/poll.pm
+++ b/poll.pm
@@ -124,7 +124,7 @@ sub preprocess (@) {
                if (@{$choices{$choice}{users}} > 0) {
                        $votes .= " : ".join(', ', map {
                                        my $userpage = linkpage(($config{userdir}?$config{userdir}.'/':'').$_);
-                                       htmllink($params{page}, $params{destpage}, '/'.$userpage, linktext => pagetitle($_))
+                                       htmllink($params{page}, $params{destpage}, $userpage, linktext => pagetitle($_))
                                 } @{$choices{$choice}{users}});
                        $votes .= " + ".$choices{$choice}{unknown_votes}." "
                         . ($choices{$choice}{unknown_votes} > 1 ? gettext("unknowns") : gettext("unknown"))