<%=
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 ( $balance > 0 ) { #XXXFIXME "enable selfservice prepay features" flag or something, 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=>' ' };
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 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', },
;
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 .= '
| ';
}
%>
|