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");