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

[..hidden..]

Revision: 1840
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=1840&view=rev
Author:   einhverfr
Date:     2007-11-02 10:34:23 -0700 (Fri, 02 Nov 2007)

Log Message:
-----------
Corrected POS bug-- when print and post triggers update, it also opens the drawer.

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

Modified: branches/1.2/bin/pos.pl
===================================================================
--- branches/1.2/bin/pos.pl	2007-11-02 15:57:33 UTC (rev 1839)
+++ branches/1.2/bin/pos.pl	2007-11-02 17:34:23 UTC (rev 1840)
@@ -893,8 +893,6 @@
 
 
 sub print {
-    open_drawer();
-    sleep 1;
     if ( !$form->{invnumber} ) {
         $form->{invnumber} = $form->update_defaults( \%myconfig, 'sinumber' );
     }
@@ -907,6 +905,8 @@
         &update;
         exit;
     }
+    open_drawer();
+    sleep 1;
     for $i ( 1 .. $rc - 1 ) {
         if ( $form->{"qty_$i"} != $form->{"oldqty_$i"} ) {
             &update;


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