|
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 |
- |
|
|