$closedto = $form->datetonum($form->{closedto}, \%myconfig);
if ($form->{id}) {
+ my $show_storno = !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar");
+
print qq|
<input class=submit type=submit accesskey="u" name=action id=update_button value="|
. $locale->text('Update') . qq|">
<input class=submit type=submit name=action value="|
. $locale->text('E-mail') . qq|"> |;
print qq|<input class=submit type=submit name=action value="|
- . $locale->text('Storno') . qq|"> | unless ($form->{storno});
+ . $locale->text('Storno') . qq|"> | if ($show_storno);
print qq|<input class=submit type=submit name=action value="|
. $locale->text('Post Payment') . qq|">
|;
$form->error($locale->text('Cannot storno storno invoice!'));
}
- if (IC->has_storno(\%myconfig, $form)) {
+ if (IS->has_storno(\%myconfig, $form, "ar")) {
$form->error($locale->text("Invoice has already been storno'd!"));
}
+ map({ my $key = $_; delete($form->{$key})
+ unless (grep({ $key eq $_ } qw(path login password id type))); }
+ keys(%{ $form }));
+
+ &invoice_links;
+ &prepare_invoice;
+ relink_accounts();
+
$form->{storno_id} = $form->{id};
$form->{storno} = 1;
$form->{id} = "";