|
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 |
|