dépôts
/
ikiwiki
/
poll.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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");
}
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.
# 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{
(?<escape>\\?)
\[\[\Q$prefix\E
- (?:
\s+
id="(?<id>[^"]*)")?
- (?<
space_begin
>\s+)
+ (?:
(?<id_space>\s+)
id="(?<id>[^"]*)")?
+ (?<
params_space
>\s+)
(?<params>$params_re)
(?<params>$params_re)
- (?<
space_end
>\s*)
+ (?<
end_space
>\s*)
\]\]
}
{$id=$+{id};
$+{escape}
.'[['.$prefix
\]\]
}
{$id=$+{id};
$+{escape}
.'[['.$prefix
- .($+{id} eq ''?'':'id="'.$+{id}.'"')
- .$+{
space_begin
}
+ .($+{id} eq ''?'':
$+{id_space}.
'id="'.$+{id}.'"')
+ .$+{
params_space
}
.$edit->($+{escape}, $+{params})
.$edit->($+{escape}, $+{params})
- .$+{
space_end
}
+ .$+{
end_space
}
.']]'
}egsx;
.']]'
}egsx;