summaryrefslogtreecommitdiff
path: root/bin/rp.pl
diff options
context:
space:
mode:
authoreinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-24 00:01:16 +0000
committereinhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>2006-10-24 00:01:16 +0000
commitc3c9871298597e417d67f691fca24cd913ef802a (patch)
treec743f476ab241b97069518fbd90f89a1f2ae5f00 /bin/rp.pl
parent0dc5b99d6e3bd63c2e20e131b39b38503add2dc0 (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-xbin/rp.pl10
1 files changed, 5 insertions, 5 deletions
diff --git a/bin/rp.pl b/bin/rp.pl
index 34d43438..685bf943 100755
--- a/bin/rp.pl
+++ b/bin/rp.pl
@@ -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});
}
}