diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-07 18:26:43 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-12-07 18:26:43 +0000 |
commit | a3c7eaeb221da06f96c1bd3c288e62c83b4d7be2 (patch) | |
tree | e56df466dbaa50fd2ddf2b6dd871ec93925b2b1b /bin/rp.pl | |
parent | b36b485608b9fc389cd0aeedbd0edc1b92c0c063 (diff) |
Fixes some issues with saving parts. Also is a step towards fixing printing with 3-arg open statements. Printing is not verified yet.
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@739 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/rp.pl')
-rwxr-xr-x | bin/rp.pl | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -1892,6 +1892,7 @@ sub e_mail { sub send_email { $form->{OUT} = "${LedgerSMB::Sysconfig::sendmail}"; + $form->{printmode} = '|-'; $form->{subject} = $locale->text('Statement - [_1]', $form->{todate}) unless $form->{subject}; $form->isblank("email", $locale->text('E-mail address missing!')); @@ -1926,7 +1927,8 @@ sub print { if ($form->{media} !~ /(screen|email)/) { - $form->{OUT} = "| ${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}"; + $form->{printmode} = '|-'; $form->{"$form->{ct}_id"} = ""; $SIG{INT} = 'IGNORE'; } else { |