1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
3 <TD VALIGN="top" HEIGHT=384 BGCOLOR="#dddddd">
5 <TABLE CELLSPACING=0 BORDER=0>
11 { title=>'Overview', url=>'myaccount', size=>'+1', },
14 { title=>'Purchase', size=>'+1', },
15 { title=>'Purchase additional package*',
16 url=>'customer_order_pkg', 'indent'=>2 },
19 if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eventually per-pkg or something really fancy
22 { title=>'Recharge my account with a credit card',
23 url=>'make_payment', indent=>2 },
24 { title=>'Recharge my account with a prepaid card',
25 url=>'recharge_prepay', indent=>2 },
34 { title=>'Setup my services', url=>'provision', size=>'+1', },
38 { title=>'Change my information', size=>'+1', },
39 # { title=>'Change payment information*', url=>'change_bill', indent=>2 },
40 # { title=>'Change service address*', url=>'change_ship', indent=>2 },
41 { title=>'Change password(s)', url=>'change_password', indent=>2 },
45 { title=>'Logout', url=>'logout', size=>'+1', },
49 foreach my $item ( @menu ) {
52 if ( exists $item->{'url'} && $action eq $item->{'url'} ) {
53 $OUT .= ' BGCOLOR="#eeeeee" '.
54 ' STYLE="border-top: 1px solid black;'.
55 ' border-left: 1px solid black;'.
56 ' border-bottom: 1px solid black"';
58 $OUT .= ' STYLE="border-right: 1px solid black"';
62 $OUT .= '<FONT SIZE="'. $item->{'size'}. '">'
63 if exists $item->{'size'};
65 $OUT .= ' ' x $item->{'indent'}
66 if exists $item->{'indent'};
68 $OUT .= '<A HREF="'. $url. $item->{'url'}. '">'
69 if exists $item->{'url'} && $action ne $item->{'url'};
71 $item->{'title'} =~ s/ / /g;
72 $OUT .= $item->{'title'};
75 if exists $item->{'size'};
78 if exists $item->{'url'} && $action ne $item->{'url'};
86 <!-- <TR><TD STYLE="border-right: 1px solid black"><BR><BR>* coming soon</TD></TR> -->
88 <TR><TD STYLE="border-right: 1px solid black" HEIGHT="100%"><BR><BR><BR><BR></TD></TR>