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

Fixing bug reported by Steve,

Browse source 
Couldnt remove an additional Author when modifying a biblio
This commit is contained in:
rangi 2002-04-21 06:33:32 +00:00
parent ffc98bebe4
commit 9144d67850
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
C4/Acquisitions.pm
View file

@ -18,6 +18,7 @@ $VERSION = 0.01;
&findall &needsmod &delitem &delbibitem &delbiblio &delorder &branches &findall &needsmod &delitem &delbibitem &delbiblio &delorder &branches
&getallorders &getrecorders &updatecurrencies &getorder &getcurrency &updaterecorder &getallorders &getrecorders &updatecurrencies &getorder &getcurrency &updaterecorder
&updatecost &checkitems &modnote &getitemtypes &getbiblio); &updatecost &checkitems &modnote &getitemtypes &getbiblio);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ], %EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here, # your exported package globals go here,
@ -419,8 +420,6 @@ notes = $biblio->{'notes'}";
sub modbiblio { sub modbiblio {
my ($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes)=@_; my ($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes)=@_;
my $dbh=C4Connect; my $dbh=C4Connect;
#$title=~ s/\'/\\\'/g;
#$author=~ s/\'/\\\'/g;
my $query="update biblio set title='$title', my $query="update biblio set title='$title',
author='$author',copyrightdate='$copyright', author='$author',copyrightdate='$copyright',
seriestitle='$seriestitle',serial='$serial',unititle='$unititle',notes='$notes' seriestitle='$seriestitle',serial='$serial',unititle='$unititle',notes='$notes'
@ -448,12 +447,14 @@ sub modaddauthor {
my $dbh=C4Connect; my $dbh=C4Connect;
my $query="Delete from additionalauthors where biblionumber=$bibnum"; my $query="Delete from additionalauthors where biblionumber=$bibnum";
my $sth=$dbh->prepare($query); 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->execute;
$sth->finish; $sth->finish;
if ($author ne ''){
$query="insert into additionalauthors (author,biblionumber) values ('$author','$bibnum')";
$sth=$dbh->prepare($query);
$sth->execute;
$sth->finish;
}
$dbh->disconnect; $dbh->disconnect;
} }