[% FOREACH l IN [ 'OpacNavRight', 'opacheader', 'OpacCustomSearch', 'OpacMainUserBlock', 'opaccredits', 'OpacLoginInstructions', 'OpacNav', 'OpacNavBottom', 'OpacSuggestionInstructions', 'ArticleRequestsDisclaimerText' ] %]

        [% FOREACH l IN [ 'OpacNavRight', 'opacheader', 'OpacCustomSearch', 'OpacMainUserBlock', 'opaccredits', 'OpacLoginInstructions', 'OpacNav', 'OpacNavBottom', 'OpacSuggestionInstructions', 'ArticleRequestsDisclaimerText', 'CustomPage' ] %]

- 

#!/usr/bin/perl

# This file is part of Koha.

#

# Copyright 2021 Aleisha Amohia <aleisha@catalyst.net.nz>

#

# Koha is free software; you can redistribute it and/or modify it

# under the terms of the GNU General Public License as published by

# the Free Software Foundation; either version 3 of the License, or

# (at your option) any later version.

#

# Koha is distributed in the hope that it will be useful, but

# WITHOUT ANY WARRANTY; without even the implied warranty of

# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the

# GNU General Public License for more details.

#

# You should have received a copy of the GNU General Public License

# along with Koha; if not, see <http://www.gnu.org/licenses>.

use Modern::Perl;

use CGI qw ( -utf8 );

use C4::Auth qw( get_template_and_user );

use C4::Output qw( output_html_with_http_headers );

use Koha::AdditionalContents;

my $input = CGI->new;

my $dbh   = C4::Context->dbh;

my ( $template, $borrowernumber, $cookie ) = get_template_and_user(

    {

        template_name   => "opac-custompages.tt",

        type            => "opac",

        query           => $input,

        authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ),

    }

);

my $casAuthentication = C4::Context->preference('casAuthentication');

$template->param(

    casAuthentication   => $casAuthentication,

);

my $homebranch;

if (C4::Context->userenv) {

    $homebranch = C4::Context->userenv->{'branch'};

}

if (defined $input->param('branch') and length $input->param('branch')) {

    $homebranch = $input->param('branch');

}

elsif (C4::Context->userenv and defined $input->param('branch') and length $input->param('branch') == 0 ){

   $homebranch = "";

}

my $news_id = $input->param('news_id');

my $koha_news;

if (defined $news_id){

    $koha_news = Koha::AdditionalContents->search({ idnew => $news_id, location => ['opac_only', 'staff_and_opac'] }); # get news that is not staff-only news

    if ( $koha_news->count > 0){

        $template->param( news_item => $koha_news->next );

    } else {

        $template->param( single_news_error => 1 );

    }

} else {

    $koha_news = Koha::AdditionalContents->search_for_display(

        {

            category   => 'news',

            location   => ['opac_only', 'staff_and_opac'],

            lang       => $template->lang,

            library_id => $homebranch,

        }

    );

}

$template->param(

    koha_news           => $koha_news,

    branchcode          => $homebranch,

    daily_quote         => Koha::Quotes->get_daily_quote(),

);

output_html_with_http_headers $input, $cookie, $template->output;