SF.net SVN: ledger-smb:[4474] branches/1.3

[..hidden..]

Revision: 4474
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4474&view=rev
Author:   einhverfr
Date:     2012-03-15 10:10:55 +0000 (Thu, 15 Mar 2012)
Log Message:
-----------
New user now defaults to country selected on COA screen

Modified Paths:
--------------
    branches/1.3/Changelog
    branches/1.3/UI/setup/new_user.html
    branches/1.3/scripts/setup.pl

Modified: branches/1.3/Changelog
===================================================================
--- branches/1.3/Changelog	2012-03-15 09:42:13 UTC (rev 4473)
+++ branches/1.3/Changelog	2012-03-15 10:10:55 UTC (rev 4474)
@@ -9,6 +9,7 @@
 * Corrected erroneous directory transversal denial (Chris T, bug 3504924)
 * Added recon data to Norwegian chart of accounts (h/t H. Sorli) (Chris T)
 * Fixed some menu items disappearing after upgrade (Chris T, bug 3504934)
+* Added default to country for initial setup (Chris T, bug 3496967)
 
 Andres B is Andres Basile
 

Modified: branches/1.3/UI/setup/new_user.html
===================================================================
--- branches/1.3/UI/setup/new_user.html	2012-03-15 09:42:13 UTC (rev 4473)
+++ branches/1.3/UI/setup/new_user.html	2012-03-15 10:10:55 UTC (rev 4474)
@@ -89,6 +89,7 @@
           options = countries
         text_attr = 'name'
        value_attr = 'id'
+   default_values = [country_id]
              name = 'country_id'
             label = 'Country'
 } ?>

Modified: branches/1.3/scripts/setup.pl
===================================================================
--- branches/1.3/scripts/setup.pl	2012-03-15 09:42:13 UTC (rev 4473)
+++ branches/1.3/scripts/setup.pl	2012-03-15 10:10:55 UTC (rev 4474)
@@ -633,6 +633,11 @@
     @{$request->{countries}} 
     = $request->call_procedure(procname => 'location_list_country' ); 
 
+    for my $country (@{$request->{countries}}){
+        if (lc($request->{coa_lc}) eq lc($country->{short_name})){
+           $request->{country_id} = $country->{id};
+        }
+    }
     my $locale = $request->{_locale};
 
     @{$request->{perm_sets}} = (

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