SF.net SVN: ledger-smb:[6607] trunk/LedgerSMB/Scripts/vouchers.pm

[..hidden..]

Revision: 6607
          http://sourceforge.net/p/ledger-smb/code/6607
Author:   einhverfr
Date:     2014-01-23 10:19:08 +0000 (Thu, 23 Jan 2014)
Log Message:
-----------
adding batch handling for overpayment batches in that workflow, next to add to batch workflows

Modified Paths:
--------------
    trunk/LedgerSMB/Scripts/vouchers.pm

Modified: trunk/LedgerSMB/Scripts/vouchers.pm
===================================================================
--- trunk/LedgerSMB/Scripts/vouchers.pm	2014-01-23 09:01:03 UTC (rev 6606)
+++ trunk/LedgerSMB/Scripts/vouchers.pm	2014-01-23 10:19:08 UTC (rev 6607)
@@ -134,17 +134,25 @@
                     function => sub {
 				my ($request) = @_;
 				$request->{account_class} = 1;
-				LedgerSMB::Scripts::payment::get_search_criteria($request, $custom_batch_types);
+                                if ($request->{overpayment}){
+                                    LedgerSMB::Scripts::reports::list_overpayments;
+                                } else {
+				    LedgerSMB::Scripts::payment::get_search_criteria($request, $custom_batch_types);
+                                }
 				}},
         receipt_reversal => {
                       script => undef,
                     function => sub {
 				my ($request) = @_;
 				$request->{account_class} = 2;
-				LedgerSMB::Scripts::payment::get_search_criteria($request, $custom_batch_types);
+                                if ($request->{overpayment}){
+                                    LedgerSMB::Scripts::reports::list_overpayments;
+                                } else {
+			   	    LedgerSMB::Scripts::payment::get_search_criteria($request, $custom_batch_types);
+                                }
 				}},
      
-	
+                     }},
     };
 
     our $form = new Form;

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


------------------------------------------------------------------------------
CenturyLink Cloud: The Leader in Enterprise Cloud Services.
Learn Why More Businesses Are Choosing CenturyLink Cloud For
Critical Workloads, Development Environments & Everything In Between.
Get a Quote or Start a Free Trial Today. 
http://pubads.g.doubleclick.net/gampad/clk?id=119420431&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits