deletebiblioitem.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use C4::Acquisitions;
   5 use CGI;
   6
   7 my $input = new CGI;
   8 my $biblionumber     = $input->param('biblionumber');
   9 my $biblioitemnumber = $input->param('biblioitemnumber');
  10
  11 if (! $biblionumber) {
  12     print $input->redirect("/catalogue/");
  13
  14 } elsif (! $biblioitemnumber) {
  15     print $input->param("detail.pl?type=intra&bib=$biblionumber");
  16
  17 } else {
  18     &deletebiblioitem($biblioitemnumber);
  19
  20     print $input->redirect("detail.pl?type=intra&bib=$biblionumber");
  21 } # else