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

[..hidden..]

Revision: 1292
          http://svn.sourceforge.net/ledger-smb/?rev=1292&view=rev
Author:   einhverfr
Date:     2007-06-21 12:00:30 -0700 (Thu, 21 Jun 2007)

Log Message:
-----------
Fixed error updating custom fields

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

Modified: trunk/LedgerSMB/DBObject.pm
===================================================================
--- trunk/LedgerSMB/DBObject.pm	2007-06-21 18:58:25 UTC (rev 1291)
+++ trunk/LedgerSMB/DBObject.pm	2007-06-21 19:00:30 UTC (rev 1292)
@@ -1,4 +1,5 @@
 
+
 =head1 NAME
 
 LedgerSMB::DBObject - LedgerSMB class for building objects from db relations
@@ -158,7 +159,7 @@
         if ( $query_type eq 'UPDATE' ) {
             $query = "DELETE FROM $_ WHERE row_id = ?";
             my $sth = $dbh->prepare($query);
-            $sth->execute->( $self->{ "id" . "$linenum" } )
+            $sth->execute( $self->{ "id" . "$linenum" } )
               || $self->dberror($query);
         }
         elsif ( $query_type eq 'INSERT' ) {

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-06-21 18:58:25 UTC (rev 1291)
+++ trunk/LedgerSMB/Form.pm	2007-06-21 19:00:30 UTC (rev 1292)
@@ -1514,7 +1514,7 @@
         if ( $query_type eq 'UPDATE' ) {
             $query = "DELETE FROM $_ WHERE row_id = ?";
             my $sth = $dbh->prepare($query);
-            $sth->execute->( $self->{ "id" . "$linenum" } )
+            $sth->execute( $self->{ "id" . "$linenum" } )
               || $self->dberror($query);
         }
         elsif ( $query_type eq 'INSERT' ) {


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