SF.net SVN: ledger-smb:[2220] trunk/scripts/payment.pl

[..hidden..]

Revision: 2220
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2220&view=rev
Author:   einhverfr
Date:     2008-07-23 18:34:14 +0000 (Wed, 23 Jul 2008)

Log Message:
-----------
Adding error when payment selection does not have date for payment batch listed.

Modified Paths:
--------------
    trunk/scripts/payment.pl

Modified: trunk/scripts/payment.pl
===================================================================
--- trunk/scripts/payment.pl	2008-07-22 23:27:50 UTC (rev 2219)
+++ trunk/scripts/payment.pl	2008-07-23 18:34:14 UTC (rev 2220)
@@ -74,6 +74,9 @@
     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},


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.