#coping with subscriptions
my $subscriptionsnumber = CountSubscriptionFromBiblionumber($biblionumber);
my @subscriptions = GetSubscriptions( $dat->{title}, $dat->{issn}, $biblionumber );
+
my @subs;
$dat->{'serial'}=1 if $subscriptionsnumber;
foreach my $subscription (@subscriptions) {
+ my $serials_to_display;
my %cell;
$cell{subscriptionid} = $subscription->{subscriptionid};
$cell{subscriptionnotes} = $subscription->{notes};
$cell{branchcode} = $subscription->{branchcode};
$cell{hasalert} = $subscription->{hasalert};
#get the three latest serials.
+ $serials_to_display = $subscription->{opacdisplaycount};
+ $serials_to_display = C4::Context->preference('OPACSerialIssueDisplayCount') unless $serials_to_display;
+ $cell{opacdisplaycount} = $serials_to_display;
$cell{latestserials} =
- GetLatestSerials( $subscription->{subscriptionid}, 3 );
+ GetLatestSerials( $subscription->{subscriptionid}, $serials_to_display );
push @subs, \%cell;
}