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

[..hidden..]

Revision: 2876
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2876&view=rev
Author:   einhverfr
Date:     2010-02-09 19:25:06 +0000 (Tue, 09 Feb 2010)

Log Message:
-----------
Correcting open form api for test cases and automation

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2010-02-09 19:10:38 UTC (rev 2875)
+++ trunk/LedgerSMB/Form.pm	2010-02-09 19:25:06 UTC (rev 2876)
@@ -170,6 +170,9 @@
 
 sub open_form {
     my ($self) = @_;
+    if (!$ENV{GATEWAY_INTERFACE}){
+        return 1;
+    }
     my $sth = $self->{dbh}->prepare('select form_open(?)');
     $sth->execute($self->{session_id});
     my @results = $sth->fetchrow_array();

Modified: trunk/LedgerSMB.pm
===================================================================
--- trunk/LedgerSMB.pm	2010-02-09 19:10:38 UTC (rev 2875)
+++ trunk/LedgerSMB.pm	2010-02-09 19:25:06 UTC (rev 2876)
@@ -288,6 +288,9 @@
 
 sub open_form {
     my ($self) = @_;
+    if (!$ENV{GATEWAY_INTERFACE}){
+        return 1;
+    }
     my @vars = $self->call_procedure(procname => 'form_open', 
                               args => [$self->{session_id}]
     );


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