SF.net SVN: ledger-smb:[5431] trunk

[..hidden..]

Revision: 5431
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5431&view=rev
Author:   einhverfr
Date:     2012-12-27 13:26:02 +0000 (Thu, 27 Dec 2012)
Log Message:
-----------
Fixing batch creation due to namespace change

Modified Paths:
--------------
    trunk/LedgerSMB/Scripts/vouchers.pm
    trunk/bin/aa.pl
    trunk/bin/gl.pl
    trunk/bin/ir.pl
    trunk/bin/is.pl

Added Paths:
-----------
    trunk/bin/bridge.pl

Modified: trunk/LedgerSMB/Scripts/vouchers.pm
===================================================================
--- trunk/LedgerSMB/Scripts/vouchers.pm	2012-12-27 13:14:27 UTC (rev 5430)
+++ trunk/LedgerSMB/Scripts/vouchers.pm	2012-12-27 13:26:02 UTC (rev 5431)
@@ -176,6 +176,8 @@
         # However, the code we are including is going to require it for now. 
         # -- CT
         { no strict; no warnings 'redefine'; do $script; }
+        lsmb_legacy::locale($locale);
+        lsmb_legacy::form($form);
     }
 
     $vouchers_dispatch->{$request->{batch_type}}{function}($request);

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2012-12-27 13:14:27 UTC (rev 5430)
+++ trunk/bin/aa.pl	2012-12-27 13:26:02 UTC (rev 5431)
@@ -47,6 +47,7 @@
 package lsmb_legacy;
 use LedgerSMB::Tax;
 
+require 'bin/bridge.pl'; # needed for voucher dispatches
 # any custom scripts for this one
 if ( -f "bin/custom/aa.pl" ) {
     eval { require "bin/custom/aa.pl"; };

Added: trunk/bin/bridge.pl
===================================================================
--- trunk/bin/bridge.pl	                        (rev 0)
+++ trunk/bin/bridge.pl	2012-12-27 13:26:02 UTC (rev 5431)
@@ -0,0 +1,20 @@
+#=====================================================================
+# LedgerSMB Small Medium Business Accounting
+# http://www.ledgersmb.org/
+#
+# Copyright (C) 2012
+# This file may be re-used under the terms of the GNU General Public License
+# version 2 or, at your option, any later version.  Please see the included
+# LICENSE.txt for details.
+
+package lsmb_legacy;
+
+sub form {
+   our $form = shift;
+}
+
+sub locale {
+   our $locale = shift;
+}
+
+1;

Modified: trunk/bin/gl.pl
===================================================================
--- trunk/bin/gl.pl	2012-12-27 13:14:27 UTC (rev 5430)
+++ trunk/bin/gl.pl	2012-12-27 13:26:02 UTC (rev 5431)
@@ -50,6 +50,7 @@
 use LedgerSMB::PE;
 use LedgerSMB::Template;
 
+require 'bin/bridge.pl'; # needed for voucher dispatches
 require "bin/arap.pl";
 
 $form->{login} = 'test';

Modified: trunk/bin/ir.pl
===================================================================
--- trunk/bin/ir.pl	2012-12-27 13:14:27 UTC (rev 5430)
+++ trunk/bin/ir.pl	2012-12-27 13:26:02 UTC (rev 5431)
@@ -44,6 +44,7 @@
 use LedgerSMB::Tax;
 use LedgerSMB::Setting;
 
+require 'bin/bridge.pl'; # needed for voucher dispatches
 require "bin/io.pl";
 require "bin/arap.pl";
 

Modified: trunk/bin/is.pl
===================================================================
--- trunk/bin/is.pl	2012-12-27 13:14:27 UTC (rev 5430)
+++ trunk/bin/is.pl	2012-12-27 13:26:02 UTC (rev 5431)
@@ -49,6 +49,7 @@
 use LedgerSMB::Tax;
 use LedgerSMB::Setting;
 
+require 'bin/bridge.pl'; # needed for voucher dispatches
 require "bin/arap.pl";
 require "bin/io.pl";
 

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