SF.net SVN: ledger-smb:[3609] trunk/LedgerSMB/PriceMatrix.pm

[..hidden..]

Revision: 3609
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3609&view=rev
Author:   einhverfr
Date:     2011-07-31 17:44:09 +0000 (Sun, 31 Jul 2011)

Log Message:
-----------
Correcting bug 3381807

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

Modified: trunk/LedgerSMB/PriceMatrix.pm
===================================================================
--- trunk/LedgerSMB/PriceMatrix.pm	2011-07-31 17:25:55 UTC (rev 3608)
+++ trunk/LedgerSMB/PriceMatrix.pm	2011-07-31 17:44:09 UTC (rev 3609)
@@ -42,7 +42,7 @@
 
     my @queryargs;
     my $transdate = $form->{dbh}->quote( $form->{transdate} );
-    my $credit_id     = $form->{dbh}->quote( $form->{credit_id} );
+    my $credit_id     = $form->{dbh}->quote( $form->{customer_id} );
 
     if ( $form->{customer_id} ) {
         my $defaultcurrency = $form->{dbh}->quote( $form->{defaultcurrency} );
@@ -117,7 +117,6 @@
     my $sellprice;
     my $mref;
     my %p = ();
-
     # depends if this is a customer or vendor
     if ( $form->{customer_id} ) {
         $pmh->execute( $ref->{id}, $ref->{id}, $ref->{id} );
@@ -127,9 +126,9 @@
         $form->error('Missing counter-party (customer or vendor)');
         return;
     }
-    if ( $mref = $pmh->fetchrow_hashref(NAME_lc) ) {
+    if ( $mref = $pmh->fetchrow_hashref('NAME_lc') ) {
        if ($form->{customer_id}){
-            $form->db_parse_numeric(sth=>$sth, hashref=>$mref);
+            $form->db_parse_numeric(sth=>$pmh, hashref=>$mref);
             $sellprice = $mref->{sellprice} || $ref->{sellprice};
             if ($mref->{pricebreak}){
 		$sellprice = $sellprice


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