diff options
| author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 02:38:49 +0000 |
|---|---|---|
| committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 02:38:49 +0000 |
| commit | b193f4e3c1c2b4e826ed1004b8c64d5e6e991ba8 (patch) | |
| tree | 79152cd1bc3296d7783ab0b060e10c127c02cdd6 /bin/io.pl | |
| parent | 1b13895ec6bd39568353c1a4d66d55f733f56734 (diff) | |
Moved %printer from ledger-smb.conf to Ledger::Sysconfig
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@281 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/io.pl')
| -rwxr-xr-x | bin/io.pl | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -1099,8 +1099,8 @@ sub print_options { $media = qq|<select name=media> <option value="screen">|.$locale->text('Screen'); - if (%printer && ${LedgerSMB::Sysconfig::latex}) { - for (sort keys %printer) { $media .= qq| + if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex}) { + for (sort keys %{LedgerSMB::Sysconfig::printer}) { $media .= qq| <option value="$_">$_| } } if (${LedgerSMB::Sysconfig::latex}) { @@ -1138,7 +1138,7 @@ sub print_options { <td>$media</td> |; - if (%printer && ${LedgerSMB::Sysconfig::latex} && $form->{media} ne 'email') { + if (%{LedgerSMB::Sysconfig::printer} && ${LedgerSMB::Sysconfig::latex} && $form->{media} ne 'email') { print qq| <td nowrap>|.$locale->text('Copies').qq| <input name=copies size=2 value=$form->{copies}></td> @@ -1427,7 +1427,7 @@ sub print_form { $form->{pre} = "<body bgcolor=#ffffff>\n<pre>" if $form->{format} eq 'txt'; if ($form->{media} !~ /(screen|queue|email)/) { - $form->{OUT} = "| $printer{$form->{media}}"; + $form->{OUT} = "| ${LedgerSMB::SysConfig::printer}{$form->{media}}"; $form->{OUT} =~ s/<%(fax)%>/<%$form->{vc}$1%>/; $form->{OUT} =~ s/<%(.*?)%>/$form->{$1}/g; |