bugfixes for biblio deletion
This commit is contained in:
parent
a1d31b88e7
commit
87819d35b1
2 changed files with 68 additions and 58 deletions
46
C4/Biblio.pm
46
C4/Biblio.pm
|
@ -1499,7 +1499,7 @@ $item->{'itemnum'}=$item->{'itemnumber'} unless $item->{'itemnum'};
|
|||
|
||||
sub OLDdelitem{
|
||||
my ($dbh,$itemnum)=@_;
|
||||
# my $dbh=C4Connect;
|
||||
# my $dbh=C4Connect;
|
||||
my $sth=$dbh->prepare("select * from items where itemnumber=?");
|
||||
$sth->execute($itemnum);
|
||||
my $data=$sth->fetchrow_hashref;
|
||||
|
@ -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/\,$/\)/;
|
||||
my $sth2= $dbh->prepare($query);
|
||||
$sth2->execute(@results);
|
||||
$sth2->finish()
|
||||
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(@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)=@_;
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue