error if nothing selected

master
Joey Hess 2008-07-21 22:11:24 -04:00
parent 6e243a45e5
commit ed05e40566
1 changed files with 6 additions and 3 deletions

View File

@ -30,7 +30,6 @@ sub confirmation_form ($$) { #{{{
eval q{use CGI::FormBuilder};
error($@) if $@;
my @fields=qw(do page);
my $f = CGI::FormBuilder->new(
name => "remove",
header => 0,
@ -40,7 +39,7 @@ sub confirmation_form ($$) { #{{{
params => $q,
action => $config{cgiurl},
stylesheet => IkiWiki::baseurl()."style.css",
fields => \@fields,
fields => [qw{do page}],
);
$f->field(name => "do", type => "hidden", value => "remove", force => 1);
@ -98,7 +97,11 @@ sub formbuilder (@) { #{{{
removal_confirm($q, $session, 0, $form->field("page"));
}
elsif ($form->submitted eq "Remove Attachments") {
removal_confirm($q, $session, 1, $q->param("attachment_select"));
my @pages=$q->param("attachment_select");
if (! @pages) {
error(gettext("Please select the attachments to remove."));
}
removal_confirm($q, $session, 1, @pages);
}
}
} #}}}