'.
'| '.
$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]. '';
$OUT .= '
password: '. encode_entities($cust_svc->{_password}). ''
if exists($cust_svc->{_password});
$OUT .= ''.
"$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}});
$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 .= '