From 83053569b3d965924e2e1d4f5b199609ec7c29af Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Wed, 11 May 2011 16:20:13 +0000
Subject: i18n, RT#12515

---
 httemplate/pref/pref-process.html |  4 ++--
 httemplate/pref/pref.html         | 14 ++++++++++++++
 2 files changed, 16 insertions(+), 2 deletions(-)

(limited to 'httemplate/pref')

diff --git a/httemplate/pref/pref-process.html b/httemplate/pref/pref-process.html
index 897be252c..0ee48fd9e 100644
--- a/httemplate/pref/pref-process.html
+++ b/httemplate/pref/pref-process.html
@@ -21,7 +21,7 @@ if ( grep { $cgi->param($_) !~ /^\s*$/ }
 
   $access_user = qsearchs( 'access_user', {
     'username'  => getotaker,
-    '_password' => $cgi->param('_password'),
+    '_password' => scalar($cgi->param('_password')),
   } );
 
   $error = 'Current password incorrect; password not changed'
@@ -48,7 +48,7 @@ unless ( $error ) { # if ($access_user) {
   my %param = $access_user->options;
 
   #XXX autogen
-  my @paramlist = qw( menu_position default_customer_view
+  my @paramlist = qw( locale menu_position default_customer_view
                       disable_html_editor
                       email_address
                       snom-ip snom-username snom-password
diff --git a/httemplate/pref/pref.html b/httemplate/pref/pref.html
index c7083e9d0..da8b42867 100644
--- a/httemplate/pref/pref.html
+++ b/httemplate/pref/pref.html
@@ -30,6 +30,20 @@ Change password (leave blank for no change)
 Interface
 <% ntable("#cccccc",2) %>
 
+  <TR>
+    <TH ALIGN="right">Locale: </TH>
+    <TD>
+      <SELECT NAME="locale">
+%       foreach my $locale ( FS::Locales->locales ) {
+%         my %info = FS::Locales->locale_info($locale);
+%         my $selected = ($locale eq $curuser->option('locale'))
+%                          ? 'SELECTED' : '';
+          <OPTION VALUE="<% $locale %>" <%$selected%>><% $info{name} %> (<% $info{country} %>)
+%       }
+      </SELECT>
+    </TD>
+  </TR>
+
   <TR>
     <TH ALIGN="right">Menu location: </TH>
     <TD>
-- 
cgit v1.2.1