Call CGI->param_fetch instead of CGI->param in array context

[ikiwiki.git] / IkiWiki / Plugin / attachment.pm

diff --git a/IkiWiki/Plugin/attachment.pm b/IkiWiki/Plugin/attachment.pm
index fb8a6539eac53fd66c85e4c98c09bfb1dbf71bb7..9bac96fc6e0fe59363200b90bc49dd39eccd8dcf 100644 (file)
--- a/IkiWiki/Plugin/attachment.pm
+++ b/IkiWiki/Plugin/attachment.pm
@@ -144,7 +144,7 @@ sub formbuilder (@) {
        if ($form->submitted eq "Insert Links") {
                my $page=quotemeta(Encode::decode_utf8(scalar $q->param("page")));
                my $add="";
        if ($form->submitted eq "Insert Links") {
                my $page=quotemeta(Encode::decode_utf8(scalar $q->param("page")));
                my $add="";

-               foreach my $f ($q->param("attachment_select")) {
+               foreach my $f (@{$q->param_fetch("attachment_select")}) {

                        $f=Encode::decode_utf8($f);
                        $f=~s/^$page\///;
                        if (IkiWiki::isinlinableimage($f) &&
                        $f=Encode::decode_utf8($f);
                        $f=~s/^$page\///;
                        if (IkiWiki::isinlinableimage($f) &&