11 #print $input->header;
15 my $title=checkinp($input->param('Title'));
16 my $author=checkinp($input->param('Author'));
17 my $bibnum=checkinp($input->param('bibnum'));
18 my $copyright=checkinp($input->param('Copyright'));
19 my $seriestitle=checkinp($input->param('Series'));
20 my $serial=checkinp($input->param('Serial'));
21 my $unititle=checkinp($input->param('Unititle'));
22 my $notes=checkinp($input->param('Notes'));
24 modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes);
26 my $subtitle=checkinp($input->param('Subtitle'));
27 modsubtitle($bibnum,$subtitle);
29 my $subject=checkinp($input->param('Subject'));
31 my @sub=split(/\|/,$subject);
35 my $addauthor=checkinp($input->param('Additional'));
36 modaddauthor($bibnum,$addauthor);
39 for (my $i=0; $i<$count1; $i++){
43 #print $input->header;
44 my $force=$input->param('Force');
45 my $error=modsubject($bibnum,$force,@sub);
50 print startmenu('catalogue');
52 my @subs=split('\n',$error);
53 print "<p> Click submit to force the subject";
54 my @names=$input->param;
57 for (my $i=0;$i<$count;$i++) {
58 if ($names[$i] ne 'Force') {
59 my $value=$input->param("$names[$i]");
60 $data{$names[$i]}="hidden\t$value\t$i";
63 $data{"Force"}="hidden\t$subs[0]\t$count";
64 print mkform3('updatebiblio.pl',%data);
68 print $input->redirect("detail.pl?type=intra&bib=$bibnum");