Attachment #115311 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 323-328 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here

(-)a/misc/cronjobs/advance_notices.pl (+3 lines)
323		323
324	## Get branch info for borrowers home library.	324	## Get branch info for borrowers home library.
325	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	325	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		326	next if $transport eq 'itiva';
326	my $letter = parse_letter( { letter_code => $letter_type,	327	my $letter = parse_letter( { letter_code => $letter_type,
327	borrowernumber => $upcoming->{'borrowernumber'},	328	borrowernumber => $upcoming->{'borrowernumber'},
328	branchcode => $branchcode,	329	branchcode => $branchcode,
Lines 370-375 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
370		371
371	## Get branch info for borrowers home library.	372	## Get branch info for borrowers home library.
372	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	373	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		374	next if $transport eq 'itiva';
373	my $letter = parse_letter( { letter_code => $letter_type,	375	my $letter = parse_letter( { letter_code => $letter_type,
374	borrowernumber => $upcoming->{'borrowernumber'},	376	borrowernumber => $upcoming->{'borrowernumber'},
375	branchcode => $branchcode,	377	branchcode => $branchcode,
Lines 617-622 sub send_digests { Link Here
617	}	619	}
618		620
619	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {	621	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
		622	next if $transport eq 'itiva';
620	my $letter = parse_letter(	623	my $letter = parse_letter(
621	{	624	{
622	letter_code => $params->{letter_code},	625	letter_code => $params->{letter_code},