Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Altered newbiblio to be more generic - so can use with new acui.simple

Browse source 
scripts (which are not finished yet).
This commit is contained in:
truth_nz 2002-04-10 05:49:17 +00:00
parent 7a1c0652d5
commit 51ee67d237
1 changed files with 26 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
C4/Acquisitions.pm
View file

@ -381,20 +381,36 @@ sub bookfundbreakdown {
sub newbiblio {
my ($title,$author,$copyright)=@_;
my $dbh=C4Connect;
my ($biblio) = @_;
my $dbh = &C4Connect;
my $query = "Select max(biblionumber) from biblio";
my $sth = $dbh->prepare($query);
$sth->execute;
my $data = $sth->fetchrow_arrayref;
my $bibnum=$$data[0];
$bibnum++;
my $bibnum = $$data[0] + 1;
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;
$query="insert into biblio (biblionumber,title,author,copyrightdate) values
($bibnum,'$title','$author','$copyright')";
$query = "insert into biblio set
biblionumber = $bibnum,
title = $biblio->{'title'},
author = $biblio->{'author'},
copyrightdate = $biblio->{'copyright'},
series = $series;
seriestitle = $biblio->{'seriestitle'},
notes = $biblio->{'notes'}";
$sth = $dbh->prepare($query);
# print $query;
$sth->execute;
$sth->finish;
$dbh->disconnect;
return($bibnum);