3 # Copyright 2011 C & P Bibliography Services
5 # This file is part of Koha.
7 # Koha is free software; you can redistribute it and/or modify it
8 # under the terms of the GNU General Public License as published by
9 # the Free Software Foundation; either version 3 of the License, or
10 # (at your option) any later version.
12 # Koha is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 # GNU General Public License for more details.
17 # You should have received a copy of the GNU General Public License
18 # along with Koha; if not, see <http://www.gnu.org/licenses>.
25 upload-cover-image.pl - Script for handling uploading of both single and bulk coverimages and importing them into the database.
33 This script is called and presents the user with an interface allowing him/her to upload a single cover image or bulk cover images via a zip file.
34 Images will be resized into thumbnails of 140x200 pixels and larger images of
35 800x600 pixels. If the images that are uploaded are larger, they will be
36 resized, maintaining aspect ratio.
47 use C4::Auth qw( get_template_and_user );
48 use C4::Output qw( output_html_with_http_headers );
50 use Koha::CoverImages;
52 use Koha::UploadedFiles;
53 use C4::Log qw( logaction );
57 my $fileID = $input->param('uploadedfileid');
58 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
60 template_name => "tools/upload-images.tt",
63 flagsrequired => { tools => 'upload_local_cover_images' },
67 my $filetype = $input->param('filetype');
68 my $biblionumber = $input->param('biblionumber');
69 my $itemnumber = $input->param('itemnumber');
70 #my $uploadfilename = $input->param('uploadfile'); # obsolete?
71 my $replace = !C4::Context->preference("AllowMultipleCovers")
72 || $input->param('replace');
73 my $op = $input->param('op');
82 $item = Koha::Items->find($itemnumber);
83 $biblionumber = $item->biblionumber;
84 $biblio = Koha::Biblios->find( $biblionumber );
85 $cover_images = $item->cover_images->as_list;
86 } elsif ( $biblionumber ){
87 $biblio = Koha::Biblios->find( $biblionumber );
88 $cover_images = $biblio->cover_images->as_list;
92 filetype => $filetype,
94 biblionumber => $biblionumber,
95 itemnumber => $itemnumber,
96 cover_images => $cover_images,
103 my $upload = Koha::UploadedFiles->find( $fileID );
104 if ( $filetype eq 'image' ) {
105 my $fh = $upload->file_handle;
106 my $srcimage = GD::Image->new($fh);
108 if ( defined $srcimage ) {
112 Koha::Items->find($itemnumber)->cover_images->delete;
113 } elsif ( $biblionumber ) {
114 Koha::Biblios->find($biblionumber)->cover_images->search({ itemnumber => undef })->delete;
118 Koha::CoverImage->new(
120 biblionumber => $biblionumber,
121 itemnumber => $itemnumber,
122 src_image => $srcimage
141 my $filename = $upload->full_path;
142 my $dirname = File::Temp::tempdir( CLEANUP => 1 );
143 qx/unzip $filename -d $dirname/;
145 unless ( $exit_code == 0 ) {
150 push @directories, "$dirname";
151 foreach my $recursive_dir (@directories) {
153 opendir $dir, $recursive_dir;
154 while ( my $entry = readdir $dir ) {
155 push @directories, "$recursive_dir/$entry"
156 if ( -d "$recursive_dir/$entry" and $entry !~ /^[._]/ );
160 foreach my $dir (@directories) {
162 my $idlink = "$dir/idlink.txt";
163 my $datalink = "$dir/datalink.txt";
164 if ( -e $idlink && !-l $idlink ) {
166 } elsif ( -e $datalink && !-l $datalink ) {
172 if ( open( my $fh, '<', $file ) ) {
173 while ( my $line = <$fh> ) {
175 ( $line =~ /\t/ ) ? "\t"
176 : ( $line =~ /,/ ) ? ","
179 unless ( $delim eq "," || $delim eq "\t" ) {
180 warn "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'";
185 ( $biblionumber, $filename ) = split $delim, $line, 2;
187 s/[\"\r\n]//g; # remove offensive characters
188 $filename =~ s/[\"\r\n]//g;
189 $filename =~ s/^\s+//;
190 $filename =~ s/\s+$//;
191 my $full_filename = Cwd::abs_path("$dir/$filename"); #Resolve any relative filepath references
193 if ( $full_filename =~ /^\Q$dir\E/ ){
194 $srcimage = GD::Image->new($full_filename);
198 if ( defined $srcimage ) {
202 if ( $biblionumber ) {
203 $biblio = Koha::Biblios->find( $biblionumber );
204 $biblio->cover_images->delete;
205 } elsif ( $itemnumber ) {
206 $item = Koha::Items->find($itemnumber);
207 $item->cover_images->delete;
208 $biblio = Koha::Biblios->find( $item->{biblionumber} );
212 $biblio = Koha::Biblios->find( $biblionumber );
213 } elsif ( $itemnumber ){
214 $item = Koha::Items->find($itemnumber);
215 $biblio = Koha::Biblios->find( $item->{biblionumber} );
222 biblionumber => $biblionumber,
223 itemnumber => $itemnumber,
224 title => $biblio->title
227 Koha::CoverImage->new(
229 biblionumber => $biblionumber,
230 itemnumber => $itemnumber,
231 src_image => $srcimage
245 if (!$error && C4::Context->preference("CataloguingLog")) {
246 logaction('CATALOGUING', 'MODIFY', $biblionumber, "biblio cover image: $filename");
264 biblionumber => $biblionumber || Koha::Items->find($itemnumber)->biblionumber,
265 itemnumber => $itemnumber,
267 } elsif ( @results ){
274 print $input->redirect("/cgi-bin/koha/tools/upload-cover-image.pl?biblionumber=$biblionumber&itemnumber=$itemnumber");
278 output_html_with_http_headers $input, $cookie, $template->output;
284 Written by Jared Camins-Esakov of C & P Bibliography Services, in part based on
285 code by Koustubha Kale of Anant Corporation and Chris Nighswonger of Foundation