fixing help feature with new template structure
[koha.git] / 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;