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

bugfixes for biblio deletion

Browse source
This commit is contained in:
tipaul 2003-12-03 17:47:14 +00:00
parent a1d31b88e7
commit 87819d35b1
2 changed files with 68 additions and 58 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

42
C4/Biblio.pm
View file

@ -1507,9 +1507,10 @@ sub OLDdelitem{
my $query="Insert into deleteditems set ";
my @bind = ();
foreach my $temp (keys %$data){
$query .= "$temp = ?,"
$query .= "$temp = ?,";
push(@bind,$data->{$temp});
}
$query =~ s/\,$//;
# print $query;
$sth=$dbh->prepare($query);
$sth->execute(@bind);
@ -1547,15 +1548,17 @@ where biblioitemnumber = ?");
$sth = $dbh->prepare("Select * from items where biblioitemnumber = ?");
$sth->execute($biblioitemnumber);
my @results;
while (@results = $sth->fetchrow_array) {
my $query = "Insert into deleteditems values (";
foreach my $value (@results) {
$query .= "?,";
} # foreach
$query =~ s/\,$/\)/;
while (my $data = $sth->fetchrow_hashref) {
my $query="Insert into deleteditems set ";
my @bind = ();
foreach my $temp (keys %$data){
$query .= "$temp = ?,";
push(@bind,$data->{$temp});
}
$query =~ s/\,$//;
warn "Q 1560 : $query";
my $sth2=$dbh->prepare($query);
$sth2->execute(@results);
$sth2->finish()
$sth2->execute(@bind);
} # while
$sth->finish;
$sth = $dbh->prepare("Delete from items where biblioitemnumber = ?");
@ -1568,18 +1571,19 @@ sub OLDdelbiblio{
my ($dbh,$biblio)=@_;
my $sth=$dbh->prepare("select * from biblio where biblionumber=?");
$sth->execute($biblio);
if (my @data=$sth->fetchrow_array){
if (my $data=$sth->fetchrow_hashref){
$sth->finish;
# FIXME => replace insert values by insert (field) values ($value)
$query="Insert into deletedbiblio values (";
foreach my $temp (@data){
$temp=~ s/\'/\\\'/g;
$query .= "?,";
my $query="Insert into deletedbiblio set ";
my @bind =();
foreach my $temp (keys %$data){
$query .= "$temp = ?,";
push(@bind,$data->{$temp});
}
#replacing the last , by ",?)"
$query=~ s/\,$/\,\?\)/;
$query=~ s/\,$//;
warn "Q olddelbiblio : $query";
$sth=$dbh->prepare($query);
$sth->execute(@data);
$sth->execute(@bind);
$sth->finish;
$sth=$dbh->prepare("Delete from biblio where biblionumber=?");
$sth->execute($biblio);
@ -2188,6 +2192,9 @@ Paul POULAIN paul.poulain@free.fr
# $Id$
# $Log$
# Revision 1.77 2003/12/03 17:47:14 tipaul
# bugfixes for biblio deletion
#
# Revision 1.76 2003/12/03 01:43:41 slef
# conflict markers?
#
@ -2521,7 +2528,6 @@ Paul POULAIN paul.poulain@free.fr
# In Biblio.pm, there are some subs that permits to build a old-style record from a MARC::Record, and the opposite. There is also a sub finding a MARC-bibid from a old-biblionumber and the opposite too.
# Note we have decided with steve that a old-biblio <=> a MARC-Biblio.
#
<<<<<<< Biblio.pm
sub itemcount{
my ($biblio)=@_;

6
updater/updatedatabase
View file

@ -213,7 +213,7 @@ my %requiretables = (
my %requirefields = (
biblio => { 'abstract' => 'text' },
deletedbiblio => { 'abstract' => 'text', 'marc' => 'blob' },
deleteditems => { 'marc' => 'blob' },
deleteditems => { 'marc' => 'blob', 'paidfor' => 'text' },
biblioitems => {
'lccn' => 'char(25)',
'url' => 'varchar(255)',
@ -240,6 +240,7 @@ my %requirefields = (
},
aqorders => { 'budgetdate' => 'date' },
aqbudget => {'aqbudgetid' => 'tinyint(4) auto_increment primary key'},
items => {'paidfor' => 'text'},
#added so that reference items are not available for reserves...
itemtypes => { 'notforloan' => 'smallint(6)' },
@ -970,6 +971,9 @@ $sth->finish;
exit;
# $Log$
# Revision 1.68 2003/12/03 17:47:14 tipaul
# bugfixes for biblio deletion
#
# Revision 1.67 2003/11/28 10:08:33 tipaul
# * removing too verbose messages.
# * creating a fulltext index on bibliothesaurus