X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/a4d4aaa15dbe5d4c050049186c6d4b762dfa52fb..78282bbdb5aa14ae9ad830a5b6cca75f90fb4451:/SL/Locale.pm

diff --git a/SL/Locale.pm b/SL/Locale.pm
index 9257e6ca7..3b91502d5 100644
--- a/SL/Locale.pm
+++ b/SL/Locale.pm
@@ -74,6 +74,12 @@ sub new {
   return $locales_by_country{$country}
 }
 
+sub is_supported {
+  my ($country) = @_;
+
+  return -f "locale/$country/all";
+}
+
 sub _init {
   my $self     = shift;
   my $country  = shift;