SF.net SVN: ledger-smb:[5986] branches/1.3/bin/arap.pl

[..hidden..]

Revision: 5986
          http://sourceforge.net/p/ledger-smb/code/5986
Author:   pongracz
Date:     2013-08-29 17:29:23 +0000 (Thu, 29 Aug 2013)
Log Message:
-----------
Description column also shown when one select a credit account of customer/vendor. This is for help determining the right account, because if one has 300 credit accounts, who knows, what is V1241 but John Malkovich more informative.

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

Property Changed:
----------------
    branches/1.3/bin/arap.pl

Modified: branches/1.3/bin/arap.pl
===================================================================
--- branches/1.3/bin/arap.pl	2013-08-29 17:04:29 UTC (rev 5985)
+++ branches/1.3/bin/arap.pl	2013-08-29 17:29:23 UTC (rev 5986)
@@ -158,7 +158,7 @@
 sub select_name {
     my ($table) = @_;
 
-    @column_index = qw(ndx name control_code meta_number address city);
+    @column_index = qw(ndx name control_code meta_number description address city);
 
     $label = ucfirst $table;
     %column_data = (ndx => qq|<th>&nbsp;</th>|,
@@ -168,6 +168,8 @@
                                $locale->text('Control Code') . qq|</th>|,
             meta_number => qq|<th class=listheading>| .
                                $locale->text('[_1] Number', $label) . qq|</th>|,
+            description => qq|<th class=listheading>| .
+                               $locale->text('Description') . '</th>',
             address => qq|<th class=listheading>| .
                                $locale->text('Address') . '</th>',
             city => qq|<th class=listheading>| .
@@ -217,6 +219,7 @@
 qq|<td><input name="new_control_code_$i" type=hidden value="$ref->{control_code}">$ref->{control_code}</td>|;
         $column_data{meta_number} =
 qq|<td><input name="new_meta_number_$i" type=hidden value="$ref->{meta_number}">$ref->{meta_number}</td>|;
+        $column_data{description} = qq|<td>$ref->{description}</td>|;
         $column_data{address} = qq|<td>$ref->{address}</td>|;
         for (qw(city state zipcode country)) {
             $column_data{$_} = qq|<td>$ref->{$_}&nbsp;</td>|;


Property changes on: branches/1.3/bin/arap.pl
___________________________________________________________________
Added: svn:text-time
## -0,0 +1 ##
+2013-08-27T13:18:26.000000Z
\ No newline at end of property
Added: svn:unix-mode
## -0,0 +1 ##
+0660
\ No newline at end of property
Added: svn:owner
## -0,0 +1 ##
+33 www-data
\ No newline at end of property
Added: svn:group
## -0,0 +1 ##
+33 www-data
\ No newline at end of property
This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.


------------------------------------------------------------------------------
Learn the latest--Visual Studio 2012, SharePoint 2013, SQL 2012, more!
Discover the easy way to master current and previous Microsoft technologies
and advance your career. Get an incredible 1,500+ hours of step-by-step
tutorial videos with LearnDevNow. Subscribe today and save!
http://pubads.g.doubleclick.net/gampad/clk?id=58040911&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits