103 lines
2.7 KiB
Perl
Executable file
103 lines
2.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
use C4::Database;
|
|
use CGI;
|
|
use strict;
|
|
use C4::Acquisitions;
|
|
use C4::Output;
|
|
|
|
my $input= new CGI;
|
|
#print $input->header;
|
|
#print $input->dump;
|
|
|
|
|
|
my $title=checkinp($input->param('Title'));
|
|
my $author=checkinp($input->param('Author'));
|
|
my $bibnum=checkinp($input->param('bibnum'));
|
|
my $copyright=checkinp($input->param('Copyright'));
|
|
my $seriestitle=checkinp($input->param('Series'));
|
|
my $serial=checkinp($input->param('Serial'));
|
|
my $unititle=checkinp($input->param('Unititle'));
|
|
my $notes=checkinp($input->param('Notes'));
|
|
|
|
modbiblio($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes);
|
|
|
|
my $bibitemnum=checkinp($input->param('bibitemnum'));
|
|
my $itemtype=checkinp($input->param('Item'));
|
|
my $isbn=checkinp($input->param('ISBN'));
|
|
my $publishercode=checkinp($input->param('Publisher'));
|
|
my $publicationdate=checkinp($input->param('Publication'));
|
|
my $class=checkinp($input->param('Class'));
|
|
my $classification;
|
|
my $dewey;
|
|
my $subclass;
|
|
if ($itemtype ne 'NF'){
|
|
$classification=$class;
|
|
}
|
|
if ($class =~/[0-9]+/){
|
|
# print $class;
|
|
$dewey= $class;
|
|
$dewey=~ s/[a-z]+//gi;
|
|
my @temp;
|
|
if ($class =~ /\./){
|
|
@temp=split(/[0-9]+\.[0-9]+/,$class);
|
|
} else {
|
|
@temp=split(/[0-9]+/,$class);
|
|
}
|
|
$classification=$temp[0];
|
|
$subclass=$temp[1];
|
|
# print $classification,$dewey,$subclass;
|
|
}else{
|
|
$dewey='';
|
|
}
|
|
my $illus=checkinp($input->param('Illustrations'));
|
|
my $pages=checkinp($input->param('Pages'));
|
|
my $volumeddesc=checkinp($input->param('Volume'));
|
|
modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc);
|
|
|
|
my $subtitle=checkinp($input->param('Subtitle'));
|
|
modsubtitle($bibnum,$subtitle);
|
|
|
|
my $subject=checkinp($input->param('Subject'));
|
|
$subject=uc $subject;
|
|
my @sub=split(/\|/,$subject);
|
|
#print @sub;
|
|
#
|
|
|
|
my $addauthor=checkinp($input->param('Additional'));
|
|
modaddauthor($bibnum,$addauthor);
|
|
|
|
#print $input->header;
|
|
my $force=$input->param('Force');
|
|
my $error=modsubject($bibnum,$force,@sub);
|
|
|
|
if ($error ne ''){
|
|
print $input->header;
|
|
print startpage();
|
|
print startmenu();
|
|
print $error;
|
|
my @subs=split('\n',$error);
|
|
print "<p> Click submit to force the subject";
|
|
my @names=$input->param;
|
|
my %data;
|
|
my $count=@names;
|
|
for (my $i=0;$i<$count;$i++){
|
|
if ($names[$i] ne 'Force'){
|
|
my $value=$input->param("$names[$i]");
|
|
$data{$names[$i]}="hidden\t$value\t$i";
|
|
}
|
|
}
|
|
$data{"Force"}="hidden\t$subs[0]\t$count";
|
|
print mkform3('updatebiblio.pl',%data);
|
|
print endmenu();
|
|
print endpage();
|
|
} else {
|
|
print $input->redirect("detail.pl?type=intra&bib=$bibnum");
|
|
}
|
|
|
|
sub checkinp{
|
|
my ($inp)=@_;
|
|
$inp=~ s/\'/\\\'/g;
|
|
$inp=~ s/\"/\\\"/g;
|
|
return($inp);
|
|
}
|