fixing help feature with new template structure
[koha.git] / opac / opac-alert-subscribe.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 # $Id$
21
22 use strict;
23 use CGI;
24 use C4::Auth;
25 use C4::Date;
26 use C4::Output;
27 use C4::Context;
28 use C4::Koha;
29 use C4::Letters;
30 use C4::Serials;
31
32
33 my $query = new CGI;
34 my $op    = $query->param('op');
35 my $dbh   = C4::Context->dbh;
36
37 my $sth;
38 my ( $template, $loggedinuser, $cookie );
39 my $externalid   = $query->param('externalid');
40 my $alerttype    = $query->param('alerttype');
41 my $biblionumber = $query->param('biblionumber');
42
43 ( $template, $loggedinuser, $cookie ) = get_template_and_user(
44     {
45         template_name   => "opac-alert-subscribe.tmpl",
46         query           => $query,
47         type            => "opac",
48         authnotrequired => 1,
49         debug           => 1,
50     }
51 );
52
53 if ( $op eq 'alert_confirmed' ) {
54     addalert( $loggedinuser, $alerttype, $externalid );
55     if ( $alerttype eq 'issue' ) {
56         print $query->redirect(
57             "opac-serial-issues.pl?biblionumber=$biblionumber");
58         exit;
59     }
60 }
61 elsif ( $op eq 'cancel_confirmed' ) {
62     my $alerts = getalert( $loggedinuser, $alerttype, $externalid );
63     foreach (@$alerts)
64     {    # we are supposed to have only 1 result, but just in case...
65         delalert( $_->{alertid} );
66     }
67     if ( $alerttype eq 'issue' ) {
68         print $query->redirect(
69             "opac-serial-issues.pl?biblionumber=$biblionumber");
70         exit;
71     }
72
73 }
74 else {
75     if ( $alerttype eq 'issue' ) {    # alert for subscription issues
76         my $subscription = &GetSubscription($externalid);
77         $template->param(
78             "typeissue$op" => 1,
79             bibliotitle    => $subscription->{bibliotitle},
80             notes          => $subscription->{notes},
81             externalid     => $externalid,
82             biblionumber   => $biblionumber,
83         );
84     }
85     else {
86     }
87
88 }
89 output_html_with_http_headers $query, $cookie, $template->output;