diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-23 18:34:14 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2008-07-23 18:34:14 +0000 |
| commit | 0003863c90637aa352d330895c4ff2d1a4a00cc8 (patch) | |
| tree | c611398775d1c0cc74578c3d5ab3399bc86a1494 /scripts | |
| parent | ecf56eca694d9606ffe56d3cab13a6614efc6aa4 (diff) | |
Adding error when payment selection does not have date for payment batch listed.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2220 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'scripts')
| -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}, |