diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-13 06:45:11 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-09-13 06:45:11 +0000 |
commit | 9c7983f5cd23027bdd73694bfc3b5d269af9998b (patch) | |
tree | 61f0c9c0d163c0ffdd3ae8f49412d94058c6a2f4 /bin/mozilla/arapprn.pl | |
parent | 3f15acabf8761a9c2e2b9722e184a565262bc501 (diff) |
Added most of the code for batch printing for checks. Doesn't quite work yet
but nothing else should be broken. If we have to, I suppose we could disable
the UI option in the next release if necessary.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@81 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/mozilla/arapprn.pl')
-rwxr-xr-x | bin/mozilla/arapprn.pl | 70 |
1 files changed, 67 insertions, 3 deletions
diff --git a/bin/mozilla/arapprn.pl b/bin/mozilla/arapprn.pl index 792b01af..6bb808cf 100755 --- a/bin/mozilla/arapprn.pl +++ b/bin/mozilla/arapprn.pl @@ -105,8 +105,21 @@ sub print { } } + if ($filename = $queued{$form->{formname}}) { + $form->{queued} =~ s/$form->{formname} $filename//; + unlink "$spool/$filename"; + $filename =~ s/\..*$//g; + } else { + $filename = time; + $filename .= $$; + } + + if ($form->{printandpost}){ + &post; + } else { + &{ "print_$form->{formname}" }($old_form, 1); + } - &{ "print_$form->{formname}" }($old_form, 1); } @@ -177,8 +190,27 @@ sub print_check { if ($form->{format} =~ /(postscript|pdf)/) { $form->{IN} =~ s/html$/tex/; } + if ($form->{media} eq 'queue') { + + # save status + $form->update_status(\%myconfig); + + $old_form->{queued} = $form->{queued}; + + %audittrail = ( tablename => ($order) ? 'oe' : lc $ARAP, + reference => $form->{"${inv}number"}, + formname => $form->{formname}, + action => 'queued', + id => $form->{id} ); + + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + } + + if ($form->{media} !~ /(screen|queue)/) { + + %queued = split / /, $form->{queued}; + - if ($form->{media} !~ /(screen)/) { $form->{OUT} = "| $printer{$form->{media}}"; if ($form->{printed} !~ /$form->{formname}/) { @@ -363,8 +395,39 @@ sub print_transaction { if ($form->{format} =~ /(postscript|pdf)/) { $form->{IN} =~ s/html$/tex/; } + if ($form->{media} eq 'queue') { + %queued = split / /, $form->{queued}; + + if ($filename = $queued{$form->{formname}}) { + $form->{queued} =~ s/$form->{formname} $filename//; + unlink "$spool/$filename"; + $filename =~ s/\..*$//g; + } else { + $filename = time; + $filename .= $$; + } + + $filename .= ($form->{format} eq 'postscript') ? '.ps' : '.pdf'; + $form->{OUT} = ">$spool/$filename"; + + $form->{queued} .= " $form->{formname} $filename"; + $form->{queued} =~ s/^ //; + + # save status + $form->update_status(\%myconfig); + + $old_form->{queued} = $form->{queued}; + + %audittrail = ( tablename => ($order) ? 'oe' : lc $ARAP, + reference => $form->{"${inv}number"}, + formname => $form->{formname}, + action => 'queued', + id => $form->{id} ); + + $old_form->{audittrail} .= $form->audittrail("", \%myconfig, \%audittrail); + } - if ($form->{media} !~ /(screen)/) { + if ($form->{media} !~ /(queue|screen)/) { $form->{OUT} = "| $printer{$form->{media}}"; if ($form->{printed} !~ /$form->{formname}/) { @@ -556,6 +619,7 @@ sub print_options { $form->{selectformat} .= qq| <option value="postscript">|.$locale->text('Postscript').qq| <option value="pdf">|.$locale->text('PDF'); + $media .= qq|<option value="queue">|.$locale->text('Queue'); } $format = qq|<select name=format>$form->{selectformat}</select>|; |