Merging bugfixes from current branches/1.2

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1105 4979c152-3d1c-0410-bac9-87ea11338e46

1 files changed, 8 insertions, 7 deletions

diff --git a/bin/pos.pl b/bin/pos.pl
index 6492ad35..f4192cb6 100644
--- a/bin/pos.pl
+++ b/bin/pos.pl
@@ -127,18 +127,19 @@ sub add {
 }
 
 sub openinvoices {
-    undef $column_data;
-    undef $column_heading;
+    undef %column_data;
+    undef %column_heading;
+    $form->{customer}    = "";
+    $form->{customer_id} = 0;
+    delete $form->{l_subtotal};
+    delete $form->{subtotal};
 
     $ENV{REMOTE_ADDR} =~ /(\d+)\.(\d+)\.(\d+)\.(\d+)/;
     $form->{till} = $4;
 
     $form->{sort} = 'transdate';
 
-    for (
-        qw(open l_invnumber l_transdate l_name l_amount l_curr l_till l_subtotal)
-      )
-    {
+    for (qw(open l_invnumber l_transdate l_name l_amount l_curr l_till)) {
         $form->{$_} = 'Y';
     }
 
@@ -994,7 +995,7 @@ sub print_form {
     }
 
     if ( $form->{media} ne 'screen' ) {
-        $form->{OUT}       = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+        $form->{OUT}       = ${LedgerSMB::Sysconfig::printer}{ $form->{media} };
         $form->{printmode} = '|-';
     }