updatewebsite.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 my $website       = {
  11     biblionumber  => $biblionumber,
  12     websitenumber => $websitenumber,
  13     title         => $input->param('title')?$input->param('title'):"",
  14     description   => $input->param('description')?$input->param('description'):"",
  15     url           => $input->param('url')?$input->param('url'):""
  16 }; # my $website
  17
  18
  19 if ($input->param('delete')) {
  20     print $input->redirect("deletewebsite.pl?biblionumber=$biblionumber&websitenumber=$websitenumber");
  21
  22 } elsif (! $biblionumber) {
  23     print $input->redirect("/catalogue/");
  24
  25 } elsif (! $websitenumber) {
  26     print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
  27
  28 } else {
  29     &updatewebsite($website);
  30
  31     print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
  32 } # else