[Koha-cvs] CVS: koha deletemem.pl,1.9,1.9.2.1

[MJ Ray]

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

Modified Files:
      Tag: rel_2_0
	deletemem.pl 
Log Message:
DBI call fix for bug 662.

Index: deletemem.pl
===================================================================
RCS file: /cvsroot/koha/koha/deletemem.pl,v
retrieving revision 1.9
retrieving revision 1.9.2.1
diff -C2 -r1.9 -r1.9.2.1
*** deletemem.pl	8 May 2003 11:57:35 -0000	1.9
--- deletemem.pl	8 Jan 2004 17:05:03 -0000	1.9.2.1
***************
*** 57,63 ****
    my ($bor,$flags)=getpatroninformation(\%env, $member,'');
  my $dbh = C4::Context->dbh;
! my $query="Select * from borrowers where guarantor='$member'";
! my $sth=$dbh->prepare($query);
! $sth->execute;
  my $data=$sth->fetchrow_hashref;
  $sth->finish;
--- 57,62 ----
    my ($bor,$flags)=getpatroninformation(\%env, $member,'');
  my $dbh = C4::Context->dbh;
! my $sth=$dbh->prepare("Select * from borrowers where guarantor=?");
! $sth->execute($member);
  my $data=$sth->fetchrow_hashref;
  $sth->finish;
***************
*** 86,113 ****
    my ($member)=@_;
    my $dbh = C4::Context->dbh;
!   my $query="Select * from borrowers where borrowernumber='$member'";
!   my $sth=$dbh->prepare($query);
!   $sth->execute;
    my @data=$sth->fetchrow_array;
    $sth->finish;
!   $query="Insert into deletedborrowers values (";
!   foreach my $temp (@data){
!     $query .= "'$temp',";
!   }
!   $query=~ s/\,$/\)/;
!   #  print $query;
!   # FIXME - Use $dbh->do()
!   $sth=$dbh->prepare($query);
!   $sth->execute;
    $sth->finish;
!   # FIXME - Use $dbh->do()
!   $query = "Delete from borrowers where borrowernumber='$member'";
!   $sth=$dbh->prepare($query);
!   $sth->execute;
    $sth->finish;
!   # FIXME - Use $dbh->do()
!   $query="Delete from reserves where borrowernumber='$member'";
!   $sth=$dbh->prepare($query);
!   $sth->execute;
    $sth->finish;
  }
--- 85,100 ----
    my ($member)=@_;
    my $dbh = C4::Context->dbh;
!   my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
!   $sth->execute($member);
    my @data=$sth->fetchrow_array;
    $sth->finish;
!   $sth=$dbh->prepare("Insert into deletedborrowers values (".("?,"x(scalar(@data)-1))."?)");
!   $sth->execute(@data);
    $sth->finish;
!   $sth=$dbh->prepare("Delete from borrowers where borrowernumber=?");
!   $sth->execute($member);
    $sth->finish;
!   $sth=$dbh->prepare("Delete from reserves where borrowernumber=?");
!   $sth->execute($member);
    $sth->finish;
  }