SF.net SVN: ledger-smb: [2157] branches/1.2/bin/pos.pl

[..hidden..]

Revision: 2157
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=2157&view=rev
Author:   einhverfr
Date:     2008-06-04 14:22:42 -0700 (Wed, 04 Jun 2008)

Log Message:
-----------
Correcting erroneooneous discount display in POS invoice.

Modified Paths:
--------------
    branches/1.2/bin/pos.pl

Modified: branches/1.2/bin/pos.pl
===================================================================
--- branches/1.2/bin/pos.pl	2008-05-26 18:35:50 UTC (rev 2156)
+++ branches/1.2/bin/pos.pl	2008-06-04 21:22:42 UTC (rev 2157)
@@ -936,6 +936,7 @@
 
 sub print_form {
     my $old_form = shift;
+    my $discount = $old_form->{discount};
 
     # if oldcustomer ne customer redo form
     $customer = $form->{customer};
@@ -965,6 +966,8 @@
 
     IS->invoice_details( \%myconfig, \%$form );
 
+    $form->{discount} = $discount;
+
     if ( $form->parse_amount( \%myconfig, $form->{total} ) <= 0 ) {
         $form->{total} = 0;
     }


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