[Koha-cvs] koha/C4 Koha.pm [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	05/12/30 10:53:42

Modified files:
	C4             : Koha.pm 

Log message:
	excluding images and stylesheets from language list

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Koha.pm.diff?only_with_tag=rel_2_2&tr1=1.22.2.2&tr2=1.22.2.3&r1=text&r2=text

Patches:
Index: koha/C4/Koha.pm
diff -u koha/C4/Koha.pm:1.22.2.2 koha/C4/Koha.pm:1.22.2.3
--- koha/C4/Koha.pm:1.22.2.2	Mon Nov 21 17:10:37 2005
+++ koha/C4/Koha.pm	Fri Dec 30 10:53:42 2005
@@ -550,6 +550,8 @@
 	    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 @@
 		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 @@
 	    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 @@
 		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 @@
 	    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 @@
 	    foreach my $language (readdir D) {
 		next if $language=~/^\./;
 		next if $language eq 'all';
+		next if $language=~ /png$/;
+		next if $language=~ /css$/;
 		$lang->{$language}=1;
 	    }
 	}