diff --git a/CHANGELOG b/CHANGELOG index b00dc8218..892dca041 100644 --- a/CHANGELOG +++ b/CHANGELOG @@ -10,6 +10,7 @@ ikiwiki (3.20180312) UNRELEASED; urgency=medium [ Joey Hess ] * aggregate: Fix aggregation of posts without a title. Thanks, Alexandre Oliva + * poll: Added postvote and posttrail options for better multi-page polls. -- Simon McVittie Wed, 16 May 2018 13:09:27 +0100 diff --git a/IkiWiki/Plugin/poll.pm b/IkiWiki/Plugin/poll.pm index eb0e6ef04..734fe487e 100644 --- a/IkiWiki/Plugin/poll.pm +++ b/IkiWiki/Plugin/poll.pm @@ -69,6 +69,12 @@ sub preprocess (@) { $ret.="\n"; $ret.="\n"; $ret.="\n"; + if (defined $params{postvote}) { + $ret.="\n"; + } + if (defined $params{posttrail}) { + $ret.="\n"; + } $ret.="\n"; } $ret.="

\n
\n"; @@ -112,13 +118,25 @@ sub sessioncgi ($$) { error("bad page name"); } + my $postvote=urlto($page); + if (defined $cgi->param('postvote') && length $cgi->param('postvote')) { + $postvote=urlto(bestlink($page, $cgi->param('postvote'))); + } + elsif (defined $cgi->param('posttrail') && length $cgi->param('posttrail')) { + my $trailname=bestlink($page, $cgi->param('posttrail')); + my $trailnext=$pagestate{$page}{trail}{item}{$trailname}[1]; + if (defined $trailnext) { + $postvote=urlto($trailnext); + } + } + # Did they vote before? If so, let them change their vote, # and check for dups. my $choice_param="poll_choice_${page}_$num"; my $oldchoice=$session->param($choice_param); if (defined $oldchoice && $oldchoice eq $choice) { # Same vote; no-op. - IkiWiki::redirect($cgi, urlto($page)); + IkiWiki::redirect($cgi, $postvote); exit; } @@ -149,7 +167,7 @@ sub sessioncgi ($$) { }; $content =~ s{(\\?)\[\[\Q$prefix\E\s+([^]]+)\s*\]\]}{$edit->($1, $2)}seg; - # Store their vote, update the page, and redirect to it. + # Store their vote, update the page, and redirect. writefile($pagesources{$page}, $config{srcdir}, $content); $session->param($choice_param, $choice); IkiWiki::cgi_savesession($session); @@ -174,8 +192,7 @@ sub sessioncgi ($$) { eval q{use CGI::Cookie}; error($@) if $@; my $cookie = CGI::Cookie->new(-name=> $session->name, -value=> $session->id); - print $cgi->redirect(-cookie => $cookie, - -url => urlto($page)); + print $cgi->redirect(-cookie => $cookie, -url => $postvote); exit; } } diff --git a/doc/ikiwiki/directive/poll.mdwn b/doc/ikiwiki/directive/poll.mdwn index 0b47a2167..7b9fdfdc5 100644 --- a/doc/ikiwiki/directive/poll.mdwn +++ b/doc/ikiwiki/directive/poll.mdwn @@ -23,5 +23,12 @@ Parameters: another choice to the poll. * `total` - Show total number of votes at bottom of poll. Default is "yes". * `percent` - Whether to display percents. Default is "yes". +* `postvote` - By default after voting the updated page containing the poll + is displayed. This parameter allows advancing onward to another page. + This is useful for multi-page polls. +* `posttrail` - Similar to postvote, but allows advancing to the next page + on a trail after a vote. The value of the parameter is the name of the + page that defines the trail to follow. The trail plugin must be + enabled for this to work. [[!meta robots="noindex, follow"]]