SF.net SVN: ledger-smb:[4182] branches/1.3/scripts/payment.pl

[..hidden..]

Revision: 4182
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4182&view=rev
Author:   tshvr
Date:     2011-12-09 12:28:29 +0000 (Fri, 09 Dec 2011)
Log Message:
-----------
avoid duplicating variables?

Modified Paths:
--------------
    branches/1.3/scripts/payment.pl

Modified: branches/1.3/scripts/payment.pl
===================================================================
--- branches/1.3/scripts/payment.pl	2011-12-09 10:59:55 UTC (rev 4181)
+++ branches/1.3/scripts/payment.pl	2011-12-09 12:28:29 UTC (rev 4182)
@@ -763,8 +763,9 @@
 
 sub payment1_5 {
 my ($request)    = @_;  
-my $locale       = $request->{_locale};
+#my $locale       = $request->{_locale};#avoid duplicating variables as much as possible?
 my  $dbPayment = LedgerSMB::DBObject::Payment->new({'base' => $request});
+#print STDERR localtime()." payment.pl payment1_5 dbPayment=".Data::Dumper::Dumper(\$dbPayment)."\n";
 my @array_options = $dbPayment->get_entity_credit_account();
 if ($#array_options == -1) { 
    &payment($request);   
@@ -802,7 +803,7 @@
                        value => $request->{type}},
     action       => {  name => 'action',
                        value => 'payment2', 
-                       text => $locale->text("Continue")}
+                       text =>  $request->{_locale}("Continue")}
     };
     my $template;
      $template = LedgerSMB::Template->new(

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.