1 <HTML><HEAD><TITLE>MyAccount</TITLE></HEAD>
2 <BODY BGCOLOR="#eeeeee"><FONT SIZE=5>MyAccount</FONT><BR><BR>
3 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
4 <TABLE BORDER=0 CELLPADDING=4><TR>
5 <%= include('myaccount_menu') %>
7 <FONT SIZE=4>Setup services</FONT><BR><BR>
10 function areyousure(href, message) {
11 if (confirm(message) == true)
12 window.location.href = href;
17 grep { scalar(@{$_->{part_svc}})
18 || scalar(@{$_->{cust_svc}})
22 $OUT .= '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=2 BGCOLOR="#ffffff">'.
23 '<TR><TH BGCOLOR="#6666ff" COLSPAN=3>'.
31 foreach my $cust_svc ( @{ $pkg->{cust_svc} } ) {
32 my $td = qq!<TD BGCOLOR="#$col"!;
35 "$td ALIGN=right>". $cust_svc->{label}[0]. ': </TD>'.
36 "$td><B>". $cust_svc->{label}[1]. '</B></TD>'.
39 #if ( $cust_svc->{label}[2] eq 'svc_acct' ) {
40 # $OUT .= qq!(<A HREF="${url}changepw;svcnum=$cust_svc->{'svcnum'}">!.
44 unless ( $cust_svc->{'svcnum'} == $svcnum ) {
45 $OUT .= qq!(<A HREF="javascript:areyousure('${url}delete_svc;svcnum=$cust_svc->{svcnum}', 'This will perminantly delete the $cust_svc->{label}[1] $cust_svc->{label}[0]. Are you sure?')">!.
49 $OUT .= '</FONT></TD></TR>';
50 $col = $col eq $col1 ? $col2 : $col1;
53 $OUT .= '<TR><TD COLSPAN=3 BGCOLOR="#000000"></TD></TR>'
54 if scalar(@{$pkg->{part_svc}}) && scalar(@{$pkg->{cust_svc}});
58 foreach my $part_svc ( @{ $pkg->{part_svc} } ) {
60 my $td = qq!<TD BGCOLOR="#$col"!;
62 $OUT .= "<TR>$td COLSPAN=3>".
63 qq!<A HREF="${url}provision_svc;pkgnum=$pkg->{'pkgnum'};svcpart=$part_svc->{'svcpart'}">!.
64 'Setup '. $part_svc->{'svc'}. '</A> '.
65 '('. $part_svc->{'num_avail'}. ' available)'.
67 $col = $col eq $col1 ? $col2 : $col1;
70 $OUT .= '</TABLE><BR>';
76 <FONT SIZE="-2">powered by <a href="http://www.sisd.com/freeside">freeside</a></FONT>