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

[..hidden..]

Revision: 3321
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3321&view=rev
Author:   ehuelsmann
Date:     2011-06-24 13:45:17 +0000 (Fri, 24 Jun 2011)

Log Message:
-----------
Add error checking.

Patch by: John Locke.

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

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2011-06-24 13:40:34 UTC (rev 3320)
+++ trunk/LedgerSMB/Form.pm	2011-06-24 13:45:17 UTC (rev 3321)
@@ -2803,7 +2803,7 @@
 
     $sth = $dbh->prepare($query);
     $sth->execute( $self->{id}, $printed, $emailed, $spoolfile,
-        $self->{formname} );
+        $self->{formname} ) || $self->dberror($query);
     $sth->finish;
 
 }
@@ -2830,7 +2830,7 @@
 					WHERE trans_id = ?|;
 
     my $sth = $dbh->prepare($query);
-    $sth->execute( $self->{id} );
+    $sth->execute( $self->{id} ) || $self->dberror($query);
     $sth->finish;
 
     my %queued;


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