Attachment #140213 for bug #20457

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





            ## Get branch info for borrowers home library.
            foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
                next if $transport eq 'itiva';
                my $letter = parse_letter( { letter_code    => $letter_type,
                                      borrowernumber => $upcoming->{'borrowernumber'},
                                      branchcode     => $branchcode,


            ## Get branch info for borrowers home library.
            foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
                next if $transport eq 'itiva';
                my $letter = parse_letter( { letter_code    => $letter_type,
                                      borrowernumber => $upcoming->{'borrowernumber'},
                                      branchcode     => $branchcode,

        }

        foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
            next if $transport eq 'itiva';
            my $letter = parse_letter(
                {
                    letter_code    => $params->{letter_code},

Lines 707-712 END_SQL Link Here

(-)a/misc/cronjobs/overdue_notices.pl (-1 / +1 lines)
707		707
708	my $print_sent = 0; # A print notice is not yet sent for this patron	708	my $print_sent = 0; # A print notice is not yet sent for this patron
709	for my $mtt ( @message_transport_types ) {	709	for my $mtt ( @message_transport_types ) {
		710	next if $mtt eq 'itiva';
710	my $effective_mtt = $mtt;	711	my $effective_mtt = $mtt;
711	if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {	712	if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {
712	# email or sms is requested but not exist, do a print.	713	# email or sms is requested but not exist, do a print.
713	-

Return to bug 20457

Lines 298-303 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here

(-)a/misc/cronjobs/advance_notices.pl (+3 lines)
298		298
299	## Get branch info for borrowers home library.	299	## Get branch info for borrowers home library.
300	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	300	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		301	next if $transport eq 'itiva';
301	my $letter = parse_letter( { letter_code => $letter_type,	302	my $letter = parse_letter( { letter_code => $letter_type,
302	borrowernumber => $upcoming->{'borrowernumber'},	303	borrowernumber => $upcoming->{'borrowernumber'},
303	branchcode => $branchcode,	304	branchcode => $branchcode,
Lines 345-350 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
345		346
346	## Get branch info for borrowers home library.	347	## Get branch info for borrowers home library.
347	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	348	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		349	next if $transport eq 'itiva';
348	my $letter = parse_letter( { letter_code => $letter_type,	350	my $letter = parse_letter( { letter_code => $letter_type,
349	borrowernumber => $upcoming->{'borrowernumber'},	351	borrowernumber => $upcoming->{'borrowernumber'},
350	branchcode => $branchcode,	352	branchcode => $branchcode,
Lines 595-600 sub send_digests { Link Here
595	}	597	}
596		598
597	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {	599	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
		600	next if $transport eq 'itiva';
598	my $letter = parse_letter(	601	my $letter = parse_letter(
599	{	602	{
600	letter_code => $params->{letter_code},	603	letter_code => $params->{letter_code},