+
-
Report/log files
+
Report/log files
[% IF ( error_no_publicdir ) %]
Error : Report/log files could not be found because the "publicdir" option was not set in "koha-conf.xml". Contact your system administrator to add this option.
--- a/reports/report_files.pl
+++ a/reports/report_files.pl
@@ -10,7 +10,7 @@
#
# Koha is free software; you can redistribute it and/or modify it under the
# terms of the GNU General Public License as published by the Free Software
-# Foundation; either version 2 of the License, or (at your option) any later
+# Foundation; either version 3 of the License, or (at your option) any later
# version.
#
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
@@ -36,12 +36,12 @@ my $file_id = $input->param("id");
my $directory = C4::Context->config('publicdir');
my ($template, $borrowernumber, $cookie)
- = get_template_and_user({template_name => "reports/report_files.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {reports => '*'},
- });
+ = get_template_and_user({template_name => "reports/report_files.tt",
+ query => $input,
+ type => "intranet",
+ authnotrequired => 0,
+ flagsrequired => {reports => '*'},
+ });
unless($directory) {
$template->param(error_no_publicdir => 1);
@@ -49,10 +49,10 @@ unless($directory) {
else {
#Get the files list
my @files_list;
- opendir(DIR, $directory);
+ opendir(DIR, $directory);
foreach my $filename (readdir(DIR)) {
- my $id = md5_hex($filename);
+ my $id = md5_hex($filename);
my $full_path = "$directory/$filename";
next if ($filename =~ /^\./ or -d $full_path);
@@ -75,14 +75,15 @@ else {
-Content_length => -s "$directory/$filename",
-attachment => "$filename");
- open FILE, "<:utf8", "$directory/$filename";
- binmode FILE;
+ my $fh;
+ open $fh, "<:encoding(UTF-8)", "$directory/$filename";
+ binmode $fh;
my $buf;
- while(read(FILE, $buf, 65536)) {
+ while(read($fh, $buf, 65536)) {
print $buf;
}
- close FILE;
+ close $fh;
exit(1);
}
--