[Koha-cvs] koha delitem.pl [dev_week]

Joshua Ferraro jmf at kados.org
Sun Sep 24 02:14:39 CEST 2006


CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Joshua Ferraro <kados>	06/09/24 00:14:39

Removed files:
	.              : delitem.pl 

Log message:
	removing useless script

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/delitem.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5&r2=0

Patches:
Index: delitem.pl
===================================================================
RCS file: delitem.pl
diff -N delitem.pl
--- delitem.pl	21 Apr 2003 02:53:14 -0000	1.5
+++ /dev/null	1 Jan 1970 00:00:00 -0000
@@ -1,42 +0,0 @@
-#!/usr/bin/perl
-
-#script to delete items
-#written 2/5/00
-#by chris at katipo.co.nz
-
-
-# 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::Search;
-use CGI;
-use C4::Output;
-use C4::Biblio;
-use C4::Auth;
-
-my $input = new CGI;
-my $flagsrequired;
-$flagsrequired->{editcatalogue}=1;
-my ($loggedinuser, $cookie, $sessionID) = checkauth($input, 0, $flagsrequired);
-
-#print $input->header;
-my $item=$input->param('itemnum');
-delitem($item);
-my $bibitemnum=$input->param('bibitemnum');
-print $input->redirect("/cgi-bin/koha/moredetail.pl?bi=$bibitemnum");





More information about the Koha-cvs mailing list