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

[..hidden..]

Revision: 6245
          http://sourceforge.net/p/ledger-smb/code/6245
Author:   einhverfr
Date:     2013-11-07 14:35:34 +0000 (Thu, 07 Nov 2013)
Log Message:
-----------
Point of sales screen fails to render on FCGI due to broken pricematrix check

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/bin/pos.pl

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2013-11-07 14:33:37 UTC (rev 6244)
+++ branches/1.3/Changelog	2013-11-07 14:35:34 UTC (rev 6245)
@@ -8,6 +8,7 @@
 * Fixed tax checkbox problem when one tax id includes another (Chris T)
 * Fixed update forgetting creditor (Nick P)
 * Fixed invoices rounding and printing differently (Giovanni B)
+* Deleted broken pricematrix check on existing rows in POS (Chris T)
 
 Chris T is Chris Travers
 Nick P is Nick Prater

Modified: branches/1.3/bin/pos.pl
===================================================================
--- branches/1.3/bin/pos.pl	2013-11-07 14:33:37 UTC (rev 6244)
+++ branches/1.3/bin/pos.pl	2013-11-07 14:35:34 UTC (rev 6245)
@@ -124,13 +124,13 @@
         $form->{partsgroup} .= "$_->{partsgroup}--$_->{translation}\n";
     }
 
-    $form->{dontdisplayend} = 1;
+  #  $form->{dontdisplayend} = 1;
 
     &display_form;
 
-    $form->{dontdisplayrows} = 1;
-    $form->{dontdisplayend}  = 0;
-    &openinvoices;
+ #   $form->{dontdisplayrows} = 1;
+ #   $form->{dontdisplayend}  = 0;
+ #   &openinvoices;
 }
 
 sub openinvoices {
@@ -783,27 +783,6 @@
         $dec = length $dec;
         $decimalplaces = ( $dec > 2 ) ? $dec : 2;
 
-        if (   ( $form->{"qty_$i"} != $form->{"oldqty_$i"} )
-            || ( $form->{currency} ne $form->{oldcurrency} ) )
-        {
-
-            # check for a pricematrix
-            @a = split / /, $form->{"pricematrix_$i"};
-            if ( scalar @a ) {
-                foreach $item (@a) {
-                    ( $q, $p ) = split /:/, $item;
-                    if ( ( $p * 1 ) && ( $form->{"qty_$i"} >= ( $q * 1 ) ) ) {
-                        ($dec) = ( $p =~ /\.(\d+)/ );
-                        $dec = length $dec;
-                        $decimalplaces = ( $dec > 2 ) ? $dec : 2;
-                        $form->{"sellprice_$i"} =
-                          $form->round_amount( $p / $exchangerate,
-                            $decimalplaces );
-                    }
-                }
-            }
-        }
-
         $column_data{discount} =
                 qq|<td align=right><input name="discount_$i" size=3 value=|
               . $form->format_amount( \%myconfig, $form->{"discount_$i"} )

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


------------------------------------------------------------------------------
November Webinars for C, C++, Fortran Developers
Accelerate application performance with scalable programming models. Explore
techniques for threading, error checking, porting, and tuning. Get the most 
from the latest Intel processors and coprocessors. See abstracts and register
http://pubads.g.doubleclick.net/gampad/clk?id=60136231&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits