From 89d0613d01b9a699c62745bc58e97f29a088f901 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 30 Dec 2005 10:53:42 +0000
Subject: [PATCH] excluding images and stylesheets from language list

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

diff --git a/C4/Koha.pm b/C4/Koha.pm
index 59474ad90d..2a6e6db828 100644
--- a/C4/Koha.pm
+++ b/C4/Koha.pm
@@ -550,6 +550,8 @@ sub getalllanguages {
 	    foreach my $language (readdir D) {
 		next if $language=~/^\./;
 		next if $language eq 'all';
+		next if $language=~ /png$/;
+		next if $language=~ /css$/;
 		push @languages, $language;
 	    }
 	    return sort @languages;
@@ -560,6 +562,8 @@ sub getalllanguages {
 		foreach my $language (readdir D) {
 		    next if $language=~/^\./;
 		    next if $language eq 'all';
+			next if $language=~ /png$/;
+			next if $language=~ /css$/;
 		    $lang->{$language}=1;
 		}
 	    }
@@ -573,6 +577,8 @@ sub getalllanguages {
 	    foreach my $language (readdir D) {
 		next if $language=~/^\./;
 		next if $language eq 'all';
+		next if $language=~ /png$/;
+		next if $language=~ /css$/;
 		push @languages, $language;
 	    }
 	    return sort @languages;
@@ -583,6 +589,8 @@ sub getalllanguages {
 		foreach my $language (readdir D) {
 		    next if $language=~/^\./;
 		    next if $language eq 'all';
+			next if $language=~ /png$/;
+			next if $language=~ /css$/;
 		    $lang->{$language}=1;
 		}
 	    }
@@ -597,6 +605,8 @@ sub getalllanguages {
 	    foreach my $language (readdir D) {
 		next if $language=~/^\./;
 		next if $language eq 'all';
+		next if $language=~ /png$/;
+		next if $language=~ /css$/;
 		$lang->{$language}=1;
 	    }
 	}
@@ -606,6 +616,8 @@ sub getalllanguages {
 	    foreach my $language (readdir D) {
 		next if $language=~/^\./;
 		next if $language eq 'all';
+		next if $language=~ /png$/;
+		next if $language=~ /css$/;
 		$lang->{$language}=1;
 	    }
 	}
-- 
2.39.5