Lines 755-768
END_SQL
Link Here
|
755 |
if ( $patronpref && $patronpref->{'transports'} ) { |
755 |
if ( $patronpref && $patronpref->{'transports'} ) { |
756 |
@message_transport_types = keys %{ $patronpref->{'transports'} }; |
756 |
@message_transport_types = keys %{ $patronpref->{'transports'} }; |
757 |
} |
757 |
} |
758 |
} else { |
|
|
759 |
my @message_transport_types = |
760 |
@{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i ) }; |
761 |
@message_transport_types = |
762 |
@{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i ) } |
763 |
unless @message_transport_types; |
764 |
} |
758 |
} |
765 |
|
759 |
|
|
|
760 |
use Data::Printer colored => 1; |
761 |
warn p @message_transport_types; |
762 |
@message_transport_types = |
763 |
@{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i ) } |
764 |
unless @message_transport_types; |
765 |
|
766 |
use Data::Printer colored => 1; |
767 |
warn p @message_transport_types; |
768 |
@message_transport_types = |
769 |
@{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i ) } |
770 |
unless @message_transport_types; |
771 |
|
772 |
use Data::Printer colored => 1; |
773 |
warn p @message_transport_types; |
774 |
|
766 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
775 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
767 |
for my $mtt (@message_transport_types) { |
776 |
for my $mtt (@message_transport_types) { |
768 |
next if $mtt eq 'itiva'; |
777 |
next if $mtt eq 'itiva'; |
769 |
- |
|
|