SF.net SVN: ledger-smb:[6920] trunk

[..hidden..]

Revision: 6920
          http://sourceforge.net/p/ledger-smb/code/6920
Author:   einhverfr
Date:     2014-03-03 13:09:21 +0000 (Mon, 03 Mar 2014)
Log Message:
-----------
Fix for 1072, ar/ap account dropdown resetting on update

Modified Paths:
--------------
    trunk/Changelog
    trunk/bin/aa.pl
    trunk/bin/arap.pl

Modified: trunk/Changelog
===================================================================
--- trunk/Changelog	2014-03-02 14:59:21 UTC (rev 6919)
+++ trunk/Changelog	2014-03-03 13:09:21 UTC (rev 6920)
@@ -117,6 +117,7 @@
 * Fixed clicking through COA does not show future transactions (Chris T, 1044)
 * Fixed unable to partially pay or receive when negative due (Chris T, 1045)
 * Fixed encoding for templates when edited through web (Chris T, 1077)
+* Fixed customer/vendor dropdown resetting on update (Chris T, 1072)
 
 Changelog for 1.3.38
 * Fixed AR/AP transactions resetting currency/exchange rate (Chris T)

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2014-03-02 14:59:21 UTC (rev 6919)
+++ trunk/bin/aa.pl	2014-03-03 13:09:21 UTC (rev 6920)
@@ -238,7 +238,8 @@
     $form->{"select$form->{vc}"} = "";
     if ( @{ $form->{"all_$form->{vc}"} } ) {
         $form->{ $form->{vc} } =
-          qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|;
+          qq|$form->{$form->{vc}}--$form->{"$form->{vc}_id"}|
+          unless $form->{ $form->{vc} } =~ /--$form->{"$form->{vc}_id"}$/;
         for ( @{ $form->{"all_$form->{vc}"} } ) {
             $form->{"select$form->{vc}"} .=
               qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;

Modified: trunk/bin/arap.pl
===================================================================
--- trunk/bin/arap.pl	2014-03-02 14:59:21 UTC (rev 6919)
+++ trunk/bin/arap.pl	2014-03-03 13:09:21 UTC (rev 6920)
@@ -315,7 +315,6 @@
         $form->{"select$vc"} .=
           qq|<option value="$_->{name}--$_->{id}">$_->{name}\n|;
     }
-
     $form->{selectprojectnumber} = "";
     if ( @{ $form->{all_project} } ) {
         $form->{selectprojectnumber} = "<option>\n";

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


------------------------------------------------------------------------------
Subversion Kills Productivity. Get off Subversion & Make the Move to Perforce.
With Perforce, you get hassle-free workflows. Merge that actually works. 
Faster operations. Version large binaries.  Built-in WAN optimization and the
freedom to use Git, Perforce or both. Make the move to Perforce.
http://pubads.g.doubleclick.net/gampad/clk?id=122218951&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits