updatebiblio.pl

   1 #!/usr/bin/perl
   2
   3 use C4::Database;
   4 use CGI;
   5 use strict;
   6 use C4::Acquisitions;
   7 use C4::Biblio;
   8 use C4::Output;
   9
  10 my $input= new CGI;
  11 #print $input->header;
  12 #print $input->dump;
  13
  14
  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'));
  23
  24 modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes);
  25
  26 my $subtitle=checkinp($input->param('Subtitle'));
  27 modsubtitle($bibnum,$subtitle);
  28
  29 my $subject=checkinp($input->param('Subject'));
  30 $subject=uc $subject;
  31 my @sub=split(/\|/,$subject);
  32 #print @sub;
  33 #
  34
  35 my $addauthor=checkinp($input->param('Additional'));
  36 modaddauthor($bibnum,$addauthor);
  37 my $count1=@sub;
  38
  39 for (my $i=0; $i<$count1; $i++){
  40   $sub[$i]=~ s/ +$//;
  41 }
  42
  43 #print $input->header;
  44 my $force=$input->param('Force');
  45 my $error=modsubject($bibnum,$force,@sub);
  46
  47 if ($error ne ''){
  48   print $input->header;
  49   print startpage();
  50   print startmenu('catalogue');
  51   print $error;
  52   my @subs=split('\n',$error);
  53   print "<p> Click submit to force the subject";
  54   my @names=$input->param;
  55   my %data;
  56   my $count=@names;
  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";
  61     }
  62   }
  63   $data{"Force"}="hidden\t$subs[0]\t$count";
  64   print mkform3('updatebiblio.pl',%data);
  65   print endmenu();
  66   print endpage();
  67 } else {
  68   print $input->redirect("detail.pl?type=intra&bib=$bibnum");
  69 }
  70
  71 sub checkinp{
  72   my ($inp)=@_;
  73   $inp=~ s/\'/\\\'/g;
  74   $inp=~ s/\"/\\\"/g;
  75   return($inp);
  76 }