[% ELSE %]

[% END %] +

+[% INCLUDE 'masthead.inc' %] + +

Blocked

[% blockedmessage %]

+[% IF ( OpacNav ) %] +

+[% INCLUDE 'navigation.inc' %] +

[% END %] +

+[% INCLUDE 'opac-bottom.inc' %] diff --git a/opac/opac-blocked.pl b/opac/opac-blocked.pl new file mode 100755 index 0000000..5926753 --- /dev/null +++ b/opac/opac-blocked.pl @@ -0,0 +1,39 @@ +#!/usr/bin/perl + +# This file is part of Koha. +# +# 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 2 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, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA + + +use strict; +use warnings; +use CGI; +use C4::Auth; +use C4::Output; +use C4::Context; + +my $query = new CGI; +my ( $template, $borrowernumber, $cookie ) = get_template_and_user( + { + template_name => "opac-blocked.tt", + query => $query, + type => "opac", + authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), + } +); + +my $blockedmessage = "You don't have permission to see this record."; + +$template->param( blockedmessage => $blockedmessage ); +output_with_http_headers $query, $cookie, $template->output, 'html'; diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index 9d0851f..e921c7e 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -78,6 +78,31 @@ if ( ! $record ) { print $query->redirect("/cgi-bin/koha/errors/404.pl"); # escape early exit; } + +# redirect if opacsuppression is enabled and biblio is suppressed +if (C4::Context->preference('OpacSuppression')) { + my $opacsuppressionfield = '942'; + my $opacsuppressionfieldvalue = $record->field($opacsuppressionfield); + # if OPAC suppression by IP address + if (C4::Context->preference('OpacSuppressionByIPRange')) { + my $IPAddress = $ENV{'REMOTE_ADDR'}; + my $IPRange = C4::Context->preference('OpacSuppressionByIPRange'); + if ($IPAddress !~ /^$IPRange/) { + if ( $opacsuppressionfieldvalue->subfield("n") == 1) { + print $query->redirect("/cgi-bin/koha/opac-blocked.pl"); + exit; + } + } + } + else { + if ( $opacsuppressionfieldvalue->subfield("n") == 1) { + print $query->redirect("/cgi-bin/koha/opac-blocked.pl"); + exit; + } + } +} + + $template->param( biblionumber => $biblionumber ); # get biblionumbers stored in the cart -- 1.7.2.5