|
Lines 36-41
use C4::Search; # enabled_staff_search_views
Link Here
|
| 36 |
use C4::Tags qw(get_tags); |
36 |
use C4::Tags qw(get_tags); |
| 37 |
use C4::XSLT; |
37 |
use C4::XSLT; |
| 38 |
use C4::Images; |
38 |
use C4::Images; |
|
|
39 |
use C4::Acquisition; |
| 39 |
use Koha::DateUtils; |
40 |
use Koha::DateUtils; |
| 40 |
use C4::HTML5Media; |
41 |
use C4::HTML5Media; |
| 41 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
42 |
use C4::CourseReserves qw(GetItemCourseReservesInfo); |
|
Lines 172-177
my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, o
Link Here
|
| 172 |
my @subs; |
173 |
my @subs; |
| 173 |
|
174 |
|
| 174 |
foreach my $subscription (@subscriptions) { |
175 |
foreach my $subscription (@subscriptions) { |
|
|
176 |
|
| 177 |
#Get the order associated with this subscription to calculate and display subscription cost |
| 178 |
my $lastOrder; |
| 179 |
if ( subscriptionCurrentlyOnOrder $subscription->{subscriptionid} ) { |
| 180 |
$lastOrder = GetLastOrderNotReceivedFromSubscriptionid( $subscription->{subscriptionid} ); |
| 181 |
} else { |
| 182 |
$lastOrder = GetLastOrderReceivedFromSubscriptionid( $subscription->{subscriptionid} ); |
| 183 |
} |
| 184 |
my $subscriptioncost = sprintf( "%.2f", ($lastOrder->{ecost} || 0) * ($lastOrder->{quantity} || 0) ); |
| 185 |
|
| 175 |
my %cell; |
186 |
my %cell; |
| 176 |
my $serials_to_display; |
187 |
my $serials_to_display; |
| 177 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
188 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
|
Lines 183-194
foreach my $subscription (@subscriptions) {
Link Here
|
| 183 |
$cell{callnumber} = $subscription->{callnumber}; |
194 |
$cell{callnumber} = $subscription->{callnumber}; |
| 184 |
$cell{location} = $subscription->{location}; |
195 |
$cell{location} = $subscription->{location}; |
| 185 |
$cell{closed} = $subscription->{closed}; |
196 |
$cell{closed} = $subscription->{closed}; |
|
|
197 |
$cell{subscriptioncost} = $subscriptioncost; |
| 186 |
#get the three latest serials. |
198 |
#get the three latest serials. |
| 187 |
$serials_to_display = $subscription->{staffdisplaycount}; |
199 |
$serials_to_display = $subscription->{staffdisplaycount}; |
| 188 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
200 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
| 189 |
$cell{staffdisplaycount} = $serials_to_display; |
201 |
$cell{staffdisplaycount} = $serials_to_display; |
| 190 |
$cell{latestserials} = |
202 |
$cell{latestserials} = |
| 191 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
203 |
GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display ); |
|
|
204 |
|
| 205 |
#Add the subscription cost to each of the latest serials for display |
| 206 |
my $i = 0; |
| 207 |
while ( $cell{latestserials}[$i] ) { |
| 208 |
$cell{latestserials}[$i]{total} = $subscriptioncost; |
| 209 |
$i++; |
| 210 |
} |
| 211 |
|
| 192 |
push @subs, \%cell; |
212 |
push @subs, \%cell; |
| 193 |
} |
213 |
} |
| 194 |
|
214 |
|