View | Details | Raw Unified | Return to bug 30515
Collapse All | Expand All

(-)a/misc/cronjobs/overdue_notices.pl (-7 / +15 lines)
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
- 

Return to bug 30515