Attachment #86990 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 'phone';
                my $letter = parse_letter( { letter_code    => $letter_type,
                                      borrowernumber => $upcoming->{'borrowernumber'},
                                      branchcode     => $upcoming->{'branchcode'},


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

        }

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

Lines 678-683 END_SQL Link Here

(-)a/misc/cronjobs/overdue_notices.pl (-1 / +1 lines)
678		678
679	my $print_sent = 0; # A print notice is not yet sent for this patron	679	my $print_sent = 0; # A print notice is not yet sent for this patron
680	for my $mtt ( @message_transport_types ) {	680	for my $mtt ( @message_transport_types ) {
		681	next if $mtt eq 'phone';
681	my $effective_mtt = $mtt;	682	my $effective_mtt = $mtt;
682	if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {	683	if ( ($mtt eq 'email' and not scalar @emails_to_use) or ($mtt eq 'sms' and not $data->{smsalertnumber}) ) {
683	# email or sms is requested but not exist, do a print.	684	# email or sms is requested but not exist, do a print.
684	-

Return to bug 20457

Lines 285-290 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here

(-)a/misc/cronjobs/advance_notices.pl (+3 lines)
285		285
286	## Get branch info for borrowers home library.	286	## Get branch info for borrowers home library.
287	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	287	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		288	next if $transport eq 'phone';
288	my $letter = parse_letter( { letter_code => $letter_type,	289	my $letter = parse_letter( { letter_code => $letter_type,
289	borrowernumber => $upcoming->{'borrowernumber'},	290	borrowernumber => $upcoming->{'borrowernumber'},
290	branchcode => $upcoming->{'branchcode'},	291	branchcode => $upcoming->{'branchcode'},
Lines 323-328 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
323		324
324	## Get branch info for borrowers home library.	325	## Get branch info for borrowers home library.
325	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	326	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		327	next if $transport eq 'phone';
326	my $letter = parse_letter( { letter_code => $letter_type,	328	my $letter = parse_letter( { letter_code => $letter_type,
327	borrowernumber => $upcoming->{'borrowernumber'},	329	borrowernumber => $upcoming->{'borrowernumber'},
328	branchcode => $upcoming->{'branchcode'},	330	branchcode => $upcoming->{'branchcode'},
Lines 566-571 sub send_digests { Link Here
566	}	568	}
567		569
568	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {	570	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
		571	next if $transport eq 'phone';
569	my $letter = parse_letter(	572	my $letter = parse_letter(
570	{	573	{
571	letter_code => $params->{letter_code},	574	letter_code => $params->{letter_code},