summaryrefslogtreecommitdiff
path: root/scripts/payment.pl
diff options
context:
space:
mode:
Diffstat (limited to 'scripts/payment.pl')
-rw-r--r--scripts/payment.pl16
1 files changed, 8 insertions, 8 deletions
diff --git a/scripts/payment.pl b/scripts/payment.pl
index 9061eea7..a081c5e8 100644
--- a/scripts/payment.pl
+++ b/scripts/payment.pl
@@ -282,7 +282,6 @@ sub print {
if ($payment->{multiple}){
$payment->{checks} = [];
- print "Multiple checks printing";
for my $line (1 .. $payment->{contact_count}){
my $id = $payment->{"contact_$line"};
next if !defined $payment->{"id_$id"};
@@ -337,14 +336,15 @@ sub print {
no_auto_output => 1,
output_args => $payment,
);
- try {
+ #try {
$template->render($payment);
$template->output(%$payment);
- }
- catch Error::Simple with {
- my $E = shift;
- $payment->error( $E->stacktrace );
- };
+ #}
+ #catch Error::Simple with {
+ # my $E = shift;
+ # $payment->error( $E->stacktrace );
+ #};
+ display_payments(@_);
} else {
@@ -402,7 +402,7 @@ sub display_payments {
for (keys %LedgerSMB::Sysconfig::printer){
push @{$payment->{media_options}},
{text => $_,
- value => $LedgerSMB::Sysconfig::printer{$_}};
+ value => $_};
}
if ($LedgerSMB::Sysconfig::latex){
@{$payment->{format_options}} = (