Lines 2567-2599
Returns a hashref with the following keys:
Link Here
|
2567 |
sub queue_notice { |
2567 |
sub queue_notice { |
2568 |
my ( $self, $params ) = @_; |
2568 |
my ( $self, $params ) = @_; |
2569 |
my $letter_params = $params->{letter_params}; |
2569 |
my $letter_params = $params->{letter_params}; |
2570 |
my $test_mode = $params->{test_mode}; |
2570 |
my $test_mode = $params->{test_mode}; |
2571 |
|
2571 |
|
2572 |
return unless $letter_params; |
2572 |
return unless $letter_params; |
2573 |
return unless exists $params->{message_name} xor $params->{message_transports}; # We only want one of these |
2573 |
return unless exists $params->{message_name} xor $params->{message_transports}; # We only want one of these |
2574 |
|
2574 |
|
2575 |
my $library = Koha::Libraries->find( $letter_params->{branchcode} ); |
2575 |
my $library = Koha::Libraries->find( $letter_params->{branchcode} ); |
2576 |
my $from_email_address = $library->from_email_address; |
2576 |
my $from_email_address = $library->from_email_address; |
2577 |
|
2577 |
|
2578 |
my @message_transports; |
2578 |
my @message_transports; |
2579 |
my $letter_code; |
2579 |
my $letter_code; |
2580 |
$letter_code = $letter_params->{letter_code}; |
2580 |
$letter_code = $letter_params->{letter_code}; |
2581 |
if( $params->{message_name} ){ |
2581 |
if ( $params->{message_name} ) { |
2582 |
my $messaging_prefs = C4::Members::Messaging::GetMessagingPreferences( { |
2582 |
my $messaging_prefs = C4::Members::Messaging::GetMessagingPreferences( |
|
|
2583 |
{ |
2583 |
borrowernumber => $letter_params->{borrowernumber}, |
2584 |
borrowernumber => $letter_params->{borrowernumber}, |
2584 |
message_name => $params->{message_name} |
2585 |
message_name => $params->{message_name} |
2585 |
} ); |
2586 |
} |
|
|
2587 |
); |
2586 |
@message_transports = ( keys %{ $messaging_prefs->{transports} } ); |
2588 |
@message_transports = ( keys %{ $messaging_prefs->{transports} } ); |
2587 |
$letter_code = $messaging_prefs->{transports}->{$message_transports[0]} unless $letter_code; |
2589 |
$letter_code = $messaging_prefs->{transports}->{ $message_transports[0] } unless $letter_code; |
2588 |
} else { |
2590 |
} else { |
2589 |
@message_transports = @{$params->{message_transports}}; |
2591 |
@message_transports = @{ $params->{message_transports} }; |
2590 |
} |
2592 |
} |
2591 |
return unless defined $letter_code; |
2593 |
return unless defined $letter_code; |
2592 |
$letter_params->{letter_code} = $letter_code; |
2594 |
$letter_params->{letter_code} = $letter_code; |
2593 |
my $print_sent = 0; |
2595 |
my $print_sent = 0; |
2594 |
my %return; |
2596 |
my %return; |
2595 |
foreach my $mtt (@message_transports){ |
2597 |
foreach my $mtt (@message_transports) { |
2596 |
next if ($mtt eq 'itiva' and C4::Context->preference('TalkingTechItivaPhoneNotification') ); |
2598 |
next if ( $mtt eq 'itiva' and C4::Context->preference('TalkingTechItivaPhoneNotification') ); |
|
|
2599 |
|
2597 |
# Notice is handled by TalkingTech_itiva_outbound.pl |
2600 |
# Notice is handled by TalkingTech_itiva_outbound.pl |
2598 |
if ( ( $mtt eq 'email' and not $self->notice_email_address ) |
2601 |
if ( ( $mtt eq 'email' and not $self->notice_email_address ) |
2599 |
or ( $mtt eq 'sms' and not $self->smsalertnumber ) |
2602 |
or ( $mtt eq 'sms' and not $self->smsalertnumber ) |
Lines 2604-2620
sub queue_notice {
Link Here
|
2604 |
} |
2607 |
} |
2605 |
next if $mtt eq 'print' && $print_sent; |
2608 |
next if $mtt eq 'print' && $print_sent; |
2606 |
$letter_params->{message_transport_type} = $mtt; |
2609 |
$letter_params->{message_transport_type} = $mtt; |
2607 |
my $letter = C4::Letters::GetPreparedLetter( %$letter_params ); |
2610 |
my $letter = C4::Letters::GetPreparedLetter(%$letter_params); |
2608 |
unless ($test_mode) { |
2611 |
unless ($test_mode) { |
2609 |
my $message_id = C4::Letters::EnqueueLetter({ |
2612 |
my $message_id = C4::Letters::EnqueueLetter( |
2610 |
letter => $letter, |
2613 |
{ |
2611 |
borrowernumber => $self->borrowernumber, |
2614 |
letter => $letter, |
2612 |
from_address => $from_email_address, |
2615 |
borrowernumber => $self->borrowernumber, |
2613 |
message_transport_type => $mtt |
2616 |
from_address => $from_email_address, |
2614 |
}); |
2617 |
message_transport_type => $mtt |
2615 |
push @{$return{message_ids}}, $message_id if $message_id; |
2618 |
} |
|
|
2619 |
); |
2620 |
push @{ $return{message_ids} }, $message_id if $message_id; |
2616 |
} |
2621 |
} |
2617 |
push @{$return{sent}}, $mtt; |
2622 |
push @{ $return{sent} }, $mtt; |
2618 |
$print_sent = 1 if $mtt eq 'print'; |
2623 |
$print_sent = 1 if $mtt eq 'print'; |
2619 |
} |
2624 |
} |
2620 |
return \%return; |
2625 |
return \%return; |