8 my $biblionumber = $input->param('biblionumber');
9 my $websitenumber = $input->param('websitenumber');
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'):""
19 if ($input->param('delete')) {
20 print $input->redirect("deletewebsite.pl?biblionumber=$biblionumber&websitenumber=$websitenumber");
22 } elsif (! $biblionumber) {
23 print $input->redirect("/catalogue/");
25 } elsif (! $websitenumber) {
26 print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");
29 &updatewebsite($website);
31 print $input->redirect("modwebsites.pl?biblionumber=$biblionumber");