Setup services
<%= foreach my $pkg (
grep { scalar(@{$_->{part_svc}})
|| scalar(@{$_->{cust_svc}})
} @cust_pkg
) {
$OUT .= ''.
''.
$pkg->{'pkg'}.
' | ';
my $col1 = "ffffff";
my $col2 = "dddddd";
my $col = $col1;
foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
my $td = qq!". $cust_svc->{label}[0]. ': | '.
"$td>". $cust_svc->{label}[1]. ''.
"$td>";
#if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
# $OUT .= qq!(!.
# 'change pw) ';
#}
unless ( $cust_svc->{'svcnum'} == $svcnum ) {
$OUT .= qq!(!.
'delete)';
}
$OUT .= '';
$col = $col eq $col1 ? $col2 : $col1;
}
$OUT .= ' | '
if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
my $col = $col1;
foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
my $td = qq!!.
'Setup '. $part_svc->{'svc'}. ' '.
'('. $part_svc->{'num_avail'}. ' available)'.
' | ';
$col = $col eq $col1 ? $col2 : $col1;
}
$OUT .= ' ';
} %>
|