Lines 58-63
use Text::CSV;
Link Here
|
58 |
use CGI; |
58 |
use CGI; |
59 |
# use encoding 'utf8'; # don't do this |
59 |
# use encoding 'utf8'; # don't do this |
60 |
|
60 |
|
|
|
61 |
my $tmpdir = '/tmp'; |
62 |
|
61 |
my (@errors, @feedback); |
63 |
my (@errors, @feedback); |
62 |
my $extended = C4::Context->preference('ExtendedPatronAttributes'); |
64 |
my $extended = C4::Context->preference('ExtendedPatronAttributes'); |
63 |
my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); |
65 |
my $set_messaging_prefs = C4::Context->preference('EnhancedMessagingPreferences'); |
Lines 96-102
if ($input->param('report')) {
Link Here
|
96 |
-type => 'text/plain', |
98 |
-type => 'text/plain', |
97 |
-attachment => 'import_borrowers_report.txt' |
99 |
-attachment => 'import_borrowers_report.txt' |
98 |
); |
100 |
); |
99 |
open my $fh, '<', $input->param('errors_filename'); |
101 |
my $filename = $input->param('errors_filename'); |
|
|
102 |
$filename =~ s/\.\.//g; |
103 |
open my $fh, '<', $tmpdir . '/' . $filename; |
100 |
print $fh; |
104 |
print $fh; |
101 |
close $fh; |
105 |
close $fh; |
102 |
#TODO : We surely want to check that is it really a temp file that we are unlinking |
106 |
#TODO : We surely want to check that is it really a temp file that we are unlinking |
Lines 366-372
if ( $uploadborrowers && length($uploadborrowers) > 0 ) {
Link Here
|
366 |
print $tmpf $output; |
370 |
print $tmpf $output; |
367 |
$template->param( |
371 |
$template->param( |
368 |
download_errors => 1, |
372 |
download_errors => 1, |
369 |
errors_filename => $tmpf->filename |
373 |
errors_filename => $tmpf->filename, |
|
|
374 |
DIR => $tmpdir, |
370 |
); |
375 |
); |
371 |
close $tmpf; |
376 |
close $tmpf; |
372 |
} |
377 |
} |
373 |
- |
|
|