Error : Report/log files could not be found because the "accessdir" 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
@@ -1,107 +0,0 @@
-#!/usr/bin/perl
-
-# Frédérick Capovilla, 2011 - Libéo
-#
-# Show a list of all the files in the directory specified by the option
-# "accessdir" in koha-conf.xml so they can be downloaded by users with the
-# "reports" permission.
-#
-# This file is part of Koha.
-#
-# 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 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
-# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
-# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License along
-# with Koha; if not, write to the Free Software Foundation, Inc.,
-# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
-
-use strict;
-use warnings;
-use C4::Auth;
-use CGI;
-use C4::Context;
-use C4::Output;
-use C4::Koha;
-use File::stat;
-use Digest::MD5 qw(md5_hex);
-
-my $input = new CGI;
-my $file_id = $input->param("id");
-my $accessdir = C4::Context->config('accessdir');
-my @directories = $accessdir ? (ref $accessdir ? @{$accessdir} : ($accessdir)) : ();
-
-my ($template, $borrowernumber, $cookie)
- = get_template_and_user({template_name => "reports/report_files.tt",
- query => $input,
- type => "intranet",
- authnotrequired => 0,
- flagsrequired => {reports => '*'},
- });
-
-unless(@directories) {
- $template->param(error_no_dir => 1);
-}
-else {
- #Get the files list
- my @files_list;
- foreach my $dir(@directories){
- opendir(DIR, $dir);
- foreach my $filename (readdir(DIR)) {
- my $id = md5_hex($filename);
- my $full_path = "$dir/$filename";
- next if ($filename =~ /^\./ or -d $full_path);
-
- my $st = stat($full_path);
- my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) =localtime($st->mtime);
- my $dt=DateTime->new(year => $year + 1900,
- month => $mon + 1,
- day => $mday,
- hour => $hour,
- minute => $min,
- );
- push(@files_list, {name => $filename,
- accessdir => $dir,
- date =>Koha::DateUtils::output_pref($dt),
- size => $st->size,
- id => $id});
- }
- closedir(DIR);
- }
-
- my %files_hash = map { $_->{id} => $_ } @files_list;
- # If we received a file_id and it is valid, send the file to the browser
- if(defined $file_id and $file_id >= 0 and exists $files_hash{$file_id} ){
- my $filename = $files_hash{$file_id}->{name};
- my $dir = $files_hash{$file_id}->{accessdir};
- binmode STDOUT;
- # Open the selected file and send it to the browser
- print $input->header(-type => 'application/x-download',
- -name => "$filename",
- -Content_length => -s "$dir/$filename",
- -attachment => "$filename");
-
- my $fh;
- open $fh, "<:encoding(UTF-8)", "$dir/$filename";
- binmode $fh;
-
- my $buf;
- while(read($fh, $buf, 65536)) {
- print $buf;
- }
- close $fh;
-
- exit(1);
- }
- else{
- # Send the file list to the template
- $template->param(files_loop => \@files_list);
- }
-}
-
-output_html_with_http_headers $input, $cookie, $template->output;
--