Setup services

<%= foreach my $pkg ( grep { scalar(@{$_->{part_svc}}) || scalar(@{$_->{cust_svc}}) } @cust_pkg ) { $OUT .= #''. ''; my $col1 = "ffffff"; my $col2 = "dddddd"; my $col = $col1; foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) { my $td = qq!'. "$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!$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 .= '

'. $pkg->{'pkg'}. '		' . qq!(! . 'change)
". $cust_svc->{label}[0]. ':
{'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 .= "

'; $OUT .= ' '; } %>