|
Lines 3-9
Link Here
|
| 3 |
# Frédérick Capovilla, 2011 - Libéo |
3 |
# Frédérick Capovilla, 2011 - Libéo |
| 4 |
# |
4 |
# |
| 5 |
# Show a list of all the files in the directory specified by the option |
5 |
# Show a list of all the files in the directory specified by the option |
| 6 |
# "publiclogdir" in koha-conf.xml so they can be downloaded by users with the |
6 |
# "publicdir" in koha-conf.xml so they can be downloaded by users with the |
| 7 |
# "reports" permission. |
7 |
# "reports" permission. |
| 8 |
# |
8 |
# |
| 9 |
# This file is part of Koha. |
9 |
# This file is part of Koha. |
|
Lines 33-39
use Digest::MD5 qw(md5_hex);
Link Here
|
| 33 |
|
33 |
|
| 34 |
my $input = new CGI; |
34 |
my $input = new CGI; |
| 35 |
my $file_id = $input->param("id"); |
35 |
my $file_id = $input->param("id"); |
| 36 |
my $directory = C4::Context->config('publiclogdir'); |
36 |
my $directory = C4::Context->config('publicdir'); |
| 37 |
|
37 |
|
| 38 |
my ($template, $borrowernumber, $cookie) |
38 |
my ($template, $borrowernumber, $cookie) |
| 39 |
= get_template_and_user({template_name => "reports/report_files.tt", |
39 |
= get_template_and_user({template_name => "reports/report_files.tt", |
|
Lines 44-50
my ($template, $borrowernumber, $cookie)
Link Here
|
| 44 |
}); |
44 |
}); |
| 45 |
|
45 |
|
| 46 |
unless($directory) { |
46 |
unless($directory) { |
| 47 |
$template->param(error_no_publiclogdir => 1); |
47 |
$template->param(error_no_publicdir => 1); |
| 48 |
} |
48 |
} |
| 49 |
else { |
49 |
else { |
| 50 |
#Get the files list |
50 |
#Get the files list |
| 51 |
- |
|
|