+
+ $OUT .= "<TD style='font-size: 85%'>";
+ my @cust_svc = @{$pkg->{cust_svc}};
+ foreach my $cust_svc ( @cust_svc ) {
+ my @label = @{$cust_svc->{'label'}};
+ $OUT .= qq!$label[0]: $label[1] <BR><BR>!;
+ }
+ my @part_svc = @{$pkg->{part_svc}};
+ foreach my $part_svc ( @part_svc ) {
+ my $link = qq!<A HREF="${url}provision_svc;!
+ . qq!pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}!
+ . qq!;numavail=$part_svc->{'num_avail'}">Setup !
+ . qq!$part_svc->{'svc'}</A> ($part_svc->{'num_avail'}!
+ . qq! available)<BR><BR>!;
+ $OUT .= $link if $part_svc->{'can_get_dids'};
+
+ if($part_svc->{'svcdb'} eq 'svc_phone' && $lnp) {
+ $OUT .= qq!<A HREF="${url}provision_svc;lnp=1;!
+ . qq!pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}!
+ . qq!">Port-In $part_svc->{'svc'}</A>!;
+ }
+ }
+
+ $OUT .= "</TD></TR>";