Update of /cvsroot/koha/koha/C4 In directory usw-pr-cvs1:/tmp/cvs-serv14189/C4 Modified Files: Acquisitions.pm Log Message: Fixing bug reported by Steve, Couldnt remove an additional Author when modifying a biblio Index: Acquisitions.pm =================================================================== RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -r1.4 -r1.5 *** Acquisitions.pm 15 Apr 2002 05:33:33 -0000 1.4 --- Acquisitions.pm 21 Apr 2002 06:33:32 -0000 1.5 *************** *** 19,22 **** --- 19,23 ---- &getallorders &getrecorders &updatecurrencies &getorder &getcurrency &updaterecorder &updatecost &checkitems &modnote &getitemtypes &getbiblio); + %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], *************** *** 420,425 **** my ($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes)=@_; my $dbh=C4Connect; - #$title=~ s/\'/\\\'/g; - #$author=~ s/\'/\\\'/g; my $query="update biblio set title='$title', author='$author',copyrightdate='$copyright', --- 421,424 ---- *************** *** 450,458 **** my $sth=$dbh->prepare($query); $sth->execute; - $query="insert into additionalauthors (author,biblionumber) values ('$author','$bibnum')"; - $sth->finish; - $sth=$dbh->prepare($query); - $sth->execute; $sth->finish; $dbh->disconnect; } --- 449,459 ---- my $sth=$dbh->prepare($query); $sth->execute; $sth->finish; + if ($author ne ''){ + $query="insert into additionalauthors (author,biblionumber) values ('$author','$bibnum')"; + $sth=$dbh->prepare($query); + $sth->execute; + $sth->finish; + } $dbh->disconnect; }