SF.net SVN: ledger-smb: [88] trunk/bin/mozilla/arapprn.pl

[..hidden..]

Revision: 88
          http://svn.sourceforge.net/ledger-smb/?rev=88&view=rev
Author:   einhverfr
Date:     2006-09-13 22:39:17 -0700 (Wed, 13 Sep 2006)

Log Message:
-----------
Fixed last outstanding bug in batch check printing/

Modified Paths:
--------------
    trunk/bin/mozilla/arapprn.pl

Modified: trunk/bin/mozilla/arapprn.pl
===================================================================
--- trunk/bin/mozilla/arapprn.pl	2006-09-14 05:19:11 UTC (rev 87)
+++ trunk/bin/mozilla/arapprn.pl	2006-09-14 05:39:17 UTC (rev 88)
@@ -206,7 +206,7 @@
     # save status
     $form->update_status(\%myconfig);
 
-    $old_form->{queued} = $form->{queued};
+    $form->{queued} = $form->{queued};
 
     %audittrail = ( tablename   => ($order) ? 'oe' : lc $ARAP,
                     reference   => $form->{"${inv}number"},
@@ -214,12 +214,11 @@
                    action      => 'queued',
                    id          => $form->{id} );
 
-    $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
-    $filename .= ($old_form->{format} eq 'postscript') ? '.ps' : '.pdf';
-    $old_form->{OUT} = ">$spool/$filename";
+    $form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
+    $form->{OUT} = ">$spool/$filename";
 
-    $old_form->{queued} .= " $form->{formname} $filename";
-    $old_form->{queued} =~ s/^ //;
+    $form->{queued} .= " $form->{formname} $filename";
+    $form->{queued} =~ s/^ //;
   }
 
   if ($form->{media} !~ /(screen|queue)/) {


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