|
Lines 129-135
if (@subscriptionid){
Link Here
|
| 129 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern}); |
129 |
my $numberpattern = C4::Serials::Numberpattern::GetSubscriptionNumberpattern($subs->{numberpattern}); |
| 130 |
$subs->{frequency} = $frequency; |
130 |
$subs->{frequency} = $frequency; |
| 131 |
$subs->{numberpattern} = $numberpattern; |
131 |
$subs->{numberpattern} = $numberpattern; |
| 132 |
$subs->{'hasRouting'} = check_routing($subscriptionid); |
132 |
$subs->{'hasRouting'} = GetRoutingListsCount($subscriptionid); |
| 133 |
push @$subscriptiondescs,$subs; |
133 |
push @$subscriptiondescs,$subs; |
| 134 |
my $tmpsubscription= GetFullSubscription($subscriptionid); |
134 |
my $tmpsubscription= GetFullSubscription($subscriptionid); |
| 135 |
@subscriptioninformation=(@$tmpsubscription,@subscriptioninformation); |
135 |
@subscriptioninformation=(@$tmpsubscription,@subscriptioninformation); |