Acquisitions::newbiblioitem updated to be usable for new acqui.simple
addorder.pl and updatebibitem.pl modified to use new newbiblioitem
This commit is contained in:
truth_nz
parent
b3375469e3
commit
e1d7a81197
3 changed files with 114 additions and 26 deletions
|
|
@ -17,7 +17,7 @@ $VERSION = 0.01;
|
|||
&getcurrencies &modsubtitle &modsubject &modaddauthor &moditem &countitems
|
||||
&findall &needsmod &delitem &delbibitem &delbiblio &delorder &branches
|
||||
&getallorders &getrecorders &updatecurrencies &getorder &getcurrency &updaterecorder
|
||||
&updatecost &checkitems &modnote);
|
||||
&updatecost &checkitems &modnote &getitemtypes &getbiblio);
|
||||
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
|
||||
|
||||
# your exported package globals go here,
|
||||
|
|
@ -545,22 +545,60 @@ sub modnote {
|
|||
}
|
||||
|
||||
sub newbiblioitem {
|
||||
my ($bibnum,$itemtype,$isbn,$volinf,$class)=@_;
|
||||
my $dbh=C4Connect;
|
||||
my $query="Select max(biblioitemnumber) from biblioitems";
|
||||
my $sth=$dbh->prepare($query);
|
||||
my ($biblioitem) = @_;
|
||||
my $dbh = C4Connect;
|
||||
my $query = "Select max(biblioitemnumber) from biblioitems";
|
||||
my $sth = $dbh->prepare($query);
|
||||
my $data;
|
||||
my $bibitemnum;
|
||||
|
||||
$biblioitem->{'volume'} = $dbh->quote($biblioitem->{'volume'});
|
||||
$biblioitem->{'number'} = $dbh->quote($biblioitem->{'number'});
|
||||
$biblioitem->{'classification'} = $dbh->quote($biblioitem->{'classification'});
|
||||
$biblioitem->{'itemtype'} = $dbh->quote($biblioitem->{'itemtype'});
|
||||
$biblioitem->{'isbn'} = $dbh->quote($biblioitem->{'isbn'});
|
||||
$biblioitem->{'issn'} = $dbh->quote($biblioitem->{'issn'});
|
||||
$biblioitem->{'dewey'} = $dbh->quote($biblioitem->{'dewey'});
|
||||
$biblioitem->{'subclass'} = $dbh->quote($biblioitem->{'subclass'});
|
||||
$biblioitem->{'publicationyear'} = $dbh->quote($biblioitem->{'publicationyear'});
|
||||
$biblioitem->{'publishercode'} = $dbh->quote($biblioitem->{'publishercode'});
|
||||
$biblioitem->{'volumedate'} = $dbh->quote($biblioitem->{'volumedate'});
|
||||
$biblioitem->{'volumeddesc'} = $dbh->quote($biblioitem->{'volumeddesc'}); $biblioitem->{'illus'} = $dbh->quote($biblioitem->{'illus'});
|
||||
$biblioitem->{'pages'} = $dbh->quote($biblioitem->{'pages'});
|
||||
$biblioitem->{'notes'} = $dbh->quote($biblioitem->{'notes'});
|
||||
$biblioitem->{'size'} = $dbh->quote($biblioitem->{'size'});
|
||||
$biblioitem->{'place'} = $dbh->quote($biblioitem->{'place'});
|
||||
|
||||
$sth->execute;
|
||||
my $data=$sth->fetchrow_arrayref;
|
||||
my $bibitemnum=$$data[0];
|
||||
$bibitemnum++;
|
||||
$data = $sth->fetchrow_arrayref;
|
||||
$bibitemnum = $$data[0] + 1;
|
||||
|
||||
$sth->finish;
|
||||
$query="insert into biblioitems (biblionumber,biblioitemnumber,
|
||||
itemtype,isbn,volumeddesc,classification)
|
||||
values
|
||||
($bibnum,$bibitemnum,'$itemtype','$isbn','$volinf','$class')";
|
||||
$sth=$dbh->prepare($query);
|
||||
# print $query;
|
||||
|
||||
$query = "insert into biblioitems set
|
||||
biblioitemnumber = $bibitemnum,
|
||||
biblionumber = $biblioitem->{'biblionumber'},
|
||||
volume = $biblioitem->{'volume'},
|
||||
number = $biblioitem->{'number'},
|
||||
classification = $biblioitem->{'classification'},
|
||||
itemtype = $biblioitem->{'itemtype'},
|
||||
isbn = $biblioitem->{'isbn'},
|
||||
issn = $biblioitem->{'issn'},
|
||||
dewey = $biblioitem->{'dewey'},
|
||||
subclass = $biblioitem->{'subclass'},
|
||||
publicationyear = $biblioitem->{'publicationyear'},
|
||||
publishercode = $biblioitem->{'publishercode'},
|
||||
volumedate = $biblioitem->{'volumedate'},
|
||||
volumeddesc = $biblioitem->{'volumeddesc'},
|
||||
illus = $biblioitem->{'illus'},
|
||||
pages = $biblioitem->{'pages'},
|
||||
notes = $biblioitem->{'notes'},
|
||||
size = $biblioitem->{'size'},
|
||||
place = $biblioitem->{'place'}";
|
||||
|
||||
$sth = $dbh->prepare($query);
|
||||
$sth->execute;
|
||||
|
||||
$sth->finish;
|
||||
$dbh->disconnect;
|
||||
return($bibitemnum);
|
||||
|
|
@ -579,13 +617,16 @@ sub newsubject {
|
|||
}
|
||||
|
||||
sub newsubtitle {
|
||||
my ($bibnum)=@_;
|
||||
my $dbh=C4Connect;
|
||||
my $query="insert into bibliosubtitle (biblionumber) values
|
||||
($bibnum)";
|
||||
my $sth=$dbh->prepare($query);
|
||||
# print $query;
|
||||
my ($bibnum, $subtitle) = @_;
|
||||
my $dbh = C4Connect;
|
||||
$subtitle = $dbh->quote($subtitle);
|
||||
my $query = "insert into bibliosubtitle set
|
||||
biblionumber = $bibnum,
|
||||
subtitle = $subtitle";
|
||||
my $sth = $dbh->prepare($query);
|
||||
|
||||
$sth->execute;
|
||||
|
||||
$sth->finish;
|
||||
$dbh->disconnect;
|
||||
}
|
||||
|
|
@ -1025,10 +1066,52 @@ sub delbiblio{
|
|||
$sth->execute;
|
||||
$sth->finish;
|
||||
}
|
||||
|
||||
$sth->finish;
|
||||
$dbh->disconnect;
|
||||
}
|
||||
|
||||
END { } # module clean-up code here (global destructor)
|
||||
sub getitemtypes {
|
||||
my $dbh = C4Connect;
|
||||
my $query = "select * from itemtypes";
|
||||
my $sth = $dbh->prepare($query);
|
||||
# || die "Cannot prepare $query" . $dbh->errstr;
|
||||
my $count = 0;
|
||||
my @results;
|
||||
|
||||
$sth->execute;
|
||||
# || die "Cannot execute $query\n" . $sth->errstr;
|
||||
while (my $data = $sth->fetchrow_hashref) {
|
||||
@results[$count] = $data;
|
||||
$count++;
|
||||
} # while
|
||||
|
||||
$sth->finish;
|
||||
$dbh->disconnect;
|
||||
return($count, @results);
|
||||
} # sub getitemtypes
|
||||
|
||||
|
||||
sub getbiblio {
|
||||
my ($biblionumber) = @_;
|
||||
my $dbh = C4Connect;
|
||||
my $query = "Select * from biblio where biblionumber = $biblionumber";
|
||||
my $sth = $dbh->prepare($query);
|
||||
# || die "Cannot prepare $query" . $dbh->errstr;
|
||||
my $count = 0;
|
||||
my @results;
|
||||
|
||||
$sth->execute;
|
||||
# || die "Cannot execute $query" . $sth->errstr;
|
||||
while (my $data = $sth->fetchrow_hashref) {
|
||||
$results[$count] = $data;
|
||||
$count++;
|
||||
} # while
|
||||
|
||||
$sth->finish;
|
||||
$dbh->disconnect;
|
||||
return($count, @results);
|
||||
} # sub getbiblio
|
||||
|
||||
|
||||
END { } # module clean-up code here (global destructor)
|
||||
|
|
|
|||
|
|
@ -47,10 +47,12 @@ if ($quantity ne '0'){
|
|||
|
||||
if ($existing eq 'no'){
|
||||
#if it doesnt create it
|
||||
$bibnum=newbiblio({ title => $title,
|
||||
author =>$author,
|
||||
copyright => $copyright });
|
||||
$bibitemnum=newbiblioitem($bibnum,$itemtype,$isbn);
|
||||
$bibnum = &newbiblio({ title => $title,
|
||||
author =>$author,
|
||||
copyright => $copyright });
|
||||
$bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
|
||||
itemtype => $itemtype,
|
||||
isben => $isbn });
|
||||
newsubtitle($bibnum);
|
||||
modbiblio($bibnum,$title,$author,$copyright,$series);
|
||||
} else {
|
||||
|
|
|
|||
|
|
@ -83,7 +83,10 @@ if ($existing eq 'YES'){
|
|||
}
|
||||
my $loan;
|
||||
if ($flag eq 'notall' && $flag2 eq 'leastone'){
|
||||
$bibitemnum=newbiblioitem($bibnum,$itemtype,$volumeddesc,$classification);
|
||||
$bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
|
||||
itemtype => $itemtype,
|
||||
volumeddesc => $volumeddesc,
|
||||
classification => $classification });
|
||||
modbibitem($bibitemnum,$itemtype,$isbn,$publishercode,$publicationdate,$classification,$dewey,$subclass,$illus,$pages,$volumeddesc,$notes,$size,$place);
|
||||
if ($itemtype =~ /REF/){
|
||||
$loan=1;
|
||||
|
|
|
|||
Loading…
Reference in a new issue