3d65e44d5c
This patch resolves a number of problems related to Enhanced Content: 1. Previously, there was no syspref for controlling whether or not to display Amazon.com cover images apart from other content. This had the side effect of preventing use of amazon.com content alongside use of another provider's images. This patch introduces AmazonCoverImages and OPACAmazonCoverImages, and changes the name of AmazonContent to AmazonEnabled. So, for instance, you can now enable OPACAmazonSimilarItems yet utilize SyndeticsCoverImages for displaying those similar items. NOTE TO DOCUMENTATION TEAM: please update references to AmazonContent and OPACAmazonContent to comply with the above. 2. Fixes some semantically incorrect uses of AmazonContent (now OPACAmazonEnabled) on the OPAC side. 3. Resolves once and for all, the normalization of ISBN,UPC,EAN and OCLC numbers for all enhanced content elements; These elements can be normalized using the new functions in C4::Koha; I've replaced use of the various previously used variables $xisbn,$norm_isbn,$clean_isbn, etc with $isbn, and the template variable normalized_isbn. We finally have a single, consistant place to retrieve normalize values for these fields given a particular record. 4. Adds Syndetics attribution statements to display of all Syndetics content 'enhanced content provide by Syndetics' or 'Enhanced Description from Syndetics' 5. Adds an option to view the large cover image on the detail page on the OPAC when using SyndeticsCoverImages; this option is controlled by a new system preference: SyndeticsCoverImageSize which has two values: MC (medium) LC (large) 6. Adds UPC and OCLC numbers for Syndetics enhanced content queries especially helpful for finding enhanced content for DVD and Music materials 7. Adds capability to display Syndetics images to opac-user for checkouts and overdues 8. Updates to systempreferences.sql, and updatedatabase.pl database revision 015 Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
137 lines
3.7 KiB
Perl
Executable file
137 lines
3.7 KiB
Perl
Executable file
#!/usr/bin/perl
|
|
|
|
# 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
|
|
|
|
|
|
use strict;
|
|
|
|
use CGI;
|
|
|
|
use C4::Auth;
|
|
use C4::Koha;
|
|
use C4::Circulation;
|
|
use C4::Dates qw/format_date/;
|
|
use C4::Members;
|
|
|
|
use C4::Output;
|
|
|
|
my $query = new CGI;
|
|
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
|
|
{
|
|
template_name => "opac-readingrecord.tmpl",
|
|
query => $query,
|
|
type => "opac",
|
|
authnotrequired => 0,
|
|
flagsrequired => { borrow => 1 },
|
|
debug => 1,
|
|
}
|
|
);
|
|
|
|
# get borrower information ....
|
|
my ( $borr ) = GetMemberDetails( $borrowernumber );
|
|
|
|
$template->param($borr);
|
|
|
|
my $itemtypes = GetItemTypes();
|
|
|
|
# get the record
|
|
my $order = $query->param('order');
|
|
my $order2 = $order;
|
|
if ( $order2 eq '' ) {
|
|
$order2 = "date_due desc";
|
|
$template->param( orderbydate => 1 );
|
|
}
|
|
|
|
if ( $order2 eq 'title' ) {
|
|
$template->param( orderbytitle => 1 );
|
|
}
|
|
|
|
if ( $order2 eq 'author' ) {
|
|
$template->param( orderbyauthor => 1 );
|
|
}
|
|
|
|
my $limit = $query->param('limit');
|
|
if ( $limit eq 'full' ) {
|
|
$limit = 0;
|
|
}
|
|
else {
|
|
$limit = 50;
|
|
}
|
|
|
|
my ( $count, $issues ) = GetAllIssues( $borrowernumber, $order2, $limit );
|
|
|
|
my $borr = GetMemberDetails( $borrowernumber );
|
|
my @bordat;
|
|
$bordat[0] = $borr;
|
|
$template->param( BORROWER_INFO => \@bordat );
|
|
|
|
my @loop_reading;
|
|
|
|
for ( my $i = 0 ; $i < $count ; $i++ ) {
|
|
my %line;
|
|
if ( $i % 2 ) {
|
|
$line{'toggle'} = 1;
|
|
}
|
|
|
|
# XISBN Stuff
|
|
my $isbn = GetNormalizedISBN($issues->[$i]->{'isbn'});
|
|
$line{normalized_isbn} = $isbn;
|
|
$line{biblionumber} = $issues->[$i]->{'biblionumber'};
|
|
$line{title} = $issues->[$i]->{'title'};
|
|
$line{author} = $issues->[$i]->{'author'};
|
|
$line{itemcallnumber} = $issues->[$i]->{'itemcallnumber'};
|
|
$line{date_due} = format_date( $issues->[$i]->{'date_due'} );
|
|
$line{returndate} = format_date( $issues->[$i]->{'returndate'} );
|
|
$line{volumeddesc} = $issues->[$i]->{'volumeddesc'};
|
|
$line{counter} = $i + 1;
|
|
$line{'description'} = $itemtypes->{ $issues->[$i]->{'itemtype'} }->{'description'};
|
|
$line{imageurl} = getitemtypeimagelocation( 'opac', $itemtypes->{ $issues->[$i]->{'itemtype'} }->{'imageurl'} );
|
|
push( @loop_reading, \%line );
|
|
}
|
|
|
|
if (C4::Context->preference('BakerTaylorEnabled')) {
|
|
$template->param(
|
|
JacketImages=>1,
|
|
BakerTaylorEnabled => 1,
|
|
BakerTaylorImageURL => &image_url(),
|
|
BakerTaylorLinkURL => &link_url(),
|
|
BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'),
|
|
);
|
|
}
|
|
|
|
BEGIN {
|
|
if (C4::Context->preference('BakerTaylorEnabled')) {
|
|
require C4::External::BakerTaylor;
|
|
import C4::External::BakerTaylor qw(&image_url &link_url);
|
|
}
|
|
}
|
|
|
|
for(qw(AmazonCoverImages GoogleJackets)) { # BakerTaylorEnabled handled above
|
|
C4::Context->preference($_) or next;
|
|
$template->param($_=>1);
|
|
$template->param(JacketImages=>1);
|
|
}
|
|
|
|
$template->param(
|
|
count => $count,
|
|
READING_RECORD => \@loop_reading,
|
|
limit => $limit,
|
|
showfulllink => 1,
|
|
readingrecview => 1
|
|
);
|
|
|
|
output_html_with_http_headers $query, $cookie, $template->output;
|
|
|