projects
/
freeside.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
bab5583
)
- Limit languages on preferences to only those available-locales.
author
Fernando Kiernan
<fkiernan@id.net.ar>
Sat, 18 Jan 2014 20:16:43 +0000
(17:16 -0300)
committer
Fernando Kiernan
<fkiernan@id.net.ar>
Tue, 22 Mar 2016 01:07:14 +0000
(22:07 -0300)
httemplate/pref/pref.html
patch
|
blob
|
history
diff --git
a/httemplate/pref/pref.html
b/httemplate/pref/pref.html
index
50d6e8d
..
48ec129
100644
(file)
--- a/
httemplate/pref/pref.html
+++ b/
httemplate/pref/pref.html
@@
-36,7
+36,7
@@
Interface
<TH ALIGN="right">Locale: </TH>
<TD COLSPAN=2>
<SELECT NAME="locale">
<TH ALIGN="right">Locale: </TH>
<TD COLSPAN=2>
<SELECT NAME="locale">
-% foreach my $locale (
FS::Locales->
locales ) {
+% foreach my $locale (
@
locales ) {
% my %info = FS::Locales->locale_info($locale);
% my $selected = ($locale eq $curuser->option('locale'))
% ? 'SELECTED' : '';
% my %info = FS::Locales->locale_info($locale);
% my $selected = ($locale eq $curuser->option('locale'))
% ? 'SELECTED' : '';
@@
-282,4
+282,14
@@
my $menu_position = $1;
=~ /^([,\w\@.\-]*)$/ or die "illegal email_address"; #too late
my $email_address = $1;
=~ /^([,\w\@.\-]*)$/ or die "illegal email_address"; #too late
my $email_address = $1;
+my $conf = new FS::Conf;
+
+my @locales = $conf->config('available-locales');
+
+if ( ! @locales ) {
+
+ @locales = FS::Locales->locales ;
+
+}
+
</%init>
</%init>