10 #print $input->header;
14 my $title=checkinp($input->param('Title'));
15 my $author=checkinp($input->param('Author'));
16 my $bibnum=checkinp($input->param('bibnum'));
17 my $copyright=checkinp($input->param('Copyright'));
18 my $seriestitle=checkinp($input->param('Series'));
19 my $serial=checkinp($input->param('Serial'));
20 my $unititle=checkinp($input->param('Unititle'));
21 my $notes=checkinp($input->param('Notes'));
23 modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes);
25 my $subtitle=checkinp($input->param('Subtitle'));
26 modsubtitle($bibnum,$subtitle);
28 my $subject=checkinp($input->param('Subject'));
30 my @sub=split(/\|/,$subject);
34 my $addauthor=checkinp($input->param('Additional'));
35 modaddauthor($bibnum,$addauthor);
38 for (my $i=0; $i<$count1; $i++){
42 #print $input->header;
43 my $force=$input->param('Force');
44 my $error=modsubject($bibnum,$force,@sub);
51 my @subs=split('\n',$error);
52 print "<p> Click submit to force the subject";
53 my @names=$input->param;
56 for (my $i=0;$i<$count;$i++){
57 if ($names[$i] ne 'Force'){
58 my $value=$input->param("$names[$i]");
59 $data{$names[$i]}="hidden\t$value\t$i";
62 $data{"Force"}="hidden\t$subs[0]\t$count";
63 print mkform3('updatebiblio.pl',%data);
67 print $input->redirect("detail.pl?type=intra&bib=$bibnum");