opac/opac-main.pl

   1 #!/usr/bin/perl
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it under the
   6 # terms of the GNU General Public License as published by the Free Software
   7 # Foundation; either version 2 of the License, or (at your option) any later
   8 # version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
  11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
  12 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
  13 #
  14 # You should have received a copy of the GNU General Public License along with
  15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
  16 # Suite 330, Boston, MA  02111-1307 USA
  17
  18 # $Id$
  19
  20 use strict;
  21 require Exporter;
  22 use CGI;
  23 use C4::Auth;    # get_template_and_user
  24 use C4::Output;
  25 use C4::VirtualShelves;
  26 use C4::Languages;       # getTranslatedLanguages
  27 use C4::Branch;          # GetBranches
  28 use C4::Members;         # GetMember
  29 use C4::NewsChannels;    # get_opac_news
  30 use C4::Acquisition;     # GetRecentAcqui
  31
  32 my $input = new CGI;
  33 my $dbh   = C4::Context->dbh;
  34
  35 my $limit = $input->param('recentacqui');
  36
  37 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
  38     {
  39         template_name   => "opac-main.tmpl",
  40         type            => "opac",
  41         query           => $input,
  42         authnotrequired => 1,
  43         flagsrequired   => { borrow => 1 },
  44     }
  45 );
  46
  47 if ($limit) {
  48     my $recentacquiloop = GetRecentAcqui($limit);
  49
  50     #     warn Data::Dumper::Dumper($recentacquiloop);
  51     $template->param( recentacquiloop => $recentacquiloop, );
  52 }
  53
  54 # SearchMyLibraryFirst
  55 if ( C4::Context->preference("SearchMyLibraryFirst") ) {
  56     if ( C4::Context->userenv ) {
  57         my $branches = GetBranches();
  58         my @branchloop;
  59
  60         foreach my $thisbranch ( keys %$branches ) {
  61             my $selected = 1
  62               if ( C4::Context->userenv
  63                 && ( $thisbranch eq C4::Context->userenv->{branch} ) );
  64
  65 #         warn $thisbranch;
  66 #         warn C4::Context->userenv;
  67 #         warn C4::Context->userenv->{branch};
  68 #         warn " => ".C4::Context->userenv && ($thisbranch eq C4::Context->userenv->{branch});
  69             my %row = (
  70                 value      => $thisbranch,
  71                 selected   => $selected,
  72                 branchname => $branches->{$thisbranch}->{'branchname'},
  73             );
  74             push @branchloop, \%row;
  75         }
  76         $template->param( "mylibraryfirst" => 1, branchloop => \@branchloop );
  77     }
  78     else {
  79         $template->param( "mylibraryfirst" => 0 );
  80     }
  81 }
  82
  83 my $borrower = GetMember( $borrowernumber, 'borrowernumber' );
  84 my @languages;
  85 my $counter   = 0;
  86 my $langavail = getTranslatedLanguages('opac');
  87 foreach my $language (@$langavail) {
  88
  89 #   next if $currently_selected_languages->{$language};
  90 #   FIXME: could incorporate language_name and language_locale_name for better display
  91     push @languages,
  92       { language => $language->{'language_code'}, counter => $counter };
  93     $counter++;
  94 }
  95
  96 # Template params
  97 if ( $counter > 1 ) {
  98     $template->param( languages => \@languages )
  99       if C4::Context->preference('opaclanguagesdisplay');
 100 }
 101
 102 $template->param(
 103     textmessaging        => $borrower->{textmessaging},
 104     opaclanguagesdisplay => 0,
 105 );
 106
 107 # display news
 108 # use cookie setting for language, bug default to syspref if it's not set
 109 my $news_lang = $input->cookie('KohaOpacLanguage')
 110   || C4::Context->preference('opaclanguages');
 111 my $all_koha_news   = &GetNewsToDisplay($news_lang);
 112 my $koha_news_count = scalar @$all_koha_news;
 113
 114 $template->param(
 115     koha_news       => $all_koha_news,
 116     koha_news_count => $koha_news_count
 117 );
 118
 119 $template->param(
 120     'Disable_Dictionary' => C4::Context->preference("Disable_Dictionary") )
 121   if ( C4::Context->preference("Disable_Dictionary") );
 122
 123 output_html_with_http_headers $input, $cookie, $template->output;