SF.net SVN: ledger-smb:[2979] trunk/LedgerSMB.pm

[..hidden..]

Revision: 2979
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2979&view=rev
Author:   einhverfr
Date:     2010-03-24 19:08:02 +0000 (Wed, 24 Mar 2010)

Log Message:
-----------
Adding option to commit after opening form

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

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2010-03-24 19:06:31 UTC (rev 2978)
+++ trunk/LedgerSMB.pm	2010-03-24 19:08:02 UTC (rev 2979)
@@ -287,13 +287,16 @@
 }
 
 sub open_form {
-    my ($self) = @_;
+    my ($self, $args) = @_;
     if (!$ENV{GATEWAY_INTERFACE}){
         return 1;
     }
     my @vars = $self->call_procedure(procname => 'form_open', 
                               args => [$self->{session_id}]
     );
+    if ($args->{commit}){
+       $self->{dbh}->commit;
+    }
     $self->{form_id} = $vars[0]->{form_open};
 }
 


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