-csv was not working as advertised. This feature is now working as it is forecast
Signed-off-by: Henri-Damien LAURENT <henridamien.laur...@biblibre.com> --- misc/cronjobs/overdue_notices.pl | 53 +++++++++++++++++-------------------- 1 files changed, 24 insertions(+), 29 deletions(-) diff --git a/misc/cronjobs/overdue_notices.pl b/misc/cronjobs/overdue_notices.pl index 04a5a0f..4de6cdd 100755 --- a/misc/cronjobs/overdue_notices.pl +++ b/misc/cronjobs/overdue_notices.pl @@ -566,39 +566,34 @@ END_SQL } if (@output_chunks) { - if ($nomail) { - if ( defined $csvfilename ) { - print $csv_fh @output_chunks; - } elsif ( defined $htmlfilename ) { - print $html_fh @output_chunks; - } else { - local $, = "\f"; # pagebreak - print @output_chunks; - } - } + if ( defined $csvfilename ) { + print $csv_fh @output_chunks; + } elsif ( defined $htmlfilename ) { print $html_fh @output_chunks; } - else { - my $attachment = { - filename => defined $csvfilename ? 'attachment.csv' : 'attachment.txt', - type => 'text/plain', - content => join( "\n", @output_chunks ) - }; - - my $letter = { - title => 'Overdue Notices', - content => 'These messages were not sent directly to the patrons.', - }; - C4::Letters::EnqueueLetter( - { letter => $letter, - borrowernumber => undef, - message_transport_type => 'email', - attachments => [$attachment], - to_address => $admin_email_address, - } - ); + elsif ($nomail){ + local $, = "\f"; # pagebreak + print @output_chunks; } + my $attachment = { + filename => defined $csvfilename ? 'attachment.csv' : 'attachment.txt', + type => 'text/plain', + content => join( "\n", @output_chunks ) + }; + + my $letter = { + title => 'Overdue Notices', + content => 'These messages were not sent directly to the patrons.', + }; + C4::Letters::EnqueueLetter( + { letter => $letter, + borrowernumber => undef, + message_transport_type => 'email', + attachments => [$attachment], + to_address => $admin_email_address, + } + ); } } -- 1.6.3.3 _______________________________________________ Koha-patches mailing list Koha-patches@lists.koha.org http://lists.koha.org/mailman/listinfo/koha-patches