|
Lines 18-24
package Koha::Recall;
Link Here
|
| 18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
18 |
# along with Koha; if not, see <http://www.gnu.org/licenses>. |
| 19 |
|
19 |
|
| 20 |
use Modern::Perl; |
20 |
use Modern::Perl; |
| 21 |
|
21 |
use C4::Letters; |
|
|
22 |
use C4::Members::Messaging; |
| 22 |
use Koha::Database; |
23 |
use Koha::Database; |
| 23 |
use Koha::DateUtils qw( dt_from_string ); |
24 |
use Koha::DateUtils qw( dt_from_string ); |
| 24 |
use Koha::Biblios; |
25 |
use Koha::Biblios; |
|
Lines 469-474
sub set_cancelled {
Link Here
|
| 469 |
$self->update( { status => 'cancelled', completed => 1, completed_date => dt_from_string } ); |
470 |
$self->update( { status => 'cancelled', completed => 1, completed_date => dt_from_string } ); |
| 470 |
C4::Log::logaction( 'RECALLS', 'CANCEL', $self->id, "Recall cancelled", 'INTRANET' ) |
471 |
C4::Log::logaction( 'RECALLS', 'CANCEL', $self->id, "Recall cancelled", 'INTRANET' ) |
| 471 |
if ( C4::Context->preference('RecallsLog') ); |
472 |
if ( C4::Context->preference('RecallsLog') ); |
|
|
473 |
|
| 474 |
# send notice to recaller to pick up item |
| 475 |
my $letter = C4::Letters::GetPreparedLetter( |
| 476 |
module => 'circulation', |
| 477 |
letter_code => 'RECALL_MANUAL_CANCEL', |
| 478 |
branchcode => $self->pickup_library_id, |
| 479 |
lang => $self->patron->lang, |
| 480 |
tables => { |
| 481 |
biblio => $self->biblio_id, |
| 482 |
borrowers => $self->patron_id, |
| 483 |
branches => $self->pickup_library_id, |
| 484 |
}, |
| 485 |
); |
| 486 |
|
| 487 |
my $messaging_preferences = C4::Members::Messaging::GetMessagingPreferences( |
| 488 |
{ borrowernumber => $self->patron_id, message_name => 'Recall_Cancelled' } ); |
| 489 |
while ( my ( $transport, $letter_code ) = each %{ $messaging_preferences->{transports} } ) { |
| 490 |
if ( $transport eq 'email' ) { |
| 491 |
C4::Message->enqueue( $letter, $self->patron->unblessed, 'email' ); |
| 492 |
} |
| 493 |
if ( $transport eq 'sms' ) { |
| 494 |
C4::Message->enqueue( $letter, $self->patron->unblessed, 'sms' ); |
| 495 |
} |
| 496 |
} |
| 497 |
|
| 472 |
return $self; |
498 |
return $self; |
| 473 |
} |
499 |
} |
| 474 |
|
500 |
|