Attachment #73141 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'},

    my %branch_info = get_branch_info( $borrowernumber );

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

    my %branch_info = get_branch_info( $borrowernumber );

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

Lines 680-685 END_SQL Link Here

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

Return to bug 20457

Lines 262-267 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here

(-)a/misc/cronjobs/advance_notices.pl (+4 lines)
262		262
263	## Get branch info for borrowers home library.	263	## Get branch info for borrowers home library.
264	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	264	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		265	next if $transport eq 'phone';
265	my $letter = parse_letter( { letter_code => $letter_type,	266	my $letter = parse_letter( { letter_code => $letter_type,
266	borrowernumber => $upcoming->{'borrowernumber'},	267	borrowernumber => $upcoming->{'borrowernumber'},
267	branchcode => $upcoming->{'branchcode'},	268	branchcode => $upcoming->{'branchcode'},
Lines 296-301 UPCOMINGITEM: foreach my $upcoming ( @$upcoming_dues ) { Link Here
296		297
297	## Get branch info for borrowers home library.	298	## Get branch info for borrowers home library.
298	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {	299	foreach my $transport ( keys %{$borrower_preferences->{'transports'}} ) {
		300	next if $transport eq 'phone';
299	my $letter = parse_letter( { letter_code => $letter_type,	301	my $letter = parse_letter( { letter_code => $letter_type,
300	borrowernumber => $upcoming->{'borrowernumber'},	302	borrowernumber => $upcoming->{'borrowernumber'},
301	branchcode => $upcoming->{'branchcode'},	303	branchcode => $upcoming->{'branchcode'},
Lines 364-369 PATRON: while ( my ( $borrowernumber, $digest ) = each %$upcoming_digest ) { Link Here
364	my %branch_info = get_branch_info( $borrowernumber );	366	my %branch_info = get_branch_info( $borrowernumber );
365		367
366	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {	368	foreach my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
		369	next if $transport eq 'phone';
367	my $letter = parse_letter(	370	my $letter = parse_letter(
368	{	371	{
369	letter_code => $letter_type,	372	letter_code => $letter_type,
Lines 421-426 PATRON: while ( my ( $borrowernumber, $digest ) = each %$due_digest ) { Link Here
421	my %branch_info = get_branch_info( $borrowernumber );	424	my %branch_info = get_branch_info( $borrowernumber );
422		425
423	for my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {	426	for my $transport ( keys %{ $borrower_preferences->{'transports'} } ) {
		427	next if $transport eq 'phone';
424	my $letter = parse_letter(	428	my $letter = parse_letter(
425	{	429	{
426	letter_code => $letter_type,	430	letter_code => $letter_type,