From 59a9c930a875cc618b7386314bcfc69adc4fe549 Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Thu, 18 Oct 2007 00:45:37 +0000
Subject: POS Fixes: 1:  Drawer opening now uses correct printer designation 2:
 Change issued is now entered with correct memo field. 3:  Closing tell report
 works as advertised

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1782 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/IS.pm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'LedgerSMB/IS.pm')

diff --git a/LedgerSMB/IS.pm b/LedgerSMB/IS.pm
index b3b54fca..fdb22861 100644
--- a/LedgerSMB/IS.pm
+++ b/LedgerSMB/IS.pm
@@ -916,6 +916,11 @@ sub post_invoice {
     my $ml;
     my $invoice_id;
     my $ndx;
+    for (keys %$form) {
+        if (UNIVERSAL::isa( $form->{$_}, 'Math::BigFloat' )){
+            $form->{$_} = $form->{$_}->bstr();
+        }
+    }
 
     foreach $i ( 1 .. $form->{rowcount} ) {
         $form->{"qty_$i"} = $form->parse_amount( $myconfig, $form->{"qty_$i"} );
@@ -1138,7 +1143,7 @@ sub post_invoice {
     $form->{paid} = 0;
     for $i ( 1 .. $form->{paidaccounts} ) {
         $form->{"paid_$i"} =
-          $form->parse_amount( $myconfig, $form->{"paid_$i"} );
+          $form->parse_amount( $myconfig, $form->{"paid_$i"} )->bstr();
         $form->{paid} += $form->{"paid_$i"};
         $form->{datepaid} = $form->{"datepaid_$i"}
           if ( $form->{"paid_$i"} );
-- 
cgit v1.2.3