SF.net SVN: ledger-smb:[5123] branches/1.3

[..hidden..]

Revision: 5123
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5123&view=rev
Author:   einhverfr
Date:     2012-08-21 09:14:21 +0000 (Tue, 21 Aug 2012)
Log Message:
-----------
Correcting discount multiplied by 100 (but should it even be there?) on multiple parts selection on invoices and orders
Also corrected prices showing up on RFQ by default which makes now sense since it is a request for pricing info.....

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/bin/io.pl
    branches/1.3/bin/oe.pl

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2012-08-19 07:40:42 UTC (rev 5122)
+++ branches/1.3/Changelog	2012-08-21 09:14:21 UTC (rev 5123)
@@ -7,6 +7,8 @@
 * Moved http error framework to use header methods (Chris T)
 * Fixed warning about incorrect method for ar/ap transactions (Chris T)
 * Fixed fatal gettext errors in ar_EG, fi, nb po's (Havard S)
+* Fixed prices being selected on RFQ (Chris T, h/t Erik H)
+* Fixed discount * 100 on multiple parts select (Chris T, h/T Istvan P)
 
 Changelog for 1.3.22
 * Fixed error when trying to save multiple make/models for a part (Chris T)

Modified: branches/1.3/bin/io.pl
===================================================================
--- branches/1.3/bin/io.pl	2012-08-19 07:40:42 UTC (rev 5122)
+++ branches/1.3/bin/io.pl	2012-08-21 09:14:21 UTC (rev 5123)
@@ -630,7 +630,7 @@
             $i++;
 
             $form->{"qty_$i"}      = $qty;
-            $form->{"discount_$i"} = $form->{discount} * 100;
+            $form->{"discount_$i"} = $form->{discount};
             $form->{"reqdate_$i"}  = $form->{reqdate}
               if $form->{type} !~ /_quotation/;
 

Modified: branches/1.3/bin/oe.pl
===================================================================
--- branches/1.3/bin/oe.pl	2012-08-19 07:40:42 UTC (rev 5122)
+++ branches/1.3/bin/oe.pl	2012-08-21 09:14:21 UTC (rev 5123)
@@ -1080,6 +1080,12 @@
         &{"$retrieve_item"}( "", \%myconfig, \%$form );
 
         $rows = scalar @{ $form->{item_list} };
+        if ($form->{type} eq 'request_quotation'){
+           for my $ref (@{ $form->{item_list} }){
+               $ref->{sellprice} = 0;
+               $ref->{lastcost} = 0;
+           }
+        }
 
         if ( $form->{language_code} && $rows == 0 ) {
             $language_code = $form->{language_code};

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