Lines 37-42
use C4::Search; # enabled_staff_search_views
Link Here
|
37 |
use C4::Tags qw(get_tags); |
37 |
use C4::Tags qw(get_tags); |
38 |
use C4::XSLT; |
38 |
use C4::XSLT; |
39 |
use C4::Images; |
39 |
use C4::Images; |
|
|
40 |
use C4::Acquisition; |
40 |
use Koha::DateUtils; |
41 |
use Koha::DateUtils; |
41 |
use C4::HTML5Media; |
42 |
use C4::HTML5Media; |
42 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
43 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
Lines 210-215
my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, o
Link Here
|
210 |
my @subs; |
211 |
my @subs; |
211 |
|
212 |
|
212 |
foreach my $subscription (@subscriptions) { |
213 |
foreach my $subscription (@subscriptions) { |
|
|
214 |
|
215 |
#Get the order associated with this subscription to calculate and display subscription cost |
216 |
my $lastOrder; |
217 |
if ( subscriptionCurrentlyOnOrder $subscription->{subscriptionid} ) { |
218 |
$lastOrder = GetLastOrderNotReceivedFromSubscriptionid( $subscription->{subscriptionid} ); |
219 |
} else { |
220 |
$lastOrder = GetLastOrderReceivedFromSubscriptionid( $subscription->{subscriptionid} ); |
221 |
} |
222 |
my $subscriptioncost = sprintf( "%.2f", ($lastOrder->{ecost} || 0) * ($lastOrder->{quantity} || 0) ); |
223 |
|
213 |
my %cell; |
224 |
my %cell; |
214 |
my $serials_to_display; |
225 |
my $serials_to_display; |
215 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
226 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
Lines 221-232
foreach my $subscription (@subscriptions) {
Link Here
|
221 |
$cell{callnumber} = $subscription->{callnumber}; |
232 |
$cell{callnumber} = $subscription->{callnumber}; |
222 |
$cell{location} = $subscription->{location}; |
233 |
$cell{location} = $subscription->{location}; |
223 |
$cell{closed} = $subscription->{closed}; |
234 |
$cell{closed} = $subscription->{closed}; |
|
|
235 |
$cell{subscriptioncost} = $subscriptioncost; |
224 |
#get the three latest serials. |
236 |
#get the three latest serials. |
225 |
$serials_to_display = $subscription->{staffdisplaycount}; |
237 |
$serials_to_display = $subscription->{staffdisplaycount}; |
226 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
238 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
227 |
$cell{staffdisplaycount} = $serials_to_display; |
239 |
$cell{staffdisplaycount} = $serials_to_display; |
228 |
$cell{latestserials} = |
240 |
$cell{latestserials} = |
229 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
241 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
|
|
242 |
|
243 |
#Add the subscription cost to each of the latest serials for display |
244 |
my $i = 0; |
245 |
while ( $cell{latestserials}[$i] ) { |
246 |
$cell{latestserials}[$i]{total} = $subscriptioncost; |
247 |
$i++; |
248 |
} |
249 |
|
230 |
push @subs, \%cell; |
250 |
push @subs, \%cell; |
231 |
} |
251 |
} |
232 |
|
252 |
|