SF.net SVN: ledger-smb: [1413] branches/1.2/LedgerSMB

[..hidden..]

Revision: 1413
          http://svn.sourceforge.net/ledger-smb/?rev=1413&view=rev
Author:   einhverfr
Date:     2007-07-16 19:33:57 -0700 (Mon, 16 Jul 2007)

Log Message:
-----------
Fixing another cogs bug (1753360)
Previously committed fix for ..hidden.. login sessions continuing to time out

Modified Paths:
--------------
    branches/1.2/LedgerSMB/IR.pm
    branches/1.2/LedgerSMB/IS.pm

Modified: branches/1.2/LedgerSMB/IR.pm
===================================================================
--- branches/1.2/LedgerSMB/IR.pm	2007-07-17 02:23:14 UTC (rev 1412)
+++ branches/1.2/LedgerSMB/IR.pm	2007-07-17 02:33:57 UTC (rev 1413)
@@ -333,7 +333,7 @@
 					   WHERE i.parts_id = ?
 					         AND (i.qty + i.allocated) > 0
 					ORDER BY transdate|;
-                $sth = $dbh->prepare($query);
+                my $sth = $dbh->prepare($query);
                 $sth->execute( $form->{"id_$i"} )
                   || $form->dberror($query);
 
@@ -363,7 +363,7 @@
 							     VALUES (?, ?, ?, ?,
 							            ?, ?)|;
 
-                        $sth = $dbh->prepare($query);
+                        my $sth = $dbh->prepare($query);
                         $sth->execute(
                             $ref->{trans_id},   $ref->{inventory_accno_id},
                             $linetotal,         $ref->{transdate},
@@ -385,7 +385,7 @@
                         $sth->execute(
                             $ref->{trans_id},   $ref->{expense_accno_id},
                             $linetotal * -1,    $ref->{transdate},
-                            $ref->{project_id}, $invoice_id
+                            $:ref->{project_id}, $invoice_id
                         ) || $form->dberror($query);
                     }
 

Modified: branches/1.2/LedgerSMB/IS.pm
===================================================================
--- branches/1.2/LedgerSMB/IS.pm	2007-07-17 02:23:14 UTC (rev 1412)
+++ branches/1.2/LedgerSMB/IS.pm	2007-07-17 02:33:57 UTC (rev 1413)
@@ -1057,6 +1057,7 @@
                             &cogs( $dbh, $form, $form->{"id_$i"}, 
                                    $form->{"qty_$i"}, $project_id );
                     } else {
+			my $total_inventory = 0;
 			$query = qq|
 			              SELECT i.id, i.qty, i.allocated, a.transdate
 					FROM invoice i


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