X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=opac%2Fopac-readingrecord.pl;h=49348adf457c68929d08912abaf20b4a0570b1ba;hb=6d3136c7e893011bd7cdfd0b6415d20929b6a66b;hp=489e64b50e817ee68cba930d0019459d35c7a420;hpb=4bf76c2d77cb32dd7147b11334eb17aa959955ba;p=koha.git diff --git a/opac/opac-readingrecord.pl b/opac/opac-readingrecord.pl index 489e64b50e..49348adf45 100755 --- a/opac/opac-readingrecord.pl +++ b/opac/opac-readingrecord.pl @@ -2,121 +2,125 @@ # 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 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 3 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. +# 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 +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; +use Modern::Perl; -use CGI; +use CGI qw ( -utf8 ); use C4::Auth; use C4::Koha; +use C4::Biblio; use C4::Circulation; -use C4::Dates qw/format_date/; use C4::Members; +use Koha::DateUtils; +use MARC::Record; use C4::Output; +use C4::Charset qw(StripNonXmlChars); +use Koha::Patrons; + +use Koha::ItemTypes; my $query = new CGI; + +# if opacreadinghistory is disabled, leave immediately +if ( ! C4::Context->preference('opacreadinghistory') ) { + print $query->redirect("/cgi-bin/koha/errors/404.pl"); + exit; +} + my ( $template, $borrowernumber, $cookie ) = get_template_and_user( { - template_name => "opac-readingrecord.tmpl", + template_name => "opac-readingrecord.tt", query => $query, type => "opac", authnotrequired => 0, - flagsrequired => { borrow => 1 }, debug => 1, } ); -# get borrower information .... -my ( $borr ) = GetMemberDetails( $borrowernumber ); +my $borr = Koha::Patrons->find( $borrowernumber )->unblessed; -$template->param($borr); +$template->param(%{$borr}); -my $itemtypes = GetItemTypes(); +my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } }; # 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' ) { +my $order = $query->param('order') || ''; +if ( $order eq 'title' ) { $template->param( orderbytitle => 1 ); } - -if ( $order2 eq 'author' ) { +elsif ( $order eq 'author' ) { $template->param( orderbyauthor => 1 ); } - -my $limit = $query->param('limit'); -if ( $limit eq 'full' ) { - $limit = 0; -} else { - $limit = 50; + $order = "date_due desc"; + $template->param( orderbydate => 1 ); } -my ( $count, $issues ) = GetAllIssues( $borrowernumber, $order2, $limit ); - -# add the row parity -#my $num = 0; -#foreach my $row (@$issues) { -# $row->{'even'} = 1 if $num % 2 == 0; -# $row->{'odd'} = 1 if $num % 2 == 1; -# $num++; -#} -my @loop_reading; - -for ( my $i = 0 ; $i < $count ; $i++ ) { - my %line; - if ( $i % 2 ) { - $line{'toggle'} = 1; +my $limit = $query->param('limit'); +$limit //= ''; +$limit = ( $limit eq 'full' ) ? 0 : 50; + +my $issues = GetAllIssues( $borrowernumber, $order, $limit ); + +my $itype_attribute = + ( C4::Context->preference('item-level_itypes') ) ? 'itype' : 'itemtype'; + +my $opac_summary_html = C4::Context->preference('OPACMySummaryHTML'); +foreach my $issue ( @{$issues} ) { + $issue->{normalized_isbn} = GetNormalizedISBN( $issue->{isbn} ); + if ( $issue->{$itype_attribute} ) { + $issue->{translated_description} = + $itemtypes->{ $issue->{$itype_attribute} }->{translated_description}; + $issue->{imageurl} = + getitemtypeimagelocation( 'opac', + $itemtypes->{ $issue->{$itype_attribute} }->{imageurl} ); + } + my $marcxml = C4::Biblio::GetXmlBiblio( $issue->{biblionumber} ); + if ( $marcxml ) { + $marcxml = StripNonXmlChars( $marcxml ); + my $marc_rec = + MARC::Record::new_from_xml( $marcxml, 'utf8', + C4::Context->preference('marcflavour') ); + $issue->{subtitle} = + GetRecordValue( 'subtitle', $marc_rec, $issue->{frameworkcode} ); + $issue->{normalized_upc} = GetNormalizedUPC( $marc_rec, C4::Context->preference('marcflavour') ); + } + # My Summary HTML + if ($opac_summary_html) { + my $my_summary_html = $opac_summary_html; + $issue->{author} + ? $my_summary_html =~ s/{AUTHOR}/$issue->{author}/g + : $my_summary_html =~ s/{AUTHOR}//g; + my $title = $issue->{title}; + $title =~ s/\/+$//; # remove trailing slash + $title =~ s/\s+$//; # remove trailing space + $title + ? $my_summary_html =~ s/{TITLE}/$title/g + : $my_summary_html =~ s/{TITLE}//g; + $issue->{normalized_isbn} + ? $my_summary_html =~ s/{ISBN}/$issue->{normalized_isbn}/g + : $my_summary_html =~ s/{ISBN}//g; + $issue->{biblionumber} + ? $my_summary_html =~ s/{BIBLIONUMBER}/$issue->{biblionumber}/g + : $my_summary_html =~ s/{BIBLIONUMBER}//g; + $issue->{MySummaryHTML} = $my_summary_html; } - - # XISBN Stuff - my $xisbn=$issues->[$i]->{'isbn'}; - $xisbn =~ /(\d*[X]*)/; - $line{amazonisbn} = $1; # FIXME: so it is OK if the ISBN = 'XXXXX' ? - my ($clean, $amazonisbn); - $amazonisbn = $1; - # these might be overkill, but they are better than the regexp above. - if ( - $amazonisbn =~ /\b(\d{13})\b/ or - $amazonisbn =~ /\b(\d{10})\b/ or - $amazonisbn =~ /\b(\d{9}X)\b/i - ) { - $clean = $1; - $line{clean_isbn} = $1; - } - - $line{biblionumber} = $issues->[$i]->{'biblionumber'}; - $line{title} = $issues->[$i]->{'title'}; - $line{author} = $issues->[$i]->{'author'}; - $line{isbn} = $issues->[$i]->{'isbn'}; - $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')) { @@ -136,19 +140,17 @@ BEGIN { } } -for(qw(AmazonContent GoogleJackets)) { # BakerTaylorEnabled handled above +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, + READING_RECORD => $issues, limit => $limit, - showfulllink => 1, - readingrecview => 1 + readingrecview => 1, + OPACMySummaryHTML => $opac_summary_html ? 1 : 0, ); -output_html_with_http_headers $query, $cookie, $template->output; - +output_html_with_http_headers $query, $cookie, $template->output, undef, { force_no_caching => 1 };