Merge remote branch 'kc/new/enh/bug_5917' into kcmaster
[wip/koha-chris_n.git] / opac / opac-serial-issues.pl
1 #!/usr/bin/perl
2
3 # Copyright 2000-2002 Katipo Communications
4 #
5 # This file is part of Koha.
6 #
7 # Koha is free software; you can redistribute it and/or modify it under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
10 # version.
11 #
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE.  See the GNU General Public License for more details.
15 #
16 # You should have received a copy of the GNU General Public License along
17 # with Koha; if not, write to the Free Software Foundation, Inc.,
18 # 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
19
20
21 use strict;
22 use warnings;
23
24 use CGI;
25 use C4::Auth;
26 use C4::Koha;
27 use C4::Dates;
28 use C4::Serials;
29 use C4::Letters;
30 use C4::Output;
31 use C4::Context;
32
33
34 my $query      = new CGI;
35 my $op         = $query->param('op');
36 my $dbh        = C4::Context->dbh;
37 my $selectview = $query->param('selectview');
38 $selectview = C4::Context->preference("SubscriptionHistory") unless $selectview;
39
40 my $sth;
41
42 # my $id;
43 my ( $template, $loggedinuser, $cookie );
44 my $biblionumber = $query->param('biblionumber');
45 if ( $selectview eq "full" ) {
46     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
47         {
48             template_name   => "opac-full-serial-issues.tmpl",
49             query           => $query,
50             type            => "opac",
51             authnotrequired => 1,
52             debug           => 1,
53         }
54     );
55     my $subscriptions = GetFullSubscriptionsFromBiblionumber($biblionumber);
56     my $subscriptioninformation=PrepareSerialsData($subscriptions);
57     # PrepareSerialsData does some bogus stuff that the template could handle
58     # But at least it sorts the array by the year field so we dont have to
59     # find 'manage' if its there
60     if ($subscriptioninformation->[0]->{year} eq 'manage') {
61         shift @{$subscriptioninformation};
62     }
63
64     # now, check is there is an alert subscription for one of the subscriptions
65     foreach (@$subscriptions) {
66         if (getalert($loggedinuser,'issue',$_->{subscriptionid})) {
67             $_->{hasalert} = 1;
68         }
69     }
70
71     my $title   = $subscriptions->[0]->{bibliotitle};
72     my $yearmin = $subscriptions->[0]->{year};
73     my $yearmax = $subscriptions->[ -1 ]->{year};
74
75
76     # replace CR by <br> in librarian note
77     # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
78
79     $template->param(
80         biblionumber   => $query->param('biblionumber'),
81         years          => $subscriptioninformation,
82         yearmin        => $yearmin,
83         yearmax        => $yearmax,
84         bibliotitle    => $title,
85         suggestion     => C4::Context->preference("suggestion"),
86         virtualshelves => C4::Context->preference("virtualshelves"),
87     );
88
89 }
90 else {
91     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
92         {
93             template_name   => "opac-serial-issues.tmpl",
94             query           => $query,
95             type            => "opac",
96             authnotrequired => 1,
97             debug           => 1,
98         }
99     );
100
101     my $subscriptions = GetSubscriptionsFromBiblionumber($biblionumber);
102     # now, check is there is an alert subscription for one of the subscriptions
103     foreach (@$subscriptions) {
104         my $subscription = getalert($loggedinuser,'issue',$_->{subscriptionid});
105         if (@$subscription[0]) {
106             $_->{hasalert} = 1;
107         }
108     }
109
110     # replace CR by <br> in librarian note
111     # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
112
113     $template->param(
114         biblionumber      => $query->param('biblionumber'),
115         subscription_LOOP => $subscriptions,
116     );
117 }
118 output_html_with_http_headers $query, $cookie, $template->output;