diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-14 05:39:17 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-14 05:39:17 +0000 |
| commit | c3424f9e3869dce59cfeeea95e0de3856640b440 (patch) | |
| tree | 2bbe2750d741d8c2a1ac3957bac39dfca689f825 /bin | |
| parent | dafa2c0c32b771543d1c674db414df3c5bce3b57 (diff) | |
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
Diffstat (limited to 'bin')
| -rwxr-xr-x | bin/mozilla/arapprn.pl | 11 |
1 files changed, 5 insertions, 6 deletions
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)/) { |