diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/imageviewer.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/imageviewer.tt new file mode 100644 index 0000000..c5ab657 --- /dev/null +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/imageviewer.tt @@ -0,0 +1,43 @@ +[% INCLUDE 'doc-head-open.inc' %] +[% IF ( LibraryNameTitle ) %][% LibraryNameTitle %][% ELSE %]Koha Online[% END %] Catalog › Images for: [% biblio.title |html %] +[% INCLUDE 'doc-head-close.inc' %] + + + + +

+[% IF LocalCoverImages == 1 %] +[% FOREACH img IN images %] +[% IF img %] +

+[% END %] +[% END %] +[% biblio.title %] [% biblio.author %] +[% ELSE %] +Unfortunately, images are not enabled for this catalog at this time. +[% END %] + + diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt index 05bdb47..b71a1ee 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/tools/tools-home.tt @@ -140,6 +140,11 @@

Managed staged MARC records, including completing and reversing imports

[% END %] + [% IF ( CAN_user_tools_upload_local_cover_images ) %] +

Upload Local Cover Image

Utility to upload scanned cover images for display in OPAC

+ [% END %] +

+ +

Upload Local Cover Image

+[% IF ( uploadimage ) %] +

Image upload results :

[% total %] images found

+ [% IF ( error == 'UZIPFAIL' ) %]

Failed to unzip archive.
Please ensure you are uploading a valid zip file and try again.

+ [% ELSIF ( error == 'OPNLINK' ) %]

Cannot open folder index (idlink.txt or datalink.txt) to read.
Please verify that it exists.

+ [% ELSIF ( error == 'OPNIMG' ) %]

Cannot process file as an image.
Please ensure you only upload GIF, JPEG, PNG, or XPM images.

+ [% ELSIF ( error == 'DELERR' ) %]

Unrecognized or missing field delimiter.
Please verify that you are using either a single quote or a tab.

+ [% ELSIF ( error == 'DBERR' ) %]

Unable to save image to database.

+ [% ELSE %]

An unknown error has occurred.
Please review the error log for more details.

[% END %] +

View final record
Back

+[% END %] +

Select an image file or ZIP file to upload. The tool will accept images in GIF, JPEG, PNG, and XPM formats.

+ + + + +

+[% INCLUDE 'tools-menu.inc' %] +

+[% INCLUDE 'intranet-bottom.inc' %] diff --git a/koha-tmpl/opac-tmpl/prog/en/includes/doc-head-close.inc b/koha-tmpl/opac-tmpl/prog/en/includes/doc-head-close.inc index 15bea79..18e5917 100644 --- a/koha-tmpl/opac-tmpl/prog/en/includes/doc-head-close.inc +++ b/koha-tmpl/opac-tmpl/prog/en/includes/doc-head-close.inc @@ -98,6 +98,15 @@ var NO_OL_JACKET = _("No cover image available"); [% END %] +[% IF OPACLocalCoverImages %] + + +[% END %] + [% IF ( BakerTaylorEnabled ) %] + + + +

+[% IF OPACLocalCoverImages == 1 %] +[% FOREACH img IN images %] +[% IF img %] +

+[% END %] +[% END %] +[% biblio.title %] [% biblio.author %] +[% ELSE %] +Unfortunately, images are not enabled for this catalog at this time. +[% END %] + + diff --git a/koha-tmpl/opac-tmpl/prog/en/modules/opac-results.tt b/koha-tmpl/opac-tmpl/prog/en/modules/opac-results.tt index 7201a82..2565c8f 100755 --- a/koha-tmpl/opac-tmpl/prog/en/modules/opac-results.tt +++ b/koha-tmpl/opac-tmpl/prog/en/modules/opac-results.tt @@ -229,6 +229,7 @@ $(document).ready(function(){ [% END %] [% END %][% END %] [% IF OpenLibraryCovers %]KOHA.OpenLibrary.GetCoverFromIsbn();[% END %] + [% IF OPACLocalCoverImages %]KOHA.LocalCover.GetCoverFromBibnumber(false);[% END %] [% IF ( GoogleJackets ) %]KOHA.Google.GetCoverFromIsbn();[% END %] }); //]]> @@ -528,6 +529,7 @@ $(document).ready(function(){ + [% IF ( OPACLocalCoverImages ) %]

[% END %] [% IF ( OPACAmazonEnabled ) %][% IF ( OPACAmazonCoverImages ) %][% IF ( SEARCH_RESULT.normalized_isbn ) %]

[% ELSE %]No cover image available[% END %][% END %][% END %] [% IF ( SyndeticsEnabled ) %][% IF ( SyndeticsCoverImages ) %][% IF ( using_https ) %] diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl index f82dde2..714ea24 100755 --- a/opac/opac-detail.pl +++ b/opac/opac-detail.pl @@ -45,6 +45,7 @@ use C4::Charset; use MARC::Record; use MARC::Field; use List::MoreUtils qw/any none/; +use Koha::Images; BEGIN { if (C4::Context->preference('BakerTaylorEnabled')) { @@ -686,6 +687,11 @@ if (scalar(@serialcollections) > 0) { serialcollections => \@serialcollections); } +# Local cover Images stuff +if (C4::Context->preference("OPACLocalCoverImages")){ + $template->param(OPACLocalCoverImages => 1); +} + # Amazon.com Stuff if ( C4::Context->preference("OPACAmazonEnabled") ) { $template->param( AmazonTld => get_amazon_tld() ); @@ -911,4 +917,9 @@ my $defaulttab = ? 'serialcollection' : 'subscription'; $template->param('defaulttab' => $defaulttab); +if (C4::Context->preference('OPACLocalCoverImages') == 1) { + my @images = ListImagesForBiblio($biblionumber); + $template->{VARS}->{localimages} = \@images; +} + output_html_with_http_headers $query, $cookie, $template->output; diff --git a/opac/opac-image.pl b/opac/opac-image.pl new file mode 100755 index 0000000..de44152 --- /dev/null +++ b/opac/opac-image.pl @@ -0,0 +1,111 @@ +#!/usr/bin/perl +# +# based on patronimage.pl +# +# 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 strict; +use warnings; + +use CGI; #qw(:standard escapeHTML); +use C4::Context; +use Koha::Images; + +$|=1; + +my $DEBUG = 1; +my $data = new CGI; +my $imagenumber; + +=head1 NAME + +opac-image.pl - Script for retrieving and formatting local cover images for display + +=head1 SYNOPSIS + +

+ +=head1 DESCRIPTION + +This script, when called from within HTML and passed a valid imagenumber or +biblionumber, will retrieve the image data associated with that biblionumber +if one exists, format it in proper HTML format and pass it back to be displayed. +If the parameter thumbnail has been provided, a thumbnail will be returned +rather than the full-size image. When a biblionumber is provided rather than an +imagenumber, a random image is selected. + +=cut + +if (defined $data->param('imagenumber')) { + $imagenumber = $data->param('imagenumber'); +} elsif (defined $data->param('biblionumber')) { + my @imagenumbers = ListImagesForBiblio($data->param('biblionumber')); + if (@imagenumbers) { + $imagenumber = $imagenumbers[0]; + } else { + warn "No images for this biblio" if $DEBUG; + error(); + } +} else { + $imagenumber = shift; +} + +if ($imagenumber) { + warn "imagenumber passed in: $imagenumber" if $DEBUG; + my ($imagedata, $dberror) = RetrieveImage($imagenumber); + + if ($dberror) { + warn "Database Error!" if $DEBUG; + error(); + } + + if ($imagedata) { + my $image; + if ($data->param('thumbnail')) { + $image = $imagedata->{'thumbnail'}; + } else { + $image = $imagedata->{'imagefile'}; + } + print $data->header (-type => $imagedata->{'mimetype'}, -'Cache-Control' => 'no-store', -expires => 'now', -Content_Length => length ($image)), $image; + exit; + } else { + warn "No image exists for $imagenumber" if $DEBUG; + error(); + } +} else { + error(); +} + +error(); + +sub error { + print $data->header ( -status=> '404', -expires => 'now' ); + exit; +} + +=head1 AUTHOR + +Chris Nighswonger cnighswonger foundations edu + +modified for local cover images by Koustubha Kale kmkale anantcorp com + +=cut diff --git a/opac/opac-imageviewer.pl b/opac/opac-imageviewer.pl new file mode 100755 index 0000000..6d2f326 --- /dev/null +++ b/opac/opac-imageviewer.pl @@ -0,0 +1,51 @@ +#!/usr/bin/perl + +# Copyright 2011 C & P Bibliography Services +# +# 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 strict; +use warnings; + +use CGI; +use C4::Auth; +use C4::Biblio; +use C4::Output; +use Koha::Images; + +my $query = new CGI; +my ( $template, $borrowernumber, $cookie ) = get_template_and_user( + { + template_name => "opac-imageviewer.tmpl", + query => $query, + type => "opac", + authnotrequired => ( C4::Context->preference("OpacPublic") ? 1 : 0 ), + flagsrequired => { borrow => 1 }, + } +); + +my $biblionumber = $query->param('biblionumber') || $query->param('bib'); +my ($count, $biblio) = GetBiblio($biblionumber); + +if (C4::Context->preference("OPACLocalCoverImages")) { + my @images = ListImagesForBiblio($biblionumber); + $template->{VARS}->{'OPACLocalCoverImages'} = 1; + $template->{VARS}->{'images'} = \@images; +} + +$template->{VARS}->{'biblio'} = $biblio; + +output_html_with_http_headers $query, $cookie, $template->output; diff --git a/opac/opac-search.pl b/opac/opac-search.pl index 42eb0ec..365bd72 100755 --- a/opac/opac-search.pl +++ b/opac/opac-search.pl @@ -612,6 +612,10 @@ for (my $i=0;$i<@servers;$i++) { $template->param(SEARCH_RESULTS => \@newresults, OPACItemsResultsDisplay => (C4::Context->preference("OPACItemsResultsDisplay") eq "itemdetails"?1:0), ); + if (C4::Context->preference("OPACLocalCoverImages")){ + $template->param(OPACLocalCoverImages => 1); + $template->param(OPACLocalCoverImagesPriority => C4::Context->preference("OPACLocalCoverImagesPriority")); + } ## Build the page numbers on the bottom of the page my @page_numbers; # total number of pages there will be diff --git a/tools/upload-cover-image.pl b/tools/upload-cover-image.pl new file mode 100755 index 0000000..af45cbc --- /dev/null +++ b/tools/upload-cover-image.pl @@ -0,0 +1,167 @@ +#!/usr/bin/perl +# +# Copyright 2011 C & P Bibliography Services +# +# 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., 59 Temple Place, +# Suite 330, Boston, MA 02111-1307 USA +# +# +# +=head1 NAME + +upload-cover-image.pl - Script for handling uploading of both single and bulk coverimages and importing them into the database. + +=head1 SYNOPSIS + +upload-cover-image.pl + +=head1 DESCRIPTION + +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. +Files greater than 100K will be refused. Images should be 140x200 pixels. If they are larger they will be auto-resized to comply. + +=cut + + +use strict; +use warnings; + +use File::Temp; +use CGI; +use GD; +use C4::Context; +use C4::Auth; +use C4::Output; +use Koha::Images; +use C4::UploadedFile; + +my $debug = 1; + +my $input = new CGI; + +my $fileID=$input->param('uploadedfileid'); +my ($template, $loggedinuser, $cookie) + = get_template_and_user({template_name => "tools/upload-images.tmpl", + query => $input, + type => "intranet", + authnotrequired => 0, + flagsrequired => { tools => 'upload_cover_images'}, + debug => 0, + }); + +my $filetype = $input->param('filetype'); +my $biblionumber = $input->param('biblionumber'); +my $uploadfilename = $input->param('uploadfile'); +my $replace = $input->param('replace'); +my $op = $input->param('op'); +my %cookies = parse CGI::Cookie($cookie); +my $sessionID = $cookies{'CGISESSID'}->value; + +my $error; + +$template->{VARS}->{'filetype'} = $filetype; +$template->{VARS}->{'biblionumber'} = $biblionumber; + +my $total = 0; + +if ($fileID) { + my $uploaded_file = C4::UploadedFile->fetch($sessionID, $fileID); + if ($filetype eq 'image') { + my $fh = $uploaded_file->fh(); + my $srcimage = GD::Image->new($fh); + if (defined $srcimage) { + my $dberror = PutImage($biblionumber, $srcimage, $replace); + if ($dberror) { + $error = 'DBERR'; + } else { + $total = 1; + } + } else { + $error = 'OPNIMG'; + } + undef $srcimage; + } else { + my $filename = $uploaded_file->filename(); + my $dirname = File::Temp::tempdir( CLEANUP => 1); + unless (system("unzip", $filename, '-d', $dirname) == 0) { + $error = 'UZIPFAIL'; + } else { + my @directories; + push @directories, "$dirname"; + foreach my $recursive_dir ( @directories ) { + my $dir; + opendir $dir, $recursive_dir; + while ( my $entry = readdir $dir ) { + push @directories, "$recursive_dir/$entry" if ( -d "$recursive_dir/$entry" and $entry !~ /^[._]/ ); + } + closedir $dir; + } + foreach my $dir ( @directories ) { + my $file; + if ( -e "$dir/idlink.txt" ) { + $file = "$dir/idlink.txt"; + } elsif ( -e "$dir/datalink.txt" ) { + $file = "$dir/datalink.txt"; + } else { + next; + } + if (open (FILE, $file)) { + while (my $line = ) { + my $delim = ($line =~ /\t/) ? "\t" : ($line =~ /,/) ? "," : ""; + #$debug and warn "Delimeter is \'$delim\'"; + unless ( $delim eq "," || $delim eq "\t" ) { + warn "Unrecognized or missing field delimeter. Please verify that you are using either a ',' or a 'tab'"; + $error = 'DELERR'; + } else { + ($biblionumber, $filename) = split $delim, $line; + $biblionumber =~ s/[\"\r\n]//g; # remove offensive characters + $filename =~ s/[\"\r\n\s]//g; + my $srcimage = GD::Image->new("$dir/$filename"); + if (defined $srcimage) { + $total++; + my $dberror = PutImage($biblionumber, $srcimage, $replace); + if ($dberror) { + $error = 'DBERR'; + } + } else { + $error = 'OPNIMG'; + } + undef $srcimage; + } + } + close(FILE); + } else { + $error = 'OPNLINK'; + } + } + } + } + $template->{VARS}->{'total'} = $total; + $template->{VARS}->{'uploadimage'} = 1; + $template->{VARS}->{'error'} = $error; + $template->{VARS}->{'biblionumber'} = $biblionumber; +} + +output_html_with_http_headers $input, $cookie, $template->output; + +exit 0; + +=head1 AUTHORS + +Written by Jared Camins-Esakov of C & P Bibliography Services, in part based on +code by Koustubha Kale of Anant Corporation and Chris Nighswonger of Foundation +Bible College. + +=cut -- 1.7.2.5

Additional Tools

Upload Local Cover Image