Lines 67-78
if ( $op eq 'cud-cancel_reserve' and $reserve_id ) {
Link Here
|
67 |
C4::Circulation::LostItem( $item->itemnumber, "pendingreserves" ); |
67 |
C4::Circulation::LostItem( $item->itemnumber, "pendingreserves" ); |
68 |
if ( $op eq 'cud-mark_as_lost_and_notify' and C4::Context->preference('CanMarkHoldsToPullAsLost') eq 'allow_and_notify' ) { |
68 |
if ( $op eq 'cud-mark_as_lost_and_notify' and C4::Context->preference('CanMarkHoldsToPullAsLost') eq 'allow_and_notify' ) { |
69 |
my $library = $hold->branch; |
69 |
my $library = $hold->branch; |
70 |
my $letter = C4::Letters::GetPreparedLetter( |
70 |
my $mtt = $patron->message_transport_type_for('email'); |
71 |
module => 'reserves', |
71 |
my $letter = C4::Letters::GetPreparedLetter( |
72 |
letter_code => 'CANCEL_HOLD_ON_LOST', |
72 |
module => 'reserves', |
73 |
branchcode => $patron->branchcode, |
73 |
letter_code => 'CANCEL_HOLD_ON_LOST', |
74 |
lang => $patron->lang, |
74 |
branchcode => $patron->branchcode, |
75 |
tables => { |
75 |
message_transport_type => $mtt, |
|
|
76 |
lang => $patron->lang, |
77 |
tables => { |
76 |
branches => $library->branchcode, |
78 |
branches => $library->branchcode, |
77 |
borrowers => $patron->borrowernumber, |
79 |
borrowers => $patron->borrowernumber, |
78 |
items => $item->itemnumber, |
80 |
items => $item->itemnumber, |
Lines 81-98
if ( $op eq 'cud-cancel_reserve' and $reserve_id ) {
Link Here
|
81 |
reserves => $hold->unblessed, |
83 |
reserves => $hold->unblessed, |
82 |
}, |
84 |
}, |
83 |
); |
85 |
); |
84 |
if ( $letter ) { |
86 |
if ($letter) { |
85 |
my $from_address = $library->from_email_address; |
87 |
my $from_address = $library->from_email_address; |
86 |
|
88 |
|
87 |
C4::Letters::EnqueueLetter( |
89 |
C4::Letters::EnqueueLetter( |
88 |
{ letter => $letter, |
90 |
{ |
|
|
91 |
letter => $letter, |
89 |
borrowernumber => $patron->borrowernumber, |
92 |
borrowernumber => $patron->borrowernumber, |
90 |
message_transport_type => $patron->message_transport_type_for('email'), |
93 |
message_transport_type => $mtt, |
91 |
from_address => $from_address, |
94 |
from_address => $from_address, |
92 |
} |
95 |
} |
93 |
); |
96 |
); |
94 |
unless ( $patron->notice_email_address ) { |
97 |
unless ( $patron->notice_email_address ) { |
95 |
push @messages, {type => 'alert', code => 'no_email_address', }; |
98 |
push @messages, { type => 'alert', code => 'no_email_address', }; |
96 |
} |
99 |
} |
97 |
push @messages, { type => 'message', code => 'letter_enqueued' }; |
100 |
push @messages, { type => 'message', code => 'letter_enqueued' }; |
98 |
} else { |
101 |
} else { |