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