2def11d678
New cataloging plugin upload.pl and new system preference 'uploadPath'. upload.pl provide a way to upload files on the server and store a link (url) to it in MARC uploadPath is the absolute path on the server where the files will be stored. It's possible to have a hierarchy of directories under this path and the plugin will allow to choose in which directory to store the file. Stored value in MARC subfield looks like this: <OPACBaseURL>/cgi-bin/koha/opac-retrieve-file.pl?id=<SHA-1 of the file> So both 'uploadPath' and 'OPACBaseURL' sysprefs have to be set for this plugin to work correctly Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com> 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> Slightly amended/simplified the patch during QA: The changes to GetMarcUrls are not really needed, and would have needed some attention. Another link text can be supplied by the plugin too. This also reduces the need for changes in basket.pl, MARCdetail.pl, detail.pl, opac-basket.pl and opac-detail.pl. Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar> Edit: more meaninfull commit subject
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 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;
|