summaryrefslogtreecommitdiff
path: root/bin/cp.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/cp.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/cp.pl')
-rwxr-xr-xbin/cp.pl14
1 files changed, 7 insertions, 7 deletions
diff --git a/bin/cp.pl b/bin/cp.pl
index 86ae69b2..be796242 100755
--- a/bin/cp.pl
+++ b/bin/cp.pl
@@ -452,7 +452,7 @@ sub payments_footer {
$transdate = $form->datetonum(\%myconfig, $form->{datepaid});
$closedto = $form->datetonum(\%myconfig, $form->{closedto});
- if ($latex) {
+ if (${LedgerSMB::Sysconfig::latex}) {
$media = qq|<select name=media>
<option value=screen>|.$locale->text('Screen');
@@ -486,7 +486,7 @@ sub payments_footer {
'Post' => { ndx => 4, key => 'O', value => $locale->text('Post') },
);
- if (! $latex) {
+ if (! ${LedgerSMB::Sysconfig::latex}) {
delete $button{'Print'};
}
@@ -1051,7 +1051,7 @@ sub payment_footer {
$transdate = $form->datetonum(\%myconfig, $form->{datepaid});
$closedto = $form->datetonum(\%myconfig, $form->{closedto});
- if ($latex) {
+ if (${LedgerSMB::Sysconfig::latex}) {
if ($form->{selectlanguage}) {
$form->{"selectlanguage"} = $form->unescape($form->{"selectlanguage"});
$form->{"selectlanguage"} =~ s/ selected//;
@@ -1088,7 +1088,7 @@ sub payment_footer {
'Post' => { ndx => 4, key => 'O', value => $locale->text('Post') },
);
- if (! $latex) {
+ if (! ${LedgerSMB::Sysconfig::latex}) {
delete $button{'Print'};
}
@@ -1269,7 +1269,7 @@ sub print_form {
$form->{OUT} = "| $printer{$form->{media}}";
}
- $form->parse_template(\%myconfig, $userspath);
+ $form->parse_template(\%myconfig, ${LedgerSMB::Sysconfig::userspath});
}
@@ -1286,8 +1286,8 @@ sub print_payment {
%temp = ();
for (@a) { $temp{$_} = $form->{$_} }
- if (scalar @{$form->{invnumber}} > $check_max_invoices) {
- $#{$form->{invnumber}} = $check_max_invoices - 1;
+ if (scalar @{$form->{invnumber}} > ${LedgerSMB::Sysconfig::check_max_invoices}) {
+ $#{$form->{invnumber}} = ${LedgerSMB::Sysconfig::check_max_invoices} - 1;
$form->{invnumbers_maxed} = 1;
$form->{message} = $locale->text("Please see attatched report for list of invoices paid.");
}