Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv3623 Modified Files: Acquisitions.pm Log Message: Altered newbiblio to be more generic - so can use with new acui.simple scripts (which are not finished yet). Index: Acquisitions.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -r1.2 -r1.3 *** Acquisitions.pm 12 Feb 2002 21:07:21 -0000 1.2 --- Acquisitions.pm 10 Apr 2002 05:49:17 -0000 1.3 *************** *** 382,399 **** sub newbiblio { ! my ($title,$author,$copyright)=@_; ! 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++; $sth->finish; ! $query="insert into biblio (biblionumber,title,author,copyrightdate) values ! ($bibnum,'$title','$author','$copyright')"; ! $sth=$dbh->prepare($query); # print $query; $sth->execute; $sth->finish; $dbh->disconnect; --- 382,415 ---- sub newbiblio { ! 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] + 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 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;