Lines 435-452
if ( defined $htmlfilename ) {
Link Here
|
435 |
open $fh, ">:encoding(UTF-8)",File::Spec->catdir ($htmlfilename,"notices-".$today->ymd().".html"); |
435 |
open $fh, ">:encoding(UTF-8)",File::Spec->catdir ($htmlfilename,"notices-".$today->ymd().".html"); |
436 |
} |
436 |
} |
437 |
|
437 |
|
438 |
print $fh "<html>\n"; |
438 |
print $fh _get_html_start(); |
439 |
print $fh "<head>\n"; |
|
|
440 |
print $fh "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n"; |
441 |
print $fh "<style type='text/css'>\n"; |
442 |
print $fh "pre {page-break-after: always;}\n"; |
443 |
print $fh "pre {white-space: pre-wrap;}\n"; |
444 |
print $fh "pre {white-space: -moz-pre-wrap;}\n"; |
445 |
print $fh "pre {white-space: -o-pre-wrap;}\n"; |
446 |
print $fh "pre {word-wrap: break-work;}\n"; |
447 |
print $fh "</style>\n"; |
448 |
print $fh "</head>\n"; |
449 |
print $fh "<body>\n"; |
450 |
} |
439 |
} |
451 |
elsif ( defined $text_filename ) { |
440 |
elsif ( defined $text_filename ) { |
452 |
if ( $text_filename eq '' ) { |
441 |
if ( $text_filename eq '' ) { |
Lines 848-863
END_SQL
Link Here
|
848 |
if ( defined $csvfilename ) { |
837 |
if ( defined $csvfilename ) { |
849 |
my $delimiter = C4::Context->csv_delimiter; |
838 |
my $delimiter = C4::Context->csv_delimiter; |
850 |
$content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n"; |
839 |
$content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n"; |
|
|
840 |
$content .= join( "\n", @output_chunks ); |
841 |
} elsif ( defined $htmlfilename ) { |
842 |
$content = _get_html_start(); |
843 |
$content .= join( "\n", @output_chunks ); |
844 |
$content .= _get_html_end(); |
845 |
} else { |
846 |
$content = join( "\n", @output_chunks ); |
851 |
} |
847 |
} |
852 |
else { |
|
|
853 |
$content = ""; |
854 |
} |
855 |
$content .= join( "\n", @output_chunks ); |
856 |
|
848 |
|
857 |
if ( C4::Context->preference('EmailOverduesNoEmail') ) { |
849 |
if ( C4::Context->preference('EmailOverduesNoEmail') ) { |
858 |
my $attachment = { |
850 |
my $attachment = { |
859 |
filename => defined $csvfilename ? 'attachment.csv' : 'attachment.txt', |
851 |
filename => defined $csvfilename ? 'attachment.csv' : defined $htmlfilename ? 'attachment.html' : 'attachment.txt', |
860 |
type => 'text/plain', |
852 |
type => defined $htmlfilename ? 'text/html' : 'text/plain', |
861 |
content => $content, |
853 |
content => $content, |
862 |
}; |
854 |
}; |
863 |
|
855 |
|
Lines 885-892
if ($csvfilename) {
Link Here
|
885 |
} |
877 |
} |
886 |
|
878 |
|
887 |
if ( defined $htmlfilename ) { |
879 |
if ( defined $htmlfilename ) { |
888 |
print $fh "</body>\n"; |
880 |
print $fh _get_html_end(); |
889 |
print $fh "</html>\n"; |
|
|
890 |
close $fh; |
881 |
close $fh; |
891 |
} elsif ( defined $text_filename ) { |
882 |
} elsif ( defined $text_filename ) { |
892 |
close $fh; |
883 |
close $fh; |
Lines 946-949
sub prepare_letter_for_printing {
Link Here
|
946 |
return $return; |
937 |
return $return; |
947 |
} |
938 |
} |
948 |
|
939 |
|
|
|
940 |
=head2 _get_html_start |
941 |
|
942 |
Return the start of a HTML document, including html, head and the start body |
943 |
tags. This should be usable both in the HTML file written to disc, and in the |
944 |
attachment.html sent as email. |
945 |
|
946 |
=cut |
947 |
|
948 |
sub _get_html_start { |
949 |
|
950 |
return "<html> |
951 |
<head> |
952 |
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" /> |
953 |
<style type='text/css'> |
954 |
pre {page-break-after: always;} |
955 |
pre {white-space: pre-wrap;} |
956 |
pre {white-space: -moz-pre-wrap;} |
957 |
pre {white-space: -o-pre-wrap;} |
958 |
pre {word-wrap: break-work;} |
959 |
</style> |
960 |
</head> |
961 |
<body>"; |
962 |
|
963 |
} |
964 |
|
965 |
=head2 _get_html_end |
966 |
|
967 |
Return the end of an HTML document, namely the closing body and html tags. |
968 |
|
969 |
=cut |
970 |
|
971 |
sub _get_html_end { |
972 |
|
973 |
return "</body> |
974 |
</html>"; |
975 |
|
976 |
} |
977 |
|
949 |
cronlogaction({ action => 'End', info => "COMPLETED" }); |
978 |
cronlogaction({ action => 'End', info => "COMPLETED" }); |
950 |
- |
|
|