<%= $url = "$selfurl?session=$session_id;action="; ''; %>

<%= my @menu = ( { title=>' ' }, { title=>'Overview', url=>'myaccount', size=>'+1', }, { title=>' ' }, #{ title=>'Purchase', size=>'+1', }, # { title=>'Purchase additional package', # url=>'customer_order_pkg', 'indent'=>2 }, ); if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eventually per-pkg or something really fancy push @menu, ( { title=>'Recharge my account with a credit card', url=>'make_payment', indent=>2 }, { title=>'Recharge my account with a check', url=>'make_ach_payment', indent=>2 }, { title=>'Recharge my account with a prepaid card', url=>'recharge_prepay', indent=>2 }, ); } push @menu, ( #{ title=>' ' }, #{ title=>'View my usage', url=>'view_usage', size=>'+1', }, #{ title=>'Setup my services', url=>'provision', size=>'+1', }, { title=>' ' }, { title=>'Change my information', size=>'+1', }, # { title=>'Change payment information*', url=>'change_bill', indent=>2 }, # { title=>'Change service address*', url=>'change_ship', indent=>2 }, { title=>'Change password(s)', url=>'change_password', indent=>2 }, { title=>' ' }, { title=>'Logout', url=>'logout', size=>'+1', }, ); foreach my $item ( @menu ) { $OUT .= '{'url'} && $action eq $item->{'url'} ) { $OUT .= ' BGCOLOR="#eeeeee" '. ' STYLE="border-top: 1px solid black;'. ' border-left: 1px solid black;'. ' border-bottom: 1px solid black"'; } else { $OUT .= ' STYLE="border-right: 1px solid black"'; } $OUT.='>'; $OUT .= '' if exists $item->{'size'}; $OUT .= ' ' x $item->{'indent'} if exists $item->{'indent'}; $OUT .= '' if exists $item->{'url'} && $action ne $item->{'url'}; $item->{'title'} =~ s/ / /g; $OUT .= $item->{'title'}; $OUT .= '' if exists $item->{'size'}; $OUT .= '' if exists $item->{'url'} && $action ne $item->{'url'}; $OUT .= ''; } %>