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

[..hidden..]

Revision: 3261
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3261&view=rev
Author:   einhverfr
Date:     2011-06-16 04:49:02 +0000 (Thu, 16 Jun 2011)

Log Message:
-----------
Correcting order not being properly saved

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

Modified: trunk/LedgerSMB/OE.pm
===================================================================
--- trunk/LedgerSMB/OE.pm	2011-06-16 02:21:51 UTC (rev 3260)
+++ trunk/LedgerSMB/OE.pm	2011-06-16 04:49:02 UTC (rev 3261)
@@ -250,8 +250,6 @@
 }
 
 sub save {
-    
-
     my ( $self, $myconfig, $form ) = @_;
   
     $form->db_prepare_vars(
@@ -315,6 +313,7 @@
     my $pth = $dbh->prepare($query) || $form->dberror($query);
 
     if ( $form->{id} ) {
+        
         $query = qq|SELECT id FROM oe WHERE id = $form->{id}|;
 
         if ( $dbh->selectrow_array($query) ) {
@@ -335,7 +334,6 @@
         }
 
     }
-    $dbh->commit;
     my $did_insert = 0;
     if ( !$form->{id} ) {
         $query = qq|SELECT nextval('id')|;
@@ -607,7 +605,6 @@
     }
     $sth = $dbh->prepare($query);
 
-    #$sth->execute(@queryargs) || $form->error($query);
 
     if ( !$did_insert ) {
         @queries = $form->run_custom_queries( 'oe', 'UPDATE' );
@@ -615,6 +612,7 @@
 
 
     $form->{ordtotal} = $amount;
+    $sth->execute(@queryargs) || $form->error($query);
 
     # add shipto
     $form->{name} = $form->{ $form->{vc} };


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