+my $link = [ "${p}edit/msg_template.html?msgnum=", 'msgnum' ];
+
+my $locale_style = 'font-size:0.8em; padding:3px; background-color:';
+
+my (@locales, @locale_links);
+foreach my $l ( FS::Locales->locales ) {
+ push @locales, sub {
+ exists ( $_[0]->content_locales->{$l} )
+ ? +{ FS::Locales->locale_info($l) }->{'name'}
+ : '';
+ };
+ push @locale_links, sub {
+ my $content = $_[0]->content_locales->{$l} or return '';
+ [ "${p}edit/msg_template.html?locale=$l;msgnum=", 'msgnum' ];
+ };
+}
+