'.
'| '.
$pkg->{'pkg'}. ' | ' .
qq!(! .
'change) |
|---|
';
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!{'svcdb'} eq 'svc_external'
#&& $conf->exists('svc_external-skip_manual')
) {
$link = "${url}process_svc_external;".
"pkgnum=$pkg->{'pkgnum'};".
"svcpart=$part_svc->{'svcpart'}";
} else {
$link = "${url}provision_svc;".
"pkgnum=$pkg->{'pkgnum'};".
"svcpart=$part_svc->{'svcpart'}";
}
$OUT .= " | $td COLSPAN=3 ALIGN=center>".
qq!!. 'Setup '. $part_svc->{'svc'}. ' '.
'('. $part_svc->{'num_avail'}. ' available)'.
'
'
#self-service only supports these services so far
if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external );
$col = $col eq $col1 ? $col2 : $col1;
}
#$OUT .= '