From b61851a71cfb30d6c390d39b2223e07f3a478261 Mon Sep 17 00:00:00 2001 From: Matthias Meusburger 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 @@ - @@ -131,6 +130,22 @@ +
Language + +

+

+ +
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