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

<%= if ( $menu_top_image ) { $OUT .= ''; } my @menu = ( { title=>' ' }, { title=>'Overview', url=>'myaccount', size=>'+1', }, { title=>' ' }, { title=>'Purchase', size=>'+1', }, ); unless ( $access_pkgnum ) { push @menu, { title=>'Purchase additional package', url=>'customer_order_pkg', 'indent'=>2 }; } if ( $balance > 0 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eventually per-pkg or something really fancy #XXXFIXME still a bit sloppy for multi-gateway of differing namespace my $i = 0; while($i < scalar(@cust_paybys)) { last if $cust_paybys[$i] =~ /^CARD/; $i++ } if ( $cust_paybys[$i] && $cust_paybys[$i] =~ /^CARD/ ) { push @menu, { title => 'Recharge my account with a credit card', url => $hide_payment_fields[$i] ? 'make_thirdparty_payment&payby_method=CC' : 'make_payment', indent => 2, } } $i = 0; while($i < scalar(@cust_paybys)) { last if $cust_paybys[$i] =~ /^CHEK/; $i++ } if ( $cust_paybys[$i] && $cust_paybys[$i] =~ /^CHEK/ ) { push @menu, { title => 'Recharge my account with a check', url => $hide_payment_fields[$i] ? 'make_thirdparty_payment&payby_method=ECHECK' : 'make_ach_payment', indent => 2, } } push @menu, { title => 'Recharge my account with a prepaid card', url => 'recharge_prepay', indent => 2, } if grep(/^PREP/, @cust_paybys); } push @menu, { title=>' ' }, { title=>'View my usage', url=>'view_usage', size=>'+1', }, { title=>'Create a ticket', url=>'tktcreate', size=>'+1', }, ; unless ( $access_pkgnum ) { push @menu, { title=>'Setup my services', url=>'provision', size=>'+1', }, ; } push @menu, { title=>' ' }; push @menu, { title=>'Change my information', size=>'+1', }; unless ( $access_pkgnum ) { push @menu, { title=>'Change billing address', url=>'change_bill', indent=>2 }, { title=>'Change service address', url=>'change_ship', indent=>2 }, { title=>'Change payment information', url=>'change_pay', indent=>2 }, ; } push @menu, { title=>'Change password(s)', url=>'change_password', indent=>2 }, { title=>' ' }, { title=>'Logout', url=>'logout', size=>'+1', }, ; foreach my $item ( @menu ) { next if $menu_skipblanks && $item->{'title'} =~ /^\s*$/; next if $menu_skipheadings && ! $item->{'url'}; $OUT .= '{'url'} && $action eq $item->{'url'} ) { $OUT .= #' BGCOLOR="'. ( $body_bgcolor || '#eeeeee' ). '" '. ' STYLE="background: url(image.cgi?menu_body_image) 0 bottom; '. ' color:#3366CC"; '. #XXX config ' " '; } else { $OUT .= ' STYLE="background: url(image.cgi?menu_body_image) 0 bottom" '; } } else { if ( exists $item->{'url'} && $action eq $item->{'url'} ) { $OUT .= ' BGCOLOR="'. ( $body_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.='>'; if ( $menu_skipheadings ) { $OUT .= '  '; } else { $OUT .= ' ' x $item->{'indent'} if exists $item->{'indent'}; } $OUT .= '' if exists $item->{'url'} && $action ne $item->{'url'}; $OUT .= '' if $menu_fontsize || exists($item->{'size'}); $item->{'title'} =~ s/ / /g; $OUT .= $item->{'title'}; $OUT .= '' if exists $item->{'size'}; $OUT .= '' if exists $item->{'url'} && $action ne $item->{'url'}; $OUT .= ''; } if ( $menu_bottom_image ) { $OUT .= ''; } else { $OUT .= ''; } %>