Line 0
Link Here
|
0 |
- |
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 |
15 |
# with Koha; if not, write to the Free Software Foundation, Inc., |
16 |
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. |
17 |
|
18 |
|
19 |
use strict; |
20 |
use warnings; |
21 |
use CGI; |
22 |
use C4::Auth; # get_template_and_user |
23 |
use C4::Output; |
24 |
use C4::NewsChannels; # get_opac_news |
25 |
use C4::Languages qw(getTranslatedLanguages accept_language); |
26 |
use C4::Koha qw( GetDailyQuote ); |
27 |
|
28 |
my $input = new CGI; |
29 |
my $dbh = C4::Context->dbh; |
30 |
|
31 |
my ( $template, $borrowernumber, $cookie ) = get_template_and_user( |
32 |
{ |
33 |
template_name => "pages.tt", |
34 |
type => "opac", |
35 |
query => $input, |
36 |
authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), |
37 |
flagsrequired => { borrow => 1 }, |
38 |
} |
39 |
); |
40 |
|
41 |
my $casAuthentication = C4::Context->preference('casAuthentication'); |
42 |
$template->param( |
43 |
casAuthentication => $casAuthentication, |
44 |
); |
45 |
|
46 |
|
47 |
# display news |
48 |
# use cookie setting for language, bug default to syspref if it's not set |
49 |
my ($theme, $news_lang, $availablethemes) = C4::Templates::themelanguage(C4::Context->config('opachtdocs'),'opac-main.tt','opac',$input); |
50 |
|
51 |
my $all_koha_news = &GetNewsToDisplay($news_lang); |
52 |
my $koha_news_count = scalar @$all_koha_news; |
53 |
|
54 |
my $quote = GetDailyQuote(); # other options are to pass in an exact quote id or select a random quote each pass... see perldoc C4::Koha |
55 |
|
56 |
$template->param( |
57 |
koha_news => $all_koha_news, |
58 |
koha_news_count => $koha_news_count, |
59 |
display_daily_quote => C4::Context->preference('QuoteOfTheDay'), |
60 |
daily_quote => $quote, |
61 |
); |
62 |
|
63 |
my $page = "page_" . $input->param('p'); # go for "p" value in URL and do the concatenation |
64 |
my $preference = C4::Context->preference($page); # Go for preference |
65 |
$template->{VARS}->{'page_test'} = $preference; # pass variable to template pages.tt |
66 |
|
67 |
# If GoogleIndicTransliteration system preference is On Set paramter to load Google's javascript in OPAC search screens |
68 |
if (C4::Context->preference('GoogleIndicTransliteration')) { |
69 |
$template->param('GoogleIndicTransliteration' => 1); |
70 |
} |
71 |
|
72 |
if (C4::Context->preference('OPACNumbersPreferPhrase')) { |
73 |
$template->param('numbersphr' => 1); |
74 |
} |
75 |
|
76 |
output_html_with_http_headers $input, $cookie, $template->output; |