+my $html_init = '';
+foreach my $alocale ( FS::Locales->locales ) {
+ my %info = FS::Locales->locale_info($alocale);
+ my $selectedstart = $alocale eq $locale ? '<B>' : '';
+ my $selectedend = $alocale eq $locale ? '</B>' : '';
+ $html_init .= qq!<A HREF="msgcat.html?locale=$alocale">$selectedstart$info{name} ($info{country})$selectedend</A> !;
+}
+$html_init .= '<BR><BR>';
+