1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
3 <TD VALIGN="top" HEIGHT="100%" BGCOLOR="<%= $box_bgcolor || '#c0c0c0' %>">
5 <TABLE CELLSPACING=0 BORDER=0 HEIGHT="100%">
11 { title=>'Overview', url=>'myaccount', size=>'+1', },
13 { title=>'Purchase', size=>'+1', },
16 unless ( $access_pkgnum ) {
18 { title=>'Purchase additional package',
19 url=>'customer_order_pkg', 'indent'=>2 };
22 if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eventually per-pkg or something really fancy
24 #XXXFIXME still a bit sloppy for multi-gateway of differing namespace
26 while($i < scalar(@cust_paybys)) { last if $cust_paybys[$i] =~ /^CARD/; $i++ }
27 if ( $cust_paybys[$i] =~ /^CARD/ ) {
28 push @menu, { title => 'Recharge my account with a credit card',
29 url => $hide_payment_fields[$i]
30 ? 'make_thirdparty_payment&payby_method=CC'
37 while($i < scalar(@cust_paybys)) { last if $cust_paybys[$i] =~ /^CHEK/; $i++ }
38 if ( $cust_paybys[$i] =~ /^CHEK/ ) {
39 push @menu, { title => 'Recharge my account with a check',
40 url => $hide_payment_fields[$i]
41 ? 'make_thirdparty_payment&payby_method=ECHECK'
47 push @menu, { title => 'Recharge my account with a prepaid card',
48 url => 'recharge_prepay',
51 if grep(/^PREP/, @cust_paybys);
57 { title=>'View my usage', url=>'view_usage', size=>'+1', },
60 unless ( $access_pkgnum ) {
62 { title=>'Setup my services', url=>'provision', size=>'+1', },
70 { title=>'Change my information', size=>'+1', };
72 unless ( $access_pkgnum ) {
74 { title=>'Change billing address', url=>'change_bill', indent=>2 },
75 { title=>'Change service address', url=>'change_ship', indent=>2 },
76 { title=>'Change payment information', url=>'change_pay', indent=>2 },
81 { title=>'Change password(s)', url=>'change_password', indent=>2 },
83 { title=>'Logout', url=>'logout', size=>'+1', },
86 foreach my $item ( @menu ) {
89 if ( exists $item->{'url'} && $action eq $item->{'url'} ) {
90 $OUT .= ' BGCOLOR="'. ( $body_bgcolor || '#eeeeee' ). '" '.
91 ' STYLE="border-top: 1px solid black;'.
92 ' border-left: 1px solid black;'.
93 ' border-bottom: 1px solid black"';
95 $OUT .= ' STYLE="border-right: 1px solid black"';
99 $OUT .= ' ' x $item->{'indent'}
100 if exists $item->{'indent'};
102 $OUT .= '<A HREF="'. $url. $item->{'url'}. '">'
103 if exists $item->{'url'} && $action ne $item->{'url'};
105 $OUT .= '<FONT SIZE="'. $item->{'size'}. '">'
106 if exists $item->{'size'};
108 $item->{'title'} =~ s/ / /g;
109 $OUT .= $item->{'title'};
112 if exists $item->{'size'};
115 if exists $item->{'url'} && $action ne $item->{'url'};
117 $OUT .= '</TD></TR>';
123 <TR><TD STYLE="border-right: 1px solid black" HEIGHT="100%"><BR><BR><BR><BR></TD></TR>