Correction : (?<id_space>) .

[ikiwiki/poll.git] / poll.pm

diff --git a/poll.pm b/poll.pm
index b79fd0e..3d50081 100644 (file)
--- a/poll.pm
+++ b/poll.pm
@@ -187,6 +187,7 @@ sub sessioncgi ($$) {
                        use Data::Dumper;
                        error("bad page name");
                 }
+               &IkiWiki::check_canedit($page, $cgi, $session);
                
                # Did they vote before? If so, let them change their vote,
                # and check for dups.
@@ -261,19 +262,19 @@ sub sessioncgi ($$) {
                 s{
                        (?<escape>\\?)
                        \[\[\Q$prefix\E
-                               (?:\s+id="(?<id>[^"]*)")?
-                               (?<space_begin>\s+)
+                               (?:(?<id_space>\s+)id="(?<id>[^"]*)")?
+                               (?<params_space>\s+)
                                (?<params>$params_re)
-                               (?<space_end>\s*)
+                               (?<end_space>\s*)
                        \]\]
                        }
                 {$id=$+{id};
                        $+{escape}
                        .'[['.$prefix
-                               .($+{id} eq ''?'':'id="'.$+{id}.'"')
-                               .$+{space_begin}
+                               .($+{id} eq ''?'':$+{id_space}.'id="'.$+{id}.'"')
+                               .$+{params_space}
                                .$edit->($+{escape}, $+{params})
-                               .$+{space_end}
+                               .$+{end_space}
                        .']]'
                 }egsx;