X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/5ca9d91a67b392459d042d51dbf2dbe095ad0572..53593baa211863fbf66540cf1bcc36c8fb37257f:/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;