From 4afd2ef4324be7f35a126b89935a2932ed0373aa Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 5 Jul 2008 22:13:42 +0000
Subject: Removing debugging code accidently left in

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2187 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/payment.pl | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'scripts')

diff --git a/scripts/payment.pl b/scripts/payment.pl
index ed83b9c8..a5561cc1 100644
--- a/scripts/payment.pl
+++ b/scripts/payment.pl
@@ -72,6 +72,7 @@ sub payments {
     my ($request) = @_;
     my $payment =  LedgerSMB::DBObject::Payment->new({'base' => $request});
     $payment->get_metadata();
+	$payment->debug({file => '/tmp/delme'});
     my $template = LedgerSMB::Template->new(
         user     => $request->{_user},
         locale   => $request->{_locale},
@@ -260,6 +261,23 @@ sub display_payments {
     for (@{$payment->{contact_invoices}}){
         $_->{total_due} = $payment->format_amount(amount =>  $_->{total_due});
     }
+
+    @{$payment->{media_options}} = (
+            {text  => $request->{_locale}->text('Screen'), 
+             value => 'screen'});
+    for (keys %LedgerSMB::Sysconfig::printer){
+         push @{$payment->{media_options}}, 
+              {text  => $_,
+               value => $LedgerSMB::Sysconfig::printer{$_}};
+    }
+    if ($LedgerSMB::Sysconfig::latex){
+        @{$payment->{format_options}} = (
+              {text => 'PDF',        value => 'PDF'},
+              {text => 'Postscript', value => 'Postscript'},
+        );
+        $payment->{can_print} = 1;
+    }
+
     my $template = LedgerSMB::Template->new(
         user     => $request->{_user},
         locale   => $request->{_locale},
-- 
cgit v1.2.3