summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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)/) {