C4::Koha - added GetAuthorisedValueCategories
[koha.git] / opac / opac-main.pl
index dfaf06d..e7b5ec3 100755 (executable)
@@ -15,7 +15,6 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id$
 
 use strict;
 require Exporter;
@@ -23,7 +22,7 @@ use CGI;
 use C4::Auth;    # get_template_and_user
 use C4::Output;
 use C4::VirtualShelves;
-use C4::Languages;       # getTranslatedLanguages
+use C4::Languages qw/getTranslatedLanguages/;
 use C4::Branch;          # GetBranches
 use C4::Members;         # GetMember
 use C4::NewsChannels;    # get_opac_news
@@ -51,7 +50,8 @@ foreach my $language (@$langavail) {
 #   next if $currently_selected_languages->{$language};
 #   FIXME: could incorporate language_name and language_locale_name for better display
     push @languages,
-      { language => $language->{'language_code'}, counter => $counter };
+      { language => $language->{'language_code'}, counter => $counter, selected=>($input->cookie('KohaOpacLanguage') ? $language->{'language_code'} eq $input->cookie('KohaOpacLanguage')
+  : $language->{'language_code'} eq C4::Context->preference('opaclanguages')) };
     $counter++;
 }
 
@@ -63,7 +63,6 @@ if ( $counter > 1 ) {
 
 $template->param(
     textmessaging        => $borrower->{textmessaging},
-    opaclanguagesdisplay => 0,
 );
 
 # display news