From c3424f9e3869dce59cfeeea95e0de3856640b440 Mon Sep 17 00:00:00 2001 From: einhverfr Date: Thu, 14 Sep 2006 05:39:17 +0000 Subject: Fixed last outstanding bug in batch check printing/ git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@88 4979c152-3d1c-0410-bac9-87ea11338e46 --- bin/mozilla/arapprn.pl | 11 +++++------ 1 file changed, 5 insertions(+), 6 deletions(-) (limited to 'bin') diff --git a/bin/mozilla/arapprn.pl b/bin/mozilla/arapprn.pl index 26831b1d..2cb40644 100755 --- a/bin/mozilla/arapprn.pl +++ b/bin/mozilla/arapprn.pl @@ -206,7 +206,7 @@ sub print_check { # 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 @@ sub print_check { 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)/) { -- cgit v1.2.3