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

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  06/09/07 22:01:42

Modified files:
        C4             : Koha.pm 

Log message:
        adding displayLanguages routine

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Koha.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.22.2.4.2.1&r2=1.22.2.4.2.2

Patches:
Index: Koha.pm
===================================================================
RCS file: /sources/koha/koha/C4/Koha.pm,v
retrieving revision 1.22.2.4.2.1
retrieving revision 1.22.2.4.2.2
diff -u -b -r1.22.2.4.2.1 -r1.22.2.4.2.2
--- Koha.pm     10 Aug 2006 02:10:21 -0000      1.22.2.4.2.1
+++ Koha.pm     7 Sep 2006 22:01:42 -0000       1.22.2.4.2.2
@@ -18,9 +18,10 @@
 # Suite 330, Boston, MA  02111-1307 USA
 
 use strict;
+use warnings; no warnings 'uninitialized';
 require Exporter;
 use C4::Context;
-
+use C4::Output;
 use vars qw($VERSION @ISA @EXPORT);
 
 $VERSION = 0.01;
@@ -62,6 +63,7 @@
                        &getauthtypes &getauthtype
                        &getallthemes &getalllanguages
                        &getallbranches 
+                       &displayLanguages
                        $DEBUG);
 
 use vars qw();
@@ -653,6 +655,29 @@
 }
 
 
+sub displayLanguages {
+       my ($cgi) = @_;
+    my @languages_options;
+    my $languages_hash = {de => 'Deutsch', en => 'English', es => 
'Espa&ntilde;ol', fr => 'Fran&ccedil;ais', pl => 'Polski', "zh-TW" => 
'&#20013;&#25991;', it => 'Italiano',};
+    my $counter=0;
+    foreach my $language (getalllanguages()) {
+        next if $language eq 'images';
+        next if $language eq 'itemtypeimg';
+        next if $language eq 'CVS';
+        next if $language=~ /png$/;
+        next if $language=~ /css$/;
+        my $label = $languages_hash->{$language};
+        my $selected='0';
+               my $htdocs = C4::Context->config('opacdocs');
+               my ($current_theme,$current_language) = 
themelanguage("opachtdocs", "default", "opac", $cgi);
+               my $current=1 if $current_language eq $language;
+#                            next if 
$currently_selected_languages->{$language};
+        push @languages_options, { label => $label, language => $language, 
counter => $counter, current => $current};
+        $counter++;
+    }
+    return @languages_options;
+}
+
 1;
 __END__