SF.net SVN: ledger-smb: [1390] branches/1.2/LedgerSMB/IC.pm

[..hidden..]

Revision: 1390
          http://svn.sourceforge.net/ledger-smb/?rev=1390&view=rev
Author:   einhverfr
Date:     2007-07-12 13:48:40 -0700 (Thu, 12 Jul 2007)

Log Message:
-----------
Fixing bug 1751604-- fix not applicable to /trunk

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IC.pm

Modified: branches/1.2/LedgerSMB/IC.pm
===================================================================
--- branches/1.2/LedgerSMB/IC.pm	2007-07-12 19:43:56 UTC (rev 1389)
+++ branches/1.2/LedgerSMB/IC.pm	2007-07-12 20:48:40 UTC (rev 1390)
@@ -821,14 +821,11 @@
 
     my $query;
 
-    $query = qq|DELETE FROM parts WHERE id = ?|;
-    $sth   = $dbh->prepare($query);
-    $sth->execute( $form->{id} ) || $form->dberror($query);
-
     $query = qq|DELETE FROM partstax WHERE parts_id = ?|;
     $sth   = $dbh->prepare($query);
     $sth->execute( $form->{id} ) || $form->dberror($query);
 
+
     if ( $form->{item} ne 'assembly' ) {
         $query = qq|DELETE FROM partsvendor WHERE parts_id = ?|;
         $sth   = $dbh->prepare($query);
@@ -860,6 +857,10 @@
     $sth   = $dbh->prepare($query);
     $sth->execute( $form->{id} ) || $form->dberror($query);
 
+    $query = qq|DELETE FROM parts WHERE id = ?|;
+    $sth   = $dbh->prepare($query);
+    $sth->execute( $form->{id} ) || $form->dberror($query);
+
     # commit
     my $rc = $dbh->commit;
 


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