SF.net SVN: ledger-smb:[4164] branches/1.3/bin/is.pl

[..hidden..]

Revision: 4164
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4164&view=rev
Author:   tshvr
Date:     2011-12-08 08:56:41 +0000 (Thu, 08 Dec 2011)
Log Message:
-----------
locale,TODO

Modified Paths:
--------------
    branches/1.3/bin/is.pl

Modified: branches/1.3/bin/is.pl
===================================================================
--- branches/1.3/bin/is.pl	2011-12-08 08:43:15 UTC (rev 4163)
+++ branches/1.3/bin/is.pl	2011-12-08 08:56:41 UTC (rev 4164)
@@ -875,7 +875,7 @@
     my $printops = &print_options;
     my $formname = { name => 'formname',
                      options => [
-                                  {text=> 'Sales Invoice', value => 'invoice'},
+                                  {text=> $locale->text('Sales Invoice'), value => 'invoice'},
                                 ]
                    };
     print_select($form, $formname);
@@ -1057,7 +1057,7 @@
 }
 
 sub update {
-    on_update();
+    on_update();#TODO meaning ?
     $form->{taxes} = {};
     $form->{exchangerate} =
       $form->parse_amount( \%myconfig, $form->{exchangerate} );
@@ -1164,11 +1164,10 @@
 
     }
     else {
-
         IS->retrieve_item( \%myconfig, \%$form );
 
         $rows = scalar @{ $form->{item_list} };
-
+        #TODO if language_code in select id="formname", see $printops &print_options $printops->{lang}, will do unnecessary lookup on new item
         if ( $form->{language_code} && $rows == 0 ) {
             $language_code = $form->{language_code};
             $form->{language_code} = "";

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