From d49b777567c373c041c304641b1ef8ef2074bbb7 Mon Sep 17 00:00:00 2001 From: Alex Buckley Date: Mon, 12 Aug 2019 11:00:03 +1200 Subject: [PATCH] Bug 23450: Display subscription and issue cost in subscription interface of the catalouge/detail.pl --- C4/Serials.pm | 4 +++- catalogue/detail.pl | 2 ++ koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt | 2 ++ 3 files changed, 7 insertions(+), 1 deletion(-) diff --git a/C4/Serials.pm b/C4/Serials.pm index 3cf09cd..9805344 100644 --- a/C4/Serials.pm +++ b/C4/Serials.pm @@ -539,12 +539,14 @@ sub SearchSubscriptions { biblio.author, biblio.biblionumber, aqbooksellers.name AS vendorname, - biblioitems.issn + biblioitems.issn, + items.price FROM subscription LEFT JOIN subscriptionhistory USING(subscriptionid) LEFT JOIN biblio ON biblio.biblionumber = subscription.biblionumber LEFT JOIN biblioitems ON biblioitems.biblionumber = subscription.biblionumber LEFT JOIN aqbooksellers ON subscription.aqbooksellerid = aqbooksellers.id + LEFT JOIN items ON biblioitems.biblioitemnumber = items.biblioitemnumber |; $query .= q| WHERE 1|; my @where_strs; diff --git a/catalogue/detail.pl b/catalogue/detail.pl index b4d9bae..d889d2e 100755 --- a/catalogue/detail.pl +++ b/catalogue/detail.pl @@ -172,6 +172,7 @@ my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, o my @subs; foreach my $subscription (@subscriptions) { + warn $subscription->{price}; my %cell; my $serials_to_display; $cell{subscriptionid} = $subscription->{subscriptionid}; @@ -183,6 +184,7 @@ foreach my $subscription (@subscriptions) { $cell{callnumber} = $subscription->{callnumber}; $cell{location} = $subscription->{location}; $cell{closed} = $subscription->{closed}; + $cell{price} = $subscription->{price}; #get the three latest serials. $serials_to_display = $subscription->{staffdisplaycount}; $serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt index 3819628..f6cc3a1 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/catalogue/detail.tt @@ -513,6 +513,7 @@ Date arrived Date published Status + Issue price Note [% FOREACH latestserial IN subscription.latestserials %] @@ -534,6 +535,7 @@ [% IF ( latestserial.status7 ) %]Claimed[% END %] [% IF ( latestserial.status8 ) %]Stopped[% END %] + [% latestserial.price | html %] [% latestserial.notes | html %] [% END %] -- 2.1.4