Lines 134-140
if (@subscriptionid){
Link Here
|
134 |
$subscriptions=PrepareSerialsData(\@subscriptioninformation); |
134 |
$subscriptions=PrepareSerialsData(\@subscriptioninformation); |
135 |
$subscriptioncount = CountSubscriptionFromBiblionumber($subscriptiondescs->[0]{'biblionumber'}); |
135 |
$subscriptioncount = CountSubscriptionFromBiblionumber($subscriptiondescs->[0]{'biblionumber'}); |
136 |
} else { |
136 |
} else { |
137 |
$subscriptiondescs = GetSubscriptionsFromBiblionumber($biblionumber) ; |
137 |
$subscriptiondescs = GetSubscriptionsFromBiblionumber($biblionumber); |
|
|
138 |
foreach my $s (@$subscriptiondescs) { |
139 |
my $frequency = C4::Serials::Frequency::GetSubscriptionFrequency($s->{periodicity}); |
140 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($s->{numberpattern}); |
141 |
$s->{frequency} = $frequency; |
142 |
$s->{numberpattern} = $numberpattern; |
143 |
} |
138 |
my $subscriptioninformation = GetFullSubscriptionsFromBiblionumber($biblionumber); |
144 |
my $subscriptioninformation = GetFullSubscriptionsFromBiblionumber($biblionumber); |
139 |
$subscriptions=PrepareSerialsData($subscriptioninformation); |
145 |
$subscriptions=PrepareSerialsData($subscriptioninformation); |
140 |
} |
146 |
} |
141 |
- |
|
|