[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 <address@hidden>   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;
            }
        }