Languages.pm - BEGIN block VERSION and vars related to export.
[koha.git] / C4 / Languages.pm
index 562a644..06b12d3 100644 (file)
@@ -19,11 +19,24 @@ package C4::Languages;
 # Suite 330, Boston, MA  02111-1307 USA
 
 
-use strict; use warnings; #FIXME: turn off warnings before release
-require Exporter;
+use strict; 
+use warnings;  #FIXME: turn off warnings before release
 use C4::Context;
 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
 
+BEGIN {
+       $VERSION = 3.00;
+       require Exporter;
+       @ISA    = qw(Exporter);
+       @EXPORT = qw(
+               &getFrameworkLanguages
+               &getTranslatedLanguages
+               &getAllLanguages
+       );
+       @EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages get_bidi regex_lang_subtags language_get_description accept_language);
+       $DEBUG = 0;
+}
+
 =head1 NAME
 
 C4::Languages - Perl Module containing language list functions for Koha 
@@ -36,12 +49,6 @@ use C4::Languages;
 
 =head1 FUNCTIONS
 
-=cut
-$VERSION = 3.00;
-@ISA = qw(Exporter);
-@EXPORT_OK = qw(getFrameworkLanguages getTranslatedLanguages getAllLanguages get_bidi regex_lang_subtags language_get_description accept_language);
-my $DEBUG = 0;
-
 =head2 getFrameworkLanguages
 
 Returns a reference to an array of hashes:
@@ -233,7 +240,7 @@ sub _get_language_dirs {
         next if $language =~/css$/;
         next if $language =~/CVS$/;
         next if $language =~/\.txt$/i;     #Don't read the readme.txt !
-               next if $language =~/img/;
+               next if $language =~/img|images/;
         push @languages, $language;
     }
         return (@languages);