|
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 451-456
sub set_cancelled {
Link Here
|
| 451 |
my ( $self ) = @_; |
452 |
my ( $self ) = @_; |
| 452 |
$self->update({ status => 'cancelled', completed => 1, completed_date => dt_from_string }); |
453 |
$self->update({ status => 'cancelled', completed => 1, completed_date => dt_from_string }); |
| 453 |
C4::Log::logaction( 'RECALLS', 'CANCEL', $self->id, "Recall cancelled", 'INTRANET' ) if ( C4::Context->preference('RecallsLog') ); |
454 |
C4::Log::logaction( 'RECALLS', 'CANCEL', $self->id, "Recall cancelled", 'INTRANET' ) if ( C4::Context->preference('RecallsLog') ); |
|
|
455 |
|
| 456 |
# send notice to recaller to pick up item |
| 457 |
my $letter = C4::Letters::GetPreparedLetter( |
| 458 |
module => 'circulation', |
| 459 |
letter_code => 'RECALL_MANUAL_CANCEL', |
| 460 |
branchcode => $self->branchcode, |
| 461 |
lang => $self->patron->lang, |
| 462 |
tables => { |
| 463 |
biblio => $self->biblionumber, |
| 464 |
borrowers => $self->borrowernumber, |
| 465 |
branches => $self->branchcode, |
| 466 |
}, |
| 467 |
); |
| 468 |
|
| 469 |
my $messaging_preferences = C4::Members::Messaging::GetMessagingPreferences({ borrowernumber => $self->borrowernumber, message_name => 'Recall_Cancelled' }); |
| 470 |
while ( my ( $transport, $letter_code ) = each %{ $messaging_preferences->{transports} } ) { |
| 471 |
if ( $transport eq 'email' ){ |
| 472 |
C4::Message->enqueue($letter, $self->patron->unblessed, 'email'); |
| 473 |
} |
| 474 |
if ( $transport eq 'sms' ){ |
| 475 |
C4::Message->enqueue($letter, $self->patron->unblessed, 'sms'); |
| 476 |
} |
| 477 |
} |
| 478 |
|
| 454 |
return $self; |
479 |
return $self; |
| 455 |
} |
480 |
} |
| 456 |
|
481 |
|