diff options
author | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 00:01:16 +0000 |
---|---|---|
committer | einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46> | 2006-10-24 00:01:16 +0000 |
commit | c3c9871298597e417d67f691fca24cd913ef802a (patch) | |
tree | c743f476ab241b97069518fbd90f89a1f2ae5f00 /bin/rp.pl | |
parent | 0dc5b99d6e3bd63c2e20e131b39b38503add2dc0 (diff) |
Moved all scalars out of ledger-smb.conf
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@268 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'bin/rp.pl')
-rwxr-xr-x | bin/rp.pl | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -1751,7 +1751,7 @@ sub print_options { $media = qq| <td><select name=media> <option value=screen>|.$locale->text('Screen'); - if (%printer && $latex) { + if (%printer && ${LedgerSMB::Sysconfig::latex}) { for (sort keys %printer) { $media .= qq| <option value="$_">$_| } } @@ -1760,7 +1760,7 @@ sub print_options { $media =~ s/(<option value="\Q$form->{media}\E")/$1 selected/; $media .= qq|</select></td>|; - if ($latex) { + if (${LedgerSMB::Sysconfig::latex}) { $format .= qq| <option value=postscript $form->{DF}{postscript}>|.$locale->text('Postscript').qq| <option value=pdf $form->{DF}{pdf}>|.$locale->text('PDF'); @@ -1774,7 +1774,7 @@ sub print_options { $media |; - if (%printer && $latex && $form->{media} ne 'email') { + if (%printer && ${LedgerSMB::Sysconfig::latex} && $form->{media} ne 'email') { print qq| <td>|.$locale->text('Copies').qq| <input name=copies size=2 value=$form->{copies}></td> @@ -1891,7 +1891,7 @@ sub e_mail { sub send_email { - $form->{OUT} = "$sendmail"; + $form->{OUT} = "${LedgerSMB::Sysconfig::sendmail}"; $form->{subject} = $locale->text('Statement').qq| - $form->{todate}| unless $form->{subject}; $form->isblank("email", $locale->text('E-mail address missing!')); @@ -2020,7 +2020,7 @@ sub print_form { for ("c0", "c30", "c60", "c90", "") { $form->{"${_}total"} = $form->format_amount(\%myconfig, $form->{"${_}total"}, 2) } - $form->parse_template(\%myconfig, $userspath); + $form->parse_template(\%myconfig, ${LedgerSMB::Sysconfig::userspath}); } } |