From b61851a71cfb30d6c390d39b2223e07f3a478261 Mon Sep 17 00:00:00 2001
From: Matthias Meusburger <matthias.meusburger@biblibre.com>
Date: Mon, 9 Nov 2009 10:30:08 +0100
Subject: [PATCH] MT 2040, Follow-up : Dropdown list for languages in opac

---
 .../prog/en/modules/opac-advsearch.tmpl         | 17 ++++++++++++++++-
 opac/opac-search.pl                             |  6 ++++++
 2 files changed, 22 insertions(+), 1 deletion(-)

diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/opac-advsearch.tmpl b/koha-tmpl/opac-tmpl/prog/en/modules/opac-advsearch.tmpl
index 0f1d333b9f..fe80a32cef 100644
--- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-advsearch.tmpl
+++ b/koha-tmpl/opac-tmpl/prog/en/modules/opac-advsearch.tmpl
@@ -70,7 +70,6 @@
             <option value="pn,wrdl">&nbsp;&nbsp;&nbsp;&nbsp; Personal Name</option>
             <option value="pn,phr">&nbsp;&nbsp;&nbsp;&nbsp; Personal Name Phrase</option>
 <!-- /TMPL_IF -->
-            <option value="ln">Language</option>
 <!-- TMPL_IF NAME="expanded_options" -->
             <option value="nt">Notes/Comments</option>
 <!-- /TMPL_IF -->
@@ -131,6 +130,22 @@
 	</fieldset>
     </div>
 <!-- TMPL_IF NAME="expanded_options" -->
+    <fieldset><legend>Language</label>
+<!-- LANGUAGE LIMIT -->
+                <p><label for="language-limit">Language: </label>                                        
+                <select name="limit">
+                <option value="">No Limit</option>
+                <!-- TMPL_LOOP NAME="search_languages_loop" -->
+                <!-- TMPL_IF NAME="selected" -->
+                <option value="ln,rtrn:<!-- TMPL_VAR NAME="iso639_2_code" -->" selected="selected"><!-- TMPL_VAR NAME="language_description" --></option>
+                <!-- TMPL_ELSE -->
+                <option value="ln,rtrn:<!-- TMPL_VAR NAME="iso639_2_code" -->"><!-- TMPL_VAR NAME="language_description" --></option>
+                <!-- /TMPL_IF -->
+                
+                <!-- /TMPL_LOOP -->
+                </select></p><!-- <a href="">Show all languages</a>-->
+<!-- /LANGUAGE LIMIT -->
+</fieldset>
     <!--TMPL_IF Name="usmarc"-->
         <!-- SUBTYPE LIMITS -->
             <div id="subtypes" class="container"><fieldset>
diff --git a/opac/opac-search.pl b/opac/opac-search.pl
index b920a88978..e56776e461 100755
--- a/opac/opac-search.pl
+++ b/opac/opac-search.pl
@@ -11,6 +11,7 @@ use warnings;
 use C4::Context;
 use C4::Output;
 use C4::Auth qw(:DEFAULT get_session);
+use C4::Languages qw(getAllLanguages);
 use C4::Search;
 use C4::Biblio;  # GetBiblioData
 use C4::Koha;
@@ -20,6 +21,7 @@ use POSIX qw(ceil floor strftime);
 use URI::Escape;
 use Storable qw(thaw freeze);
 
+
 # create a new CGI object
 # FIXME: no_undef_params needs to be tested
 use CGI qw('-no_undef_params');
@@ -124,6 +126,10 @@ $template->param(
     searchdomainloop => GetBranchCategories(undef,'searchdomain'),
 );
 
+# load the language limits (for search)
+my $languages_limit_loop = getAllLanguages();
+$template->param(search_languages_loop => $languages_limit_loop,);
+
 # load the Type stuff
 my $itemtypes = GetItemTypes;
 # the index parameter is different for item-level itemtypes
-- 
2.39.5