use CGI qw ( -utf8 );
-use C4::Auth;
-use C4::Koha;
+use C4::Auth qw( get_template_and_user );
+use C4::Koha qw(
+ getitemtypeimagelocation
+ GetNormalizedISBN
+ GetNormalizedUPC
+);
use C4::Biblio;
-use C4::Circulation;
-use C4::Members;
+use C4::Members qw( GetAllIssues );
use C4::External::BakerTaylor qw( image_url link_url );
-use Koha::DateUtils;
use MARC::Record;
-use C4::Output;
-use C4::Charset qw(StripNonXmlChars);
+use C4::Output qw( output_html_with_http_headers );
+use C4::Charset qw( StripNonXmlChars );
use Koha::Patrons;
use Koha::ItemTypes;
use Koha::Ratings;
-my $query = new CGI;
+my $query = CGI->new;
# if opacreadinghistory is disabled, leave immediately
if ( ! C4::Context->preference('opacreadinghistory') ) {
template_name => "opac-readingrecord.tt",
query => $query,
type => "opac",
- authnotrequired => 0,
- debug => 1,
}
);
-my $borr = Koha::Patrons->find( $borrowernumber )->unblessed;
-
-$template->param(%{$borr});
-
my $itemtypes = { map { $_->{itemtype} => $_ } @{ Koha::ItemTypes->search_with_localization->unblessed } };
# get the record
$template->param(JacketImages=>1);
}
+my $saving_display = C4::Context->preference('OPACShowSavings');
+if ( $saving_display =~ /checkouthistory/ ) {
+ my $patron = Koha::Patrons->find( $borrowernumber );
+ $template->param( savings => $patron->get_savings );
+}
+
$template->param(
READING_RECORD => $issues,
limit => $limit,