3 # This file is part of Koha.
5 # Koha is free software; you can redistribute it and/or modify it under the
6 # terms of the GNU General Public License as published by the Free Software
7 # Foundation; either version 2 of the License, or (at your option) any later
10 # Koha is distributed in the hope that it will be useful, but WITHOUT ANY
11 # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
12 # A PARTICULAR PURPOSE. See the GNU General Public License for more details.
14 # You should have received a copy of the GNU General Public License along with
15 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
16 # Suite 330, Boston, MA 02111-1307 USA
26 use C4::Dates qw/format_date/;
32 my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
34 template_name => "opac-readingrecord.tmpl",
38 flagsrequired => { borrow => 1 },
43 # get borrower information ....
44 my ( $borr, $flags ) = GetMemberDetails( $borrowernumber );
46 $template->param($borr);
48 my $imgdir = getitemtypeimagesrc();
49 my $itemtypes = GetItemTypes();
52 my $order = $query->param('order');
54 if ( $order2 eq '' ) {
55 $order2 = "date_due desc";
56 $template->param( orderbydate => 1 );
59 if ( $order2 eq 'title' ) {
60 $template->param( orderbytitle => 1 );
63 if ( $order2 eq 'author' ) {
64 $template->param( orderbyauthor => 1 );
67 my $limit = $query->param('limit');
68 if ( $limit eq 'full' ) {
75 my ( $count, $issues ) = GetAllIssues( $borrowernumber, $order2, $limit );
79 #foreach my $row (@$issues) {
80 # $row->{'even'} = 1 if $num % 2 == 0;
81 # $row->{'odd'} = 1 if $num % 2 == 1;
87 for ( my $i = 0 ; $i < $count ; $i++ ) {
94 my $xisbn=$issues->[$i]->{'isbn'};
95 $xisbn =~ /(\d*[X]*)/;
96 $line{amazonisbn} = $1; # FIXME: so it is OK if the ISBN = 'XXXXX' ?
97 my ($clean, $amazonisbn);
99 # these might be overkill, but they are better than the regexp above.
101 $amazonisbn =~ /\b(\d{13})\b/ or
102 $amazonisbn =~ /\b(\d{10})\b/ or
103 $amazonisbn =~ /\b(\d{9}X)\b/i
106 $line{clean_isbn} = $1;
109 $line{biblionumber} = $issues->[$i]->{'biblionumber'};
110 $line{title} = $issues->[$i]->{'title'};
111 $line{author} = $issues->[$i]->{'author'};
112 $line{isbn} = $issues->[$i]->{'isbn'};
113 $line{itemcallnumber} = $issues->[$i]->{'itemcallnumber'};
114 $line{date_due} = format_date( $issues->[$i]->{'date_due'} );
115 $line{returndate} = format_date( $issues->[$i]->{'returndate'} );
116 $line{volumeddesc} = $issues->[$i]->{'volumeddesc'};
117 $line{counter} = $i + 1;
118 $line{'description'} = $itemtypes->{ $issues->[$i]->{'itemtype'} }->{'description'};
119 $line{imageurl} = $imgdir."/".$itemtypes->{ $issues->[$i]->{'itemtype'} }->{'imageurl'};
120 push( @loop_reading, \%line );
123 if (C4::Context->preference('BakerTaylorEnabled')) {
125 BakerTaylorEnabled => 1,
126 BakerTaylorImageURL => &image_url(),
127 BakerTaylorLinkURL => &link_url(),
128 BakerTaylorBookstoreURL => C4::Context->preference('BakerTaylorBookstoreURL'),
133 if (C4::Context->preference('BakerTaylorEnabled')) {
134 require C4::External::BakerTaylor;
135 import C4::External::BakerTaylor qw(&image_url &link_url);
141 READING_RECORD => \@loop_reading,
147 output_html_with_http_headers $query, $cookie, $template->output;