|
Lines 172-177
my @subscriptions = SearchSubscriptions({ biblionumber => $biblionumber, o
Link Here
|
| 172 |
my @subs; |
172 |
my @subs; |
| 173 |
|
173 |
|
| 174 |
foreach my $subscription (@subscriptions) { |
174 |
foreach my $subscription (@subscriptions) { |
|
|
175 |
warn $subscription->{price}; |
| 175 |
my %cell; |
176 |
my %cell; |
| 176 |
my $serials_to_display; |
177 |
my $serials_to_display; |
| 177 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
178 |
$cell{subscriptionid} = $subscription->{subscriptionid}; |
|
Lines 183-188
foreach my $subscription (@subscriptions) {
Link Here
|
| 183 |
$cell{callnumber} = $subscription->{callnumber}; |
184 |
$cell{callnumber} = $subscription->{callnumber}; |
| 184 |
$cell{location} = $subscription->{location}; |
185 |
$cell{location} = $subscription->{location}; |
| 185 |
$cell{closed} = $subscription->{closed}; |
186 |
$cell{closed} = $subscription->{closed}; |
|
|
187 |
$cell{price} = $subscription->{price}; |
| 186 |
#get the three latest serials. |
188 |
#get the three latest serials. |
| 187 |
$serials_to_display = $subscription->{staffdisplaycount}; |
189 |
$serials_to_display = $subscription->{staffdisplaycount}; |
| 188 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |
190 |
$serials_to_display = C4::Context->preference('StaffSerialIssueDisplayCount') unless $serials_to_display; |