localize CDR column headings, #27276

[freeside.git] / FS / FS / Locales.pm

diff --git a/FS/FS/Locales.pm b/FS/FS/Locales.pm
index bf10990..6dd7c5a 100644 (file)
--- a/FS/FS/Locales.pm
+++ b/FS/FS/Locales.pm
@@ -52,7 +52,13 @@ Returns a hash of information about a locale.
 
 sub locale_info {
   my($class, $locale) = @_;
-  %{ $locales{$locale} };
+  if (!$locale) {
+    return ();
+  } elsif (exists $locales{$locale}) {
+    return %{ $locales{$locale} };
+  } else {
+    die "unsupported locale '$locale'\n";
+  }
 }
 
 =item description LOCALE