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 under the
8 # terms of the GNU General Public License as published by the Free Software
9 # Foundation; either version 2 of the License, or (at your option) any later
12 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
13 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
14 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
16 # You should have received a copy of the GNU General Public License along with
17 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
18 # Suite 330, Boston, MA 02111-1307 USA
24 upload-cover-image.pl - Script for handling uploading of both single and bulk coverimages and importing them into the database.
32 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.
33 Images will be resized into thumbnails of 140x200 pixels and larger images of
34 800x600 pixels. If the images that are uploaded are larger, they will be
35 resized, maintaining aspect ratio.
56 my $fileID=$input->param('uploadedfileid');
57 my ($template, $loggedinuser, $cookie)
58 = get_template_and_user({template_name => "tools/upload-images.tmpl",
62 flagsrequired => { tools => 'upload_cover_images'},
66 my $filetype = $input->param('filetype');
67 my $biblionumber = $input->param('biblionumber');
68 my $uploadfilename = $input->param('uploadfile');
69 my $replace = !C4::Context->preference("AllowMultipleCovers") || $input->param('replace');
70 my $op = $input->param('op');
71 my %cookies = parse CGI::Cookie($cookie);
72 my $sessionID = $cookies{'CGISESSID'}->value;
76 $template->{VARS}->{'filetype'} = $filetype;
77 $template->{VARS}->{'biblionumber'} = $biblionumber;
83 my $uploaded_file = C4::UploadedFile->fetch($sessionID, $fileID);
84 if ($filetype eq 'image') {
85 my $fh = $uploaded_file->fh();
86 my $srcimage = GD::Image->new($fh);
87 if (defined $srcimage) {
88 my $dberror = PutImage($biblionumber, $srcimage, $replace);
99 my $filename = $uploaded_file->filename();
100 my $dirname = File::Temp::tempdir( CLEANUP => 1);
101 unless (system("unzip", $filename, '-d', $dirname) == 0) {
105 push @directories, "$dirname";
106 foreach my $recursive_dir ( @directories ) {
108 opendir $dir, $recursive_dir;
109 while ( my $entry = readdir $dir ) {
110 push @directories, "$recursive_dir/$entry" if ( -d "$recursive_dir/$entry" and $entry !~ /^[._]/ );
114 foreach my $dir ( @directories ) {
116 if ( -e "$dir/idlink.txt" ) {
117 $file = "$dir/idlink.txt";
118 } elsif ( -e "$dir/datalink.txt" ) {
119 $file = "$dir/datalink.txt";
123 if (open (FILE, $file)) {
124 while (my $line = <FILE>) {
125 my $delim = ($line =~ /\t/) ? "\t" : ($line =~ /,/) ? "," : "";
126 #$debug and warn "Delimeter is \'$delim\'";
127 unless ( $delim eq "," || $delim eq "\t" ) {
128 warn "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'";
131 ($biblionumber, $filename) = split $delim, $line;
132 $biblionumber =~ s/[\"\r\n]//g; # remove offensive characters
133 $filename =~ s/[\"\r\n\s]//g;
134 my $srcimage = GD::Image->new("$dir/$filename");
135 if (defined $srcimage) {
137 my $dberror = PutImage($biblionumber, $srcimage, $replace);
154 $template->{VARS}->{'total'} = $total;
155 $template->{VARS}->{'uploadimage'} = 1;
156 $template->{VARS}->{'error'} = $error;
157 $template->{VARS}->{'biblionumber'} = $biblionumber;
160 output_html_with_http_headers $input, $cookie, $template->output;
166 Written by Jared Camins-Esakov of C & P Bibliography Services, in part based on
167 code by Koustubha Kale of Anant Corporation and Chris Nighswonger of Foundation