b056f93c4d
To test : 1) Search for a subscription with patron notification active 2) If you're not logged in, a message warns you that you must log in to subscribe to notification on new issues 3) If you log in, and have not yet subscribed to this routing list, you've got a link to subscribe 4) Once you have subscribed, you've got a link to unsubscribe 5) If you log out, you've got a message saying you must log in to subscribe 6) If you log in with another user, you've got the link to subscribe or unsubscribe depending on if he has already subscribed. Signed-off-by: remy juliette <remy.gonzalves@iepg.fr> Signed-off-by: Aurelie Fichot <aurelie.fichot@iepg.fr> Signed-off-by: Katrin Fischer <Katrin.Fischer.83@web.de> Signed-off-by: Galen Charlton <gmc@esilibrary.com>
122 lines
3.9 KiB
Perl
Executable file
122 lines
3.9 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2000-2002 Katipo Communications
|
|
#
|
|
# 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::Koha;
|
|
use C4::Dates;
|
|
use C4::Serials;
|
|
use C4::Letters;
|
|
use C4::Output;
|
|
use C4::Context;
|
|
|
|
|
|
my $query = new CGI;
|
|
my $op = $query->param('op');
|
|
my $dbh = C4::Context->dbh;
|
|
my $selectview = $query->param('selectview');
|
|
$selectview = C4::Context->preference("SubscriptionHistory") unless $selectview;
|
|
|
|
my $sth;
|
|
|
|
# my $id;
|
|
my ( $template, $loggedinuser, $cookie );
|
|
my $biblionumber = $query->param('biblionumber');
|
|
if ( $selectview eq "full" ) {
|
|
( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "opac-full-serial-issues.tmpl",
|
|
query => $query,
|
|
type => "opac",
|
|
authnotrequired => 1,
|
|
debug => 1,
|
|
}
|
|
);
|
|
my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
|
|
my $subscriptioninformation=PrepareSerialsData($subscriptions);
|
|
# PrepareSerialsData does some bogus stuff that the template could handle
|
|
# But at least it sorts the array by the year field so we dont have to
|
|
# find 'manage' if its there
|
|
if ($subscriptioninformation->[0]->{year} eq 'manage') {
|
|
shift @{$subscriptioninformation};
|
|
}
|
|
|
|
# now, check is there is an alert subscription for one of the subscriptions
|
|
if ($loggedinuser) {
|
|
foreach (@$subscriptions) {
|
|
if (getalert($loggedinuser,'issue',$_->{subscriptionid})) {
|
|
$_->{hasalert} = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
my $title = $subscriptions->[0]->{bibliotitle};
|
|
my $yearmin = $subscriptions->[0]->{year};
|
|
my $yearmax = $subscriptions->[ -1 ]->{year};
|
|
|
|
|
|
# replace CR by <br> in librarian note
|
|
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
|
|
|
|
$template->param(
|
|
biblionumber => $query->param('biblionumber'),
|
|
years => $subscriptioninformation,
|
|
yearmin => $yearmin,
|
|
yearmax => $yearmax,
|
|
bibliotitle => $title,
|
|
suggestion => C4::Context->preference("suggestion"),
|
|
virtualshelves => C4::Context->preference("virtualshelves"),
|
|
);
|
|
|
|
}
|
|
else {
|
|
( $template, $loggedinuser, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "opac-serial-issues.tmpl",
|
|
query => $query,
|
|
type => "opac",
|
|
authnotrequired => 1,
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
my $subscriptions = GetSubscriptionsFromBiblionumber($biblionumber);
|
|
# now, check is there is an alert subscription for one of the subscriptions
|
|
if ($loggedinuser){
|
|
foreach (@$subscriptions) {
|
|
my $subscription = getalert($loggedinuser,'issue',$_->{subscriptionid});
|
|
if (@$subscription[0]) {
|
|
$_->{hasalert} = 1;
|
|
}
|
|
}
|
|
}
|
|
|
|
# replace CR by <br> in librarian note
|
|
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
|
|
|
|
$template->param(
|
|
biblionumber => $query->param('biblionumber'),
|
|
subscription_LOOP => $subscriptions,
|
|
);
|
|
}
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|