summaryrefslogtreecommitdiff
path: root/bin/mozilla
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-14 05:19:11 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-09-14 05:19:11 +0000
commitdafa2c0c32b771543d1c674db414df3c5bce3b57 (patch)
treea8812220b4766b5ce93dea93061d5468057bf128 /bin/mozilla
parent72cb7707e2ccb9678ec0e7c2c06d6941af46fe98 (diff)
Batch printing works for checks. One odd bug remains however in that when you
print and post it sends a blank/invalid postscript or pdf to the screen. The item is properly queued however. There may be a difference as to how print and post works on the newer versions. Will have to continue to look into this. git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@87 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/mozilla')
-rwxr-xr-xbin/mozilla/arapprn.pl16
1 files changed, 16 insertions, 0 deletions
diff --git a/bin/mozilla/arapprn.pl b/bin/mozilla/arapprn.pl
index 6bb808cf..26831b1d 100755
--- a/bin/mozilla/arapprn.pl
+++ b/bin/mozilla/arapprn.pl
@@ -114,6 +114,17 @@ sub print {
$filename .= $$;
}
+ $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf';
+ $form->{OUT} = ">$spool/$filename";
+
+ $form->{queued} .= " $form->{formname} $filename";
+ $form->{queued} =~ s/^ //;
+ $printform = new Form;
+ for (keys %$form){
+ $printform->{$_} = $form->{$_};
+ }
+
+
if ($form->{printandpost}){
&post;
} else {
@@ -204,6 +215,11 @@ sub print_check {
id => $form->{id} );
$old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail);
+ $filename .= ($old_form->{format} eq 'postscript') ? '.ps' : '.pdf';
+ $old_form->{OUT} = ">$spool/$filename";
+
+ $old_form->{queued} .= " $form->{formname} $filename";
+ $old_form->{queued} =~ s/^ //;
}
if ($form->{media} !~ /(screen|queue)/) {