From 6abda1a9184916868f51239f9164e57e321d78dd Mon Sep 17 00:00:00 2001
From: toins <toins>
Date: Thu, 10 Aug 2006 12:54:45 +0000
Subject: [PATCH] add a filter on text file.

---
 C4/Koha.pm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 41d6c88796..0792a572de 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -619,6 +619,7 @@ sub getalllanguages {
                 next if $language=~ /css$/;
                 next if $language=~ /CVS$/;
                 next if $language=~ /itemtypeimg$/;
+		next if $language=~ /\.txt$/i; #Don't read the readme.txt !
                 push @languages, $language;
             }
             return sort @languages;
@@ -633,6 +634,7 @@ sub getalllanguages {
                     next if $language=~ /css$/;
                     next if $language=~ /CVS$/;
                     next if $language=~ /itemtypeimg$/;
+		    next if $language=~ /\.txt$/i; #Don't read the readme.txt !
                     $lang->{$language}=1;
                 }
             }
@@ -650,6 +652,7 @@ sub getalllanguages {
                 next if $language=~ /css$/;
                 next if $language=~ /CVS$/;
                 next if $language=~ /itemtypeimg$/;
+                next if $language=~ /\.txt$/i; #Don't read the readme.txt !
                 push @languages, $language;
             }
             return sort @languages;
@@ -664,6 +667,7 @@ sub getalllanguages {
                     next if $language=~ /css$/;
                     next if $language=~ /CVS$/;
                     next if $language=~ /itemtypeimg$/;
+		    next if $language=~ /\.txt$/i; #Don't read the readme.txt !
                     $lang->{$language}=1;
                 }
             }
@@ -682,6 +686,7 @@ sub getalllanguages {
                 next if $language=~ /css$/;
                 next if $language=~ /CVS$/;
                 next if $language=~ /itemtypeimg$/;
+		next if $language=~ /\.txt$/i; #Don't read the readme.txt !
                 $lang->{$language}=1;
             }
         }
@@ -695,6 +700,7 @@ sub getalllanguages {
             next if $language=~ /css$/;
             next if $language=~ /CVS$/;
             next if $language=~ /itemtypeimg$/;
+	    next if $language=~ /\.txt$/i; #Don't read the readme.txt !
             $lang->{$language}=1;
             }
         }
-- 
2.39.5