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.
46 use C4::Auth qw( get_template_and_user );
47 use C4::Output qw( output_html_with_http_headers );
49 use Koha::CoverImages;
51 use Koha::UploadedFiles;
52 use C4::Log qw( logaction );
56 my $fileID = $input->param('uploadedfileid');
57 my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
59 template_name => "tools/upload-images.tt",
62 flagsrequired => { tools => 'upload_local_cover_images' },
66 my $filetype = $input->param('filetype');
67 my $biblionumber = $input->param('biblionumber');
68 my $itemnumber = $input->param('itemnumber');
69 #my $uploadfilename = $input->param('uploadfile'); # obsolete?
70 my $replace = !C4::Context->preference("AllowMultipleCovers")
71 || $input->param('replace');
72 my $op = $input->param('op');
81 $item = Koha::Items->find($itemnumber);
82 $biblionumber = $item->biblionumber;
83 $biblio = Koha::Biblios->find( $biblionumber );
84 $cover_images = $item->cover_images->as_list;
85 } elsif ( $biblionumber ){
86 $biblio = Koha::Biblios->find( $biblionumber );
87 $cover_images = $biblio->cover_images->as_list;
91 filetype => $filetype,
93 biblionumber => $biblionumber,
94 itemnumber => $itemnumber,
95 cover_images => $cover_images,
102 my $upload = Koha::UploadedFiles->find( $fileID );
103 if ( $filetype eq 'image' ) {
104 my $fh = $upload->file_handle;
105 my $srcimage = GD::Image->new($fh);
107 if ( defined $srcimage ) {
111 Koha::Items->find($itemnumber)->cover_images->delete;
112 } elsif ( $biblionumber ) {
113 Koha::Biblios->find($biblionumber)->cover_images->search({ itemnumber => undef })->delete;
117 Koha::CoverImage->new(
119 biblionumber => $biblionumber,
120 itemnumber => $itemnumber,
121 src_image => $srcimage
140 my $filename = $upload->full_path;
141 my $dirname = File::Temp::tempdir( CLEANUP => 1 );
142 qx/unzip $filename -d $dirname/;
144 unless ( $exit_code == 0 ) {
149 push @directories, "$dirname";
150 foreach my $recursive_dir (@directories) {
152 opendir $dir, $recursive_dir;
153 while ( my $entry = readdir $dir ) {
154 push @directories, "$recursive_dir/$entry"
155 if ( -d "$recursive_dir/$entry" and $entry !~ /^[._]/ );
159 foreach my $dir (@directories) {
161 if ( -e "$dir/idlink.txt" ) {
162 $file = "$dir/idlink.txt";
164 elsif ( -e "$dir/datalink.txt" ) {
165 $file = "$dir/datalink.txt";
170 if ( open( my $fh, '<', $file ) ) {
171 while ( my $line = <$fh> ) {
173 ( $line =~ /\t/ ) ? "\t"
174 : ( $line =~ /,/ ) ? ","
177 unless ( $delim eq "," || $delim eq "\t" ) {
178 warn "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'";
183 ( $biblionumber, $filename ) = split $delim, $line, 2;
185 s/[\"\r\n]//g; # remove offensive characters
186 $filename =~ s/[\"\r\n]//g;
187 $filename =~ s/^\s+//;
188 $filename =~ s/\s+$//;
189 my $srcimage = GD::Image->new("$dir/$filename");
192 if ( defined $srcimage ) {
196 if ( $biblionumber ) {
197 $biblio = Koha::Biblios->find( $biblionumber );
198 $biblio->cover_images->delete;
199 } elsif ( $itemnumber ) {
200 $item = Koha::Items->find($itemnumber);
201 $item->cover_images->delete;
202 $biblio = Koha::Biblios->find( $item->{biblionumber} );
206 $biblio = Koha::Biblios->find( $biblionumber );
207 } elsif ( $itemnumber ){
208 $item = Koha::Items->find($itemnumber);
209 $biblio = Koha::Biblios->find( $item->{biblionumber} );
216 biblionumber => $biblionumber,
217 itemnumber => $itemnumber,
218 title => $biblio->title
221 Koha::CoverImage->new(
223 biblionumber => $biblionumber,
224 itemnumber => $itemnumber,
225 src_image => $srcimage
239 if (!$error && C4::Context->preference("CataloguingLog")) {
240 logaction('CATALOGUING', 'MODIFY', $biblionumber, "biblio cover image: $filename");
258 biblionumber => $biblionumber || Koha::Items->find($itemnumber)->biblionumber,
259 itemnumber => $itemnumber,
261 } elsif ( @results ){
268 print $input->redirect("/cgi-bin/koha/tools/upload-cover-image.pl?biblionumber=$biblionumber&itemnumber=$itemnumber");
272 output_html_with_http_headers $input, $cookie, $template->output;
278 Written by Jared Camins-Esakov of C & P Bibliography Services, in part based on
279 code by Koustubha Kale of Anant Corporation and Chris Nighswonger of Foundation