|
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 |
@message_transport_types = |
| 761 |
@{ GetOverdueMessageTransportTypes( $branchcode, $overdue_rules->{categorycode}, $i ) } |
| 762 |
unless @message_transport_types; |
| 763 |
|
| 764 |
@message_transport_types = |
| 765 |
@{ GetOverdueMessageTransportTypes( q{}, $overdue_rules->{categorycode}, $i ) } |
| 766 |
unless @message_transport_types; |
| 767 |
|
| 766 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
768 |
my $print_sent = 0; # A print notice is not yet sent for this patron |
| 767 |
for my $mtt (@message_transport_types) { |
769 |
for my $mtt (@message_transport_types) { |
| 768 |
next if $mtt eq 'itiva'; |
770 |
next if $mtt eq 'itiva'; |
| 769 |
- |
|
|