summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-14 05:39:17 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-14 05:39:17 +0000
commitc3424f9e3869dce59cfeeea95e0de3856640b440 (patch)
tree2bbe2750d741d8c2a1ac3957bac39dfca689f825
parentdafa2c0c32b771543d1c674db414df3c5bce3b57 (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
-rwxr-xr-xbin/mozilla/arapprn.pl11
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)/) {