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