1 <FONT SIZE=4>Setup services</FONT><BR><BR>
4 function areyousure(href, message) {
5 if (confirm(message) == true)
6 window.location.href = href;
10 <TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">
13 grep { scalar(@{$_->{part_svc}})
14 || scalar(@{$_->{cust_svc}})
18 $OUT .= #'<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
19 '<TR><TH BGCOLOR="#6666ff" COLSPAN=2>'.
20 $pkg->{'pkg'}. '</TH><TH BGCOLOR="#6666ff" >' .
21 qq!(<A style="font-size: smaller;color: #000000" HREF="! .
22 qq!${url}customer_change_pkg;pkgnum=$pkg->{'pkgnum'};pkg=$pkg->{'pkg'}">! .
23 'change</A>)</TH></TR>';
29 foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
30 my $td = qq!<TD BGCOLOR="#$col"!;
33 "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
34 "$td><B>". $cust_svc->{label}[1]. '</B>';
35 $OUT .= '<BR><I>password: '. encode_entities($cust_svc->{_password}). '</I>'
36 if exists($cust_svc->{_password});
40 #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
41 # $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
45 unless ( $cust_svc->{'svcnum'} == $svcnum ) {
46 $OUT .= qq!(<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will permanently delete the $cust_svc->{label}[1] $cust_svc->{label}[0]. Are you sure?')">!.
50 $OUT .= '</FONT></TD></TR>';
51 $col = $col eq $col1 ? $col2 : $col1;
54 $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
55 if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
59 foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
61 my $td = qq!<TD BGCOLOR="#$col"!;
65 if ( $part_svc->{'svcdb'} eq 'svc_external'
66 #&& $conf->exists('svc_external-skip_manual')
68 $link = "${url}process_svc_external;".
69 "pkgnum=$pkg->{'pkgnum'};".
70 "svcpart=$part_svc->{'svcpart'}";
72 $link = "${url}provision_svc;".
73 "pkgnum=$pkg->{'pkgnum'};".
74 "svcpart=$part_svc->{'svcpart'}";
77 $OUT .= "<TR>$td COLSPAN=3 ALIGN=center>".
78 qq!<A HREF="$link">!. 'Setup '. $part_svc->{'svc'}. '</A> '.
79 '('. $part_svc->{'num_avail'}. ' available)'.
81 #self-service only supports these services so far
82 if grep { $part_svc->{'svcdb'} eq $_ } qw( svc_acct svc_external );
84 $col = $col eq $col1 ? $col2 : $col1;
87 #$OUT .= '</TABLE><BR>';
88 $OUT .= '<TR><TD BGCOLOR="#eeeeee" COLSPAN=3> </TD></TR>';