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