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

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)/) {