diff options
| author | Joey Hess <joey@gnu.kitenet.net> | 2009-10-18 13:56:35 -0400 |
|---|---|---|
| committer | Joey Hess <joey@gnu.kitenet.net> | 2009-10-18 13:56:35 -0400 |
| commit | 2d60ea7fa8c34f5904e5bc40d2d2c60fd938232d (patch) | |
| tree | 0e68dd89eed9d3dfb3165b4e29a4d9a993c2ab0f /IkiWiki/Plugin/edittemplate.pm | |
| parent | d1a88c892ea1786e3f8451d0ef9069be9358e332 (diff) | |
| download | ikiwiki-2d60ea7fa8c34f5904e5bc40d2d2c60fd938232d.tar ikiwiki-2d60ea7fa8c34f5904e5bc40d2d2c60fd938232d.tar.gz | |
edittemplate: Work around bug #551499 in CGI::FormBuilder.
Diffstat (limited to 'IkiWiki/Plugin/edittemplate.pm')
| -rw-r--r-- | IkiWiki/Plugin/edittemplate.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/IkiWiki/Plugin/edittemplate.pm b/IkiWiki/Plugin/edittemplate.pm index e8e7b1e04..a163b0d84 100644 --- a/IkiWiki/Plugin/edittemplate.pm +++ b/IkiWiki/Plugin/edittemplate.pm @@ -83,10 +83,13 @@ sub formbuilder (@) { foreach my $field ($form->field) { if ($field eq 'page') { @page_locs=$field->def_value; - push @page_locs, $field->options; + + # FormBuilder is on the bad crack. See #551499 + my @options=map { ref $_ ? @$_ : $_ } $field->options; + + push @page_locs, @options; } } - foreach my $p (@page_locs) { foreach my $registering_page (keys %pagestate) { if (exists $pagestate{$registering_page}{edittemplate}) { |