|
Lines 66-73
sub delete {
Link Here
|
| 66 |
$self->_result->result_source->schema->txn_do( |
66 |
$self->_result->result_source->schema->txn_do( |
| 67 |
sub { |
67 |
sub { |
| 68 |
# Delete Patron's holds |
68 |
# Delete Patron's holds |
| 69 |
# FIXME Should be $patron->get_holds |
69 |
$self->holds->delete; |
| 70 |
$_->delete for Koha::Holds->search( { borrowernumber => $self->borrowernumber } ); |
|
|
| 71 |
|
70 |
|
| 72 |
# Delete all lists and all shares of this borrower |
71 |
# Delete all lists and all shares of this borrower |
| 73 |
# Consistent with the approach Koha uses on deleting individual lists |
72 |
# Consistent with the approach Koha uses on deleting individual lists |
| 74 |
- |
|
|