bfe5680186
Squash of the following commits: return with explicit undef removed Follow-up for PBP fixes follow-up fix POD syntax follow-up jquery has moved Signed-off-by: Paul Poulain <paul.poulain@biblibre.com> Signed-off-by: Jared Camins-Esakov <jcamins@cpbibliography.com> Signed-off-by: Mark Tompsett <mtompset@hotmail.com> Signed-off-by: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com> Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> Amended: removed POD changes in Biblio.pm while rebasing. Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>
47 lines
1.2 KiB
Perl
Executable file
47 lines
1.2 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# Copyright 2011-2012 BibLibre
|
|
#
|
|
# 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 2 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 Modern::Perl;
|
|
use CGI;
|
|
|
|
use C4::Context;
|
|
use C4::UploadedFiles;
|
|
|
|
my $input = new CGI;
|
|
|
|
my $id = $input->param('id');
|
|
my $file = C4::UploadedFiles::GetUploadedFile($id);
|
|
exit 1 if not $file;
|
|
|
|
my $file_path = $file->{filepath};
|
|
|
|
if( -f $file_path ) {
|
|
open my $fh, '<', $file_path or die "Can't open file: $!";
|
|
print $input->header(
|
|
-type => "application/octet-stream",
|
|
-attachment => $file->{filename}
|
|
);
|
|
while(<$fh>) {
|
|
print $_;
|
|
}
|
|
} else {
|
|
exit 1;
|
|
}
|
|
|
|
exit 0;
|