Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100755 40 lines (31 sloc) 1.229 kb
4915ed7 New files, and changes to add associated webstes to a biblio.
truth_nz authored
1 #!/usr/bin/perl
2
1e67687 Added copyright statement to all .pl and .pm files
tonnesen authored
3
4 # Copyright 2000-2002 Katipo Communications
5 #
6 # This file is part of Koha.
7 #
8 # Koha is free software; you can redistribute it and/or modify it under the
9 # terms of the GNU General Public License as published by the Free Software
10 # Foundation; either version 2 of the License, or (at your option) any later
11 # version.
12 #
13 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
14 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
15 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 #
17 # You should have received a copy of the GNU General Public License along with
18 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
19 # Suite 330, Boston, MA 02111-1307 USA
20
4915ed7 New files, and changes to add associated webstes to a biblio.
truth_nz authored
21 use strict;
46a174f These were using the old deprecation C4::Acquisitions
rangi authored
22 use C4::Catalogue;
4915ed7 New files, and changes to add associated webstes to a biblio.
truth_nz authored
23 use CGI;
24
25 my $input = new CGI;
26 my $biblionumber = $input->param('biblionumber');
27 my $websitenumber = $input->param('websitenumber');
28
29 if (! $biblionumber) {
30 print $input->redirect("/catalogue/");
31
32 } elsif (! $websitenumber) {
33 print $input->param("modwebsite.pl?biblionumber=$biblionumber");
34
35 } else {
36 &deletewebsite($websitenumber);
37
38 print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
39 } # else
Something went wrong with that request. Please try again.