addwebsite.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 $website      = {
  10     biblionumber => $biblionumber,
  11     title        => $input->param('title')?$input->param('title'):"",
  12     description  => $input->param('description')?$input->param('description'):"",
  13     url          => $input->param('url')?$input->param('url'):""
  14 }; # my $website
  15
  16
  17 if (! $biblionumber) {
  18     print $input->redirect("/catalogue/");
  19
  20 } else {
  21     &addwebsite($website);
  22
  23     print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
  24 } # else