From e334c8699f9178a0eb324b550718358d8cf1c988 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sun, 15 Aug 2004 01:50:24 +0000
Subject: [PATCH] Commiting a sample change to the default template to allow
 users to pick their language. Just a sample template builders can look at
 this and make changes to their templates

---
 C4/Search.pm                                        |  4 ++--
 .../opac-tmpl/default/en/includes/opac-top.inc      | 10 ++++++++++
 opac/opac-search.pl                                 | 13 ++++++++++++-
 3 files changed, 24 insertions(+), 3 deletions(-)

diff --git a/C4/Search.pm b/C4/Search.pm
index 03c150ddc5..0d11b0ee39 100755
--- a/C4/Search.pm
+++ b/C4/Search.pm
@@ -2570,8 +2570,8 @@ sub breedingsearch {
 
 =item getalllanguages
 
-  (@languages) = &getalllanguages();
-  (@languages) = &getalllanguages($theme);
+  (@languages) = &getalllanguages($type);
+  (@languages) = &getalllanguages($type,$theme);
 
 Returns an array of all available languages.
 
diff --git a/koha-tmpl/opac-tmpl/default/en/includes/opac-top.inc b/koha-tmpl/opac-tmpl/default/en/includes/opac-top.inc
index 26003c866e..aa6d5f873c 100644
--- a/koha-tmpl/opac-tmpl/default/en/includes/opac-top.inc
+++ b/koha-tmpl/opac-tmpl/default/en/includes/opac-top.inc
@@ -46,3 +46,13 @@
     <p align="left"><a href="/cgi-bin/koha/opac-user.pl">Log In</a> to Koha</p>
 <!-- /TMPL_IF -->
 
+<p>
+<form action="/cgi-bin/koha/changelanguage.pl" method="post">
+<select name="language">
+<TMPL_LOOP NAME="languages">
+<option value="<TMPL_VAR NAME="language">"><TMPL_VAR NAME="language"></option>
+</TMPL_LOOP>
+</select>
+<br>
+<input type=submit value="Change Language">
+</form>
diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index e7c372912b..d57a2b33a0 100755
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -11,6 +11,7 @@ use HTML::Template;
 use C4::SearchMarc;
 use C4::Acquisition;
 use C4::Biblio;
+use C4::Search;
 
 my $classlist='';
 
@@ -174,10 +175,20 @@ if ($op eq "do_search") {
 				-size     => 1,
 				-multiple => 0 );
 	$sth->finish;
-	
+        my @options;
+    my $counter=0;
+        foreach my $language (getalllanguages()) {
+                            next if $language eq 'images';
+                            my $selected='0';
+#                            next if $currently_selected_languages->{$language};
+                            push @options, { language => $language, counter => $counter };
+                            $counter++;
+                    }
+    
 	$template->param(classlist => $classlist,
 					CGIitemtype => $CGIitemtype,
 					CGIbranch => $CGIbranch,
+	                                languages => \@options,
 	);
 }
 
-- 
2.39.2