Initial revision
[wip/koha-chris_n.git] / delitem.pl
1 #!/usr/bin/perl
2
3 #script to delete items
4 #written 2/5/00
5 #by chris@katipo.co.nz
6
7 use strict;
8
9 use C4::Search;
10 use CGI;
11 use C4::Output;
12 use C4::Acquisitions;
13
14 my $input = new CGI;
15 #print $input->header;
16 my $item=$input->param('itemnum');
17 delitem($item);
18 my $bibitemnum=$input->param('bibitemnum');
19 print $input->redirect("/cgi-bin/koha/moredetail.pl?bi=$bibitemnum");