Lines 706-711
sub cancel {
Link Here
|
706 |
$self->cancellation_reason( $params->{cancellation_reason} ); |
706 |
$self->cancellation_reason( $params->{cancellation_reason} ); |
707 |
$self->store(); |
707 |
$self->store(); |
708 |
|
708 |
|
|
|
709 |
my $dbh = $self->_result->result_source->schema->storage->dbh; |
710 |
$dbh->do( |
711 |
q{ |
712 |
DELETE q, t |
713 |
FROM tmp_holdsqueue q |
714 |
INNER JOIN hold_fill_targets t |
715 |
ON q.borrowernumber = t.borrowernumber |
716 |
AND q.biblionumber = t.biblionumber |
717 |
AND q.itemnumber = t.itemnumber |
718 |
AND q.item_level_request = t.item_level_request |
719 |
AND q.holdingbranch = t.source_branchcode |
720 |
WHERE t.reserve_id = ? |
721 |
}, undef, $self->id |
722 |
); |
723 |
|
709 |
if ( $params->{cancellation_reason} ) { |
724 |
if ( $params->{cancellation_reason} ) { |
710 |
my $letter = C4::Letters::GetPreparedLetter( |
725 |
my $letter = C4::Letters::GetPreparedLetter( |
711 |
module => 'reserves', |
726 |
module => 'reserves', |
712 |
- |
|
|