[Koha-cvs] CVS: koha/C4 Biblio.pm,1.76,1.77

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv14814/C4

Modified Files:
        Biblio.pm 
Log Message:
bugfixes for biblio deletion

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.76
retrieving revision 1.77
diff -C2 -r1.76 -r1.77
*** Biblio.pm   3 Dec 2003 01:43:41 -0000       1.76
--- Biblio.pm   3 Dec 2003 17:47:14 -0000       1.77
***************
*** 1499,1521 ****
  
  sub OLDdelitem{
!   my ($dbh,$itemnum)address@hidden;
! #  my $dbh=C4Connect;
!   my $sth=$dbh->prepare("select * from items where itemnumber=?");
!   $sth->execute($itemnum);
!   my $data=$sth->fetchrow_hashref;
!   $sth->finish;
!   my $query="Insert into deleteditems set ";
!   my @bind = ();
!   foreach my $temp (keys %$data){
!     $query .= "$temp = ?,"
!     push(@bind,$data->{$temp});
!   }
  #  print $query;
!   $sth=$dbh->prepare($query);
!   $sth->execute(@bind);
!   $sth->finish;
!   $sth=$dbh->prepare("Delete from items where itemnumber=?");
!   $sth->execute($itemnum);
!   $sth->finish;
  #  $dbh->disconnect;
  }
--- 1499,1522 ----
  
  sub OLDdelitem{
!       my ($dbh,$itemnum)address@hidden;
!       #  my $dbh=C4Connect;
!       my $sth=$dbh->prepare("select * from items where itemnumber=?");
!       $sth->execute($itemnum);
!       my $data=$sth->fetchrow_hashref;
!       $sth->finish;
!       my $query="Insert into deleteditems set ";
!       my @bind = ();
!       foreach my $temp (keys %$data){
!               $query .= "$temp = ?,";
!               push(@bind,$data->{$temp});
!       }
!       $query =~ s/\,$//;
  #  print $query;
!       $sth=$dbh->prepare($query);
!       $sth->execute(@bind);
!       $sth->finish;
!       $sth=$dbh->prepare("Delete from items where itemnumber=?");
!       $sth->execute($itemnum);
!       $sth->finish;
  #  $dbh->disconnect;
  }
***************
*** 1545,1590 ****
      $sth->finish;
  # Now delete all the items attached to the biblioitem
!     $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
!     $sth->finish;
!     $sth = $dbh->prepare("Delete from items where biblioitemnumber = ?");
!     $sth->execute($biblioitemnumber);
!     $sth->finish();
  #    $dbh->disconnect;
  } # sub deletebiblioitem
  
  sub OLDdelbiblio{
!   my ($dbh,$biblio)address@hidden;
!   my $sth=$dbh->prepare("select * from biblio where biblionumber=?");
!   $sth->execute($biblio);
!   if (my @data=$sth->fetchrow_array){
!     $sth->finish;
! # FIXME => replace insert values by insert (field) values ($value)
!     $query="Insert into deletedbiblio values (";
!     foreach my $temp (@data){
!       $temp=~ s/\'/\\\'/g;
!       $query .= "?,";
!     }
!     #replacing the last , by ",?)"
!     $query=~ s/\,$/\,\?\)/;
!     $sth=$dbh->prepare($query);
!     $sth->execute(@data);
!     $sth->finish;
!     $sth=$dbh->prepare("Delete from biblio where biblionumber=?");
!     $sth->execute($biblio);
!     $sth->finish;
!   }
!   $sth->finish;
  }
  
--- 1546,1594 ----
      $sth->finish;
  # Now delete all the items attached to the biblioitem
!       $sth   = $dbh->prepare("Select * from items where biblioitemnumber = 
?");
!       $sth->execute($biblioitemnumber);
!       my @results;
!       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 = ?");
!       $sth->execute($biblioitemnumber);
!       $sth->finish();
  #    $dbh->disconnect;
  } # sub deletebiblioitem
  
  sub OLDdelbiblio{
!       my ($dbh,$biblio)address@hidden;
!       my $sth=$dbh->prepare("select * from biblio where biblionumber=?");
!       $sth->execute($biblio);
!       if (my $data=$sth->fetchrow_hashref){
!               $sth->finish;
!               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/\,$//;
!               warn "Q olddelbiblio : $query";
!               $sth=$dbh->prepare($query);
!               $sth->execute(@bind);
!               $sth->finish;
!               $sth=$dbh->prepare("Delete from biblio where biblionumber=?");
!               $sth->execute($biblio);
!               $sth->finish;
!       }
!       $sth->finish;
  }
  
***************
*** 2189,2192 ****
--- 2193,2199 ----
  # $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?
***************
*** 2522,2526 ****
  # Note we have decided with steve that a old-biblio <=> a MARC-Biblio.
  #
- <<<<<<< Biblio.pm
  
  sub itemcount{
--- 2529,2532 ----