Altered newbiblio to be more generic - so can use with new acui.simple
scripts (which are not finished yet).
This commit is contained in:
parent
7a1c0652d5
commit
51ee67d237
1 changed files with 26 additions and 10 deletions
|
@ -381,20 +381,36 @@ sub bookfundbreakdown {
|
||||||
|
|
||||||
|
|
||||||
sub newbiblio {
|
sub newbiblio {
|
||||||
my ($title,$author,$copyright)=@_;
|
my ($biblio) = @_;
|
||||||
my $dbh=C4Connect;
|
my $dbh = &C4Connect;
|
||||||
my $query="Select max(biblionumber) from biblio";
|
my $query = "Select max(biblionumber) from biblio";
|
||||||
my $sth=$dbh->prepare($query);
|
my $sth = $dbh->prepare($query);
|
||||||
$sth->execute;
|
$sth->execute;
|
||||||
my $data=$sth->fetchrow_arrayref;
|
my $data = $sth->fetchrow_arrayref;
|
||||||
my $bibnum=$$data[0];
|
my $bibnum = $$data[0] + 1;
|
||||||
$bibnum++;
|
my $series = 0;
|
||||||
|
|
||||||
|
$biblio->{'title'} = $dbh->quote($biblio->{'title'});
|
||||||
|
$biblio->{'author'} = $dbh->quote($biblio->{'author'});
|
||||||
|
$biblio->{'copyright'} = $dbh->quote($biblio->{'copyright'});
|
||||||
|
$biblio->{'seriestitle'} = $dbh->quote($biblio->{'seriestitle'});
|
||||||
|
$biblio->{'notes'} = $dbh->quote($biblio->{'notes'});
|
||||||
|
if ($biblio->{'seriestitle'}) { $series = 1 };
|
||||||
|
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
$query="insert into biblio (biblionumber,title,author,copyrightdate) values
|
$query = "insert into biblio set
|
||||||
($bibnum,'$title','$author','$copyright')";
|
biblionumber = $bibnum,
|
||||||
$sth=$dbh->prepare($query);
|
title = $biblio->{'title'},
|
||||||
|
author = $biblio->{'author'},
|
||||||
|
copyrightdate = $biblio->{'copyright'},
|
||||||
|
series = $series;
|
||||||
|
seriestitle = $biblio->{'seriestitle'},
|
||||||
|
notes = $biblio->{'notes'}";
|
||||||
|
|
||||||
|
$sth = $dbh->prepare($query);
|
||||||
# print $query;
|
# print $query;
|
||||||
$sth->execute;
|
$sth->execute;
|
||||||
|
|
||||||
$sth->finish;
|
$sth->finish;
|
||||||
$dbh->disconnect;
|
$dbh->disconnect;
|
||||||
return($bibnum);
|
return($bibnum);
|
||||||
|
|
Loading…
Reference in a new issue