<%= $url = "$selfurl?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 }; } my %payby_mode; @payby_mode{@cust_paybys} = @hide_payment_fields; # $payby_mode{FOO} is true if FOO is thirdparty, false if it's B::OP, # nonexistent if it's not supported if ( $enable_payment_without_balance || (($balance || 0) > 0) ) { #eventually per-pkg or something really fancy if ( exists( $payby_mode{CARD} ) ) { push @menu, { title => 'Recharge my account with a credit card', url => $payby_mode{CARD} ? 'make_thirdparty_payment&payby_method=CC' : 'make_payment', indent => 2, } } if ( exists( $payby_mode{CHEK} ) ) { push @menu, { title => 'Recharge my account with a check', url => $payby_mode{CHEK} ? 'make_thirdparty_payment&payby_method=ECHECK' : 'make_ach_payment', indent => 2, } } if ( exists( $payby_mode{PREPAY} ) ) { push @menu, { title => 'Recharge my account with a prepaid card', url => 'recharge_prepay', indent => 2, } } if ( exists( $payby_mode{PPAL} ) ) { push @menu, { title => 'Recharge my account with PayPal', url => 'make_thirdparty_payment&payby_method=PAYPAL', indent => 2, } } } push @menu, { title=>' ' }; push @menu, { title=>'View payment history', url=>'history', size=>'+1' }, ; unless( $hide_usage ){ push @menu, { title=>'View my usage', url=>'view_usage', size=>'+1', } } push @menu, { 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 credit card information', url=>'change_creditcard_pay', indent=>2 }, { title=>'Change check information', url=>'change_check_pay', indent=>2 }, ; } push @menu, { title=>'Change password(s)', url=>'change_password', indent=>2 }, { title=>' ' }, { title=>'Logout', url=>'logout', size=>'+1', }, ; my %menu_disable = map { $_=>1 } @menu_disable; foreach my $item ( @menu ) { next if ( $menu_skipblanks && $item->{'title'} =~ /^\s*$/ ) || ( $menu_skipheadings && ! $item->{'url'} ) || $menu_disable{$item->{'title'}}; $OUT .= '{'url'} && $action eq $item->{'url'} ) { $OUT .= #' BGCOLOR="'. ( $body_bgcolor || '#eeeeee' ). '" '. ' STYLE="background: url(image.cgi?name=menu_body_image;agentnum='. $agentnum. ') 0 bottom; '. ' color:#3366CC"; '. #XXX config ' " '; } else { $OUT .= ' STYLE="background: url(image.cgi?name=menu_body_imagei;agentnum='. $agentnum. ') 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 .= ''; } %>