Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv15526 Modified Files: Catalogue.pm Log Message: newBiblio subroutine completed. Index: Catalogue.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Catalogue.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** Catalogue.pm 2001/06/26 20:17:35 1.4 --- Catalogue.pm 2001/06/26 21:13:01 1.5 *************** *** 56,67 **** my ($env, $biblio) = @_; my $title=$biblio->{'title'}; ! my $author=$biblio->{'author'}; my $subtitle=$biblio->{'subtitle'}; ! my $title=$biblio->{'title'}; my $copyrightdate=$biblio->{'copyrightdate'}; my $serial=$biblio->{'serial'}; my $seriestitle=$biblio->{'seriestitle'}; ! my $unititle=$biblio->{'unititle'}; my $notes=$biblio->{'notes'}; } --- 56,93 ---- my ($env, $biblio) = @_; my $title=$biblio->{'title'}; ! my $q_title=$dbh->quote($title); my $subtitle=$biblio->{'subtitle'}; ! my $q_subtitle=$dbh->quote($subtitle); ! ($q_subtitle) || ($q_subtitle="''"); ! my $author=$biblio->{'author'}; ! my $q_author=$dbh->quote($author); ! my $unititle=$biblio->{'unititle'}; ! my $q_unititle=$dbh->quote($unititle); my $copyrightdate=$biblio->{'copyrightdate'}; my $serial=$biblio->{'serial'}; my $seriestitle=$biblio->{'seriestitle'}; ! my $q_seriestitle=$dbh->quote($seriestitle); my $notes=$biblio->{'notes'}; + my $q_notes=$dbh->quote($notes); + my $subject=$biblio->{'subject'}; + my $additionalauthors=$biblio->{'additionalauthors'}; + my $sth=$dbh->prepare("select max(biblionumber) from biblio"); + $sth->execute; + my ($biblionumber) = $sth->fetchrow; + $biblionumber++; + $sth=$dbh->prepare("insert into biblio (biblionumber,title,author,unititle,copyrightdate,serial,seriestitle,notes) values ($biblionumber,$q_title,$q_author,$q_unititle,$copyrightdate,$serial,$q_seriestitle,$q_notes)"); + $sth->execute; + $sth=$dbh->prepare("insert into bibliosubtitle (biblionumber,subtitle) values ($biblionumber,$q_subtitle)"); + $sth->execute; + foreach (@$subject) { + my $q_subject=$dbh->quote($_); + my $sth=$dbh->prepare("insert into bibliosubject (biblionumber,subject) values ($biblionumber,$q_subject)"); + $sth->execute; + } + foreach (@$additionalauthors) { + my $q_additionalauthor=$dbh->quote($_); + my $sth=$dbh->prepare("insert into additionalauthors (biblionumber,author) values ($biblionumber,$q_additionalauthor)"); + $sth->execute; + } } *************** *** 540,543 **** --- 566,583 ---- my $itemtype=$item->{'itemtype'}; my $subclass=$item->{'subclass'}; + + # KOHADB Section + + unless ($env->{'marconly'}) { + my $sth=$dbh->prepare("select max(itemnumber) from items"); + $sth->execute; + my ($itemnumber) =$sth->fetchrow; + $itemnumber++; + $sth=$dbh->prepare("insert into items (itemnumber,biblionumber,biblioitemnumber,barcode,dateaccessioned,booksellerid,homebranch,price,replacementprice,replacementpricedate,notforloan,itemlost,wthdrawn,restricted,itemnotes) values ($itemnumber,$biblionumber,$biblioitemnumber,$q_barcode,$dateaccessioned,$q_booksellerid,$q_homebranch,$price,$q_replacementpricedate,$notforloan,$itemlost,$wthdrawn,$restricted,$q_itemnotes)"); + $sth->execute; + } + + + # MARC SECTION my $subfields; $subfields->{1}->{'Subfield_Mark'}='p';