Bug 2505: Enabled warnings in opac-serial-issues.pl and opac-showmarc.pl
[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 with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA  02111-1307 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     # now, check is there is an alert subscription for one of the subscriptions
58     foreach (@$subscriptions) {
59         if (getalert($loggedinuser,'issue',$_->{subscriptionid})) {
60             $_->{hasalert} = 1;
61         }
62     }
63
64     my $title   = $subscriptions->[0]{bibliotitle};
65     my $yearmin = $subscriptions->[0]{year};
66     my $yearmax = $subscriptions->[ scalar(@$subscriptions) - 1 ]{year};
67
68
69     # replace CR by <br> in librarian note
70     # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
71
72     $template->param(
73         biblionumber   => $query->param('biblionumber'),
74         years          => $subscriptioninformation,
75         yearmin        => $yearmin,
76         yearmax        => $yearmax,
77         bibliotitle    => $title,
78         suggestion     => C4::Context->preference("suggestion"),
79         virtualshelves => C4::Context->preference("virtualshelves"),
80     );
81
82 }
83 else {
84     ( $template, $loggedinuser, $cookie ) = get_template_and_user(
85         {
86             template_name   => "opac-serial-issues.tmpl",
87             query           => $query,
88             type            => "opac",
89             authnotrequired => 1,
90             debug           => 1,
91         }
92     );
93
94     my $subscriptions = GetSubscriptionsFromBiblionumber($biblionumber);
95     # now, check is there is an alert subscription for one of the subscriptions
96     foreach (@$subscriptions) {
97         my $subscription = getalert($loggedinuser,'issue',$_->{subscriptionid});
98         if (@$subscription[0]) {
99             $_->{hasalert} = 1;
100         }
101     }
102
103     # replace CR by <br> in librarian note
104     # $subscription->{opacnote} =~ s/\n/\<br\/\>/g;
105
106     $template->param(
107         biblionumber      => $query->param('biblionumber'),
108         subscription_LOOP => $subscriptions,
109     );
110 }
111 output_html_with_http_headers $query, $cookie, $template->output;