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

[..hidden..]

Revision: 6703
          http://sourceforge.net/p/ledger-smb/code/6703
Author:   einhverfr
Date:     2014-01-29 07:42:13 +0000 (Wed, 29 Jan 2014)
Log Message:
-----------
fixing currency/exchange rate returning to defaults when updating.  To merge with 1.3 after 1.3.37 is released

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

Modified: trunk/Changelog
===================================================================
--- trunk/Changelog	2014-01-29 07:02:14 UTC (rev 6702)
+++ trunk/Changelog	2014-01-29 07:42:13 UTC (rev 6703)
@@ -107,6 +107,9 @@
 Initial Release:  Monday, Oct 12 2011
 Supported Presently
 
+Changelog for 1.3.38
+* Fixed AR/AP transactions resetting currency/exchange rate (Chris T)
+
 Changelog for 1.3.37
 * 1.3-1.2 downgrade now drops extensions (Chris T, 943)
 * Fixed db names with spaces not supported (Chris T, 946)

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2014-01-29 07:02:14 UTC (rev 6702)
+++ trunk/bin/aa.pl	2014-01-29 07:42:13 UTC (rev 6703)
@@ -217,8 +217,12 @@
                      unless  $form->{selectcurrency} =~ /<option[^>]*>$_/
     }
 
-    AA->get_name( \%myconfig, \%$form );
+    my $vc = $form->{vc};
 
+    AA->get_name( \%myconfig, \%$form ) 
+            unless $form->{"old$vc"} eq $form->{$vc} 
+                    or $form->{"old$vc"} =~ /^\Q$form->{$vc}\E--/;
+
     $form->{currency} =~ s/ //g;
     $form->{duedate}     = $duedate     if $duedate;
     $form->{crdate}      = $crdate      if $crdate;

Modified: trunk/bin/arap.pl
===================================================================
--- trunk/bin/arap.pl	2014-01-29 07:02:14 UTC (rev 6702)
+++ trunk/bin/arap.pl	2014-01-29 07:42:13 UTC (rev 6703)
@@ -94,7 +94,6 @@
              or !$form->{"${name}_id"}
         )
         {
-
             # this is needed for is, ir and oe
             for ( split / /, $form->{taxaccounts} ) {
                 delete $form->{"${_}_rate"};

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


------------------------------------------------------------------------------
WatchGuard Dimension instantly turns raw network data into actionable 
security intelligence. It gives you real-time visual feedback on key
security issues and trends.  Skip the complicated setup - simply import
a virtual appliance and go from zero to informed in seconds.
http://pubads.g.doubleclick.net/gampad/clk?id=123612991&iu=/4140/ostg.clktrk
_______________________________________________
Ledger-smb-commits mailing list
..hidden..
https://lists.sourceforge.net/lists/listinfo/ledger-smb-commits