Lines 41-46
use Koha::Patron::Debarments qw(IsDebarred);
Link Here
|
41 |
use Text::Unaccent qw( unac_string ); |
41 |
use Text::Unaccent qw( unac_string ); |
42 |
use Koha::AuthUtils qw(hash_password); |
42 |
use Koha::AuthUtils qw(hash_password); |
43 |
use Koha::Database; |
43 |
use Koha::Database; |
|
|
44 |
use Koha::Holds; |
44 |
use Koha::List::Patron; |
45 |
use Koha::List::Patron; |
45 |
|
46 |
|
46 |
our (@ISA,@EXPORT,@EXPORT_OK,$debug); |
47 |
our (@ISA,@EXPORT,@EXPORT_OK,$debug); |
Lines 1660-1677
sub DelMember {
Link Here
|
1660 |
my $borrowernumber = shift; |
1661 |
my $borrowernumber = shift; |
1661 |
#warn "in delmember with $borrowernumber"; |
1662 |
#warn "in delmember with $borrowernumber"; |
1662 |
return unless $borrowernumber; # borrowernumber is mandatory. |
1663 |
return unless $borrowernumber; # borrowernumber is mandatory. |
|
|
1664 |
# Delete Patron's holds |
1665 |
my @holds = Koha::Holds->search({ borrowernumber => $borrowernumber }); |
1666 |
map { $_->delete } @holds; |
1663 |
|
1667 |
|
1664 |
my $query = qq|DELETE |
1668 |
my $query = " |
1665 |
FROM reserves |
|
|
1666 |
WHERE borrowernumber=?|; |
1667 |
my $sth = $dbh->prepare($query); |
1668 |
$sth->execute($borrowernumber); |
1669 |
$query = " |
1670 |
DELETE |
1669 |
DELETE |
1671 |
FROM borrowers |
1670 |
FROM borrowers |
1672 |
WHERE borrowernumber = ? |
1671 |
WHERE borrowernumber = ? |
1673 |
"; |
1672 |
"; |
1674 |
$sth = $dbh->prepare($query); |
1673 |
my $sth = $dbh->prepare($query); |
1675 |
$sth->execute($borrowernumber); |
1674 |
$sth->execute($borrowernumber); |
1676 |
logaction("MEMBERS", "DELETE", $borrowernumber, "") if C4::Context->preference("BorrowersLog"); |
1675 |
logaction("MEMBERS", "DELETE", $borrowernumber, "") if C4::Context->preference("BorrowersLog"); |
1677 |
return $sth->rows; |
1676 |
return $sth->rows; |
1678 |
- |
|
|