gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixing modbibitem so biblioitems can be deleted

This commit is contained in:
rangi 2002-12-28 02:36:10 +00:00
parent 4e257048d6
commit 5a7deb131c
2 changed files with 41 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
deletebiblioitem.pl Executable file
View File

@ -0,0 +1,39 @@
#!/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., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
use strict;
use C4::Biblio; # For &deletebiblioitem
use CGI;
my $input = new CGI;
my $biblionumber = $input->param('biblionumber');
my $biblioitemnumber = $input->param('biblioitemnumber');
if (! $biblionumber) {
print $input->redirect("/catalogue/");
} elsif (! $biblioitemnumber) {
print $input->param("detail.pl?type=intra&bib=$biblionumber");
} else {
&delbibitem($biblioitemnumber);
print $input->redirect("detail.pl?type=intra&bib=$biblionumber");
} # else

4
modbibitem.pl
View File

@ -25,8 +25,8 @@ my $bibitemnum=$input->param('bibitem');
my $data=bibitemdata($bibitemnum);
my $biblio=$input->param('biblio');
my $submit=$input->param('submit.x');
if ($submit eq ''){
print $input->redirect("/cgi-bin/koha/delbibitem.pl?bibitemnum=$bibitemnum&biblio=$biblio");
if ($submit eq ''){
print $input->redirect("/cgi-bin/koha/deletebiblioitem.pl?biblioitemnumber=$bibitemnum&biblionumber=$biblio");
}
print $input->header;
#my ($count,$subject)=subject($data->{'biblionumber'});