X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=C4%2FLanguages.pm;h=b31812e0a26aa59ccdea23861e047c4aa3df61aa;hb=b2155fc483f09b34c4a6ba92256f2732152bb1d5;hp=9ef243958ea225d796a86ba7a9ff08d0f977fdac;hpb=593a7d8e6acc92a8bc7842d1beda2983b570613e;p=koha.git

diff --git a/C4/Languages.pm b/C4/Languages.pm
index 9ef243958e..b31812e0a2 100644
--- a/C4/Languages.pm
+++ b/C4/Languages.pm
@@ -42,6 +42,11 @@ eval {
     }
 };
 
+use Memoize;
+memoize('getTranslatedLanguages');
+memoize('getFrameworkLanguages');
+memoize('getAllLanguages');
+
 BEGIN {
     $VERSION = 3.00;
     require Exporter;
@@ -65,6 +70,8 @@ use C4::Languages;
 
 =head1 DESCRIPTION
 
+=cut
+
 =head1 FUNCTIONS
 
 =head2 getFrameworkLanguages
@@ -265,7 +272,7 @@ sub _get_language_dirs {
         next if $lang_string =~/css$/;
         next if $lang_string =~/CVS$/;
         next if $lang_string =~/\.txt$/i;     #Don't read the readme.txt !
-        next if $lang_string =~/img|images|famfam|sound/;
+        next if $lang_string =~/img|images|famfam|sound|pdf/;
         push @lang_strings, $lang_string;
     }
         return (@lang_strings);
@@ -454,7 +461,6 @@ sub get_bidi {
 
 sub accept_language {
     # referenced http://search.cpan.org/src/CGILMORE/I18N-AcceptLanguage-1.04/lib/I18N/AcceptLanguage.pm
-    # FIXME: since this is only used in Output.pm as of Jan 8 2008, maybe it should be IN Output.pm
     my ($clientPreferences,$supportedLanguages) = @_;
     my @languages = ();
     if ($clientPreferences) {