+ <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>
+