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

[..hidden..]

Revision: 6620
          http://sourceforge.net/p/ledger-smb/code/6620
Author:   einhverfr
Date:     2014-01-24 08:49:09 +0000 (Fri, 24 Jan 2014)
Log Message:
-----------
Correcting dispatching to legacy code on contact screen, fixes 952

Modified Paths:
--------------
    trunk/LedgerSMB/Scripts/contact.pm
    trunk/lsmb-request.pl

Modified: trunk/LedgerSMB/Scripts/contact.pm
===================================================================
--- trunk/LedgerSMB/Scripts/contact.pm	2014-01-24 07:28:22 UTC (rev 6619)
+++ trunk/LedgerSMB/Scripts/contact.pm	2014-01-24 08:49:09 UTC (rev 6620)
@@ -405,8 +405,9 @@
     $form->{dbh} = $request->{dbh};
     $form->{script} =~ s|.*/||;
     { no strict; no warnings 'redefine'; do $script; }
-
-    $form->{action}();
+    $lsmb_legacy::form = $form;
+    $lsmb_legacy::locale = LedgerSMB::App_State::Locale();
+    "lsmb_legacy"->can($form->{action})->();
 }
 
 =item add_transaction

Modified: trunk/lsmb-request.pl
===================================================================
--- trunk/lsmb-request.pl	2014-01-24 07:28:22 UTC (rev 6619)
+++ trunk/lsmb-request.pl	2014-01-24 08:49:09 UTC (rev 6620)
@@ -116,7 +116,7 @@
       # -- CT
      $LedgerSMB::App_State::DBH->rollback if ($LedgerSMB::App_State::DBH and $_ eq 'Died');
      LedgerSMB::App_State->cleanup();
-     $request->_error($_) unless $_ =~ 'Died at' or $_ eq 'exit';
+     $request->_error($_) unless $_ =~ 'Died at' or $_ =~ /^exit at/;
   };
 }
 1;

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