diff options
Diffstat (limited to 'scripts/payment.pl')
| -rw-r--r-- | scripts/payment.pl | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/scripts/payment.pl b/scripts/payment.pl index 905c89c8..3c5b6671 100644 --- a/scripts/payment.pl +++ b/scripts/payment.pl @@ -74,6 +74,9 @@ sub payments { my ($request) = @_; my $payment = LedgerSMB::DBObject::Payment->new({'base' => $request}); $payment->get_metadata(); + if (!defined $payment->{batch_date}){ + $payment->error("No Batch Date!"); + } my $template = LedgerSMB::Template->new( user => $request->{_user}, locale => $request->{_locale}, |