deletewebsite.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 $websitenumber = $input->param('websitenumber');
  10
  11 if (! $biblionumber) {
  12     print $input->redirect("/catalogue/");
  13
  14 } elsif (! $websitenumber) {
  15     print $input->param("modwebsite.pl?biblionumber=$biblionumber");
  16
  17 } else {
  18     &deletewebsite($websitenumber);
  19
  20     print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
  21 } # else