-
+ |
<%=
+if ( $menu_top_image ) {
+ $OUT .= ' | ';
+}
+
my @menu = (
{ title=>' ' },
{ title=>'Overview', url=>'myaccount', size=>'+1', },
@@ -13,18 +17,18 @@ my @menu = (
{ title=>'Purchase', size=>'+1', },
);
-unless ( $pkgnum ) {
+unless ( $access_pkgnum ) {
push @menu,
{ 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
+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] =~ /^CARD/ ) {
+ 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'
@@ -35,7 +39,7 @@ if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eve
$i = 0;
while($i < scalar(@cust_paybys)) { last if $cust_paybys[$i] =~ /^CHEK/; $i++ }
- if ( $cust_paybys[$i] =~ /^CHEK/ ) {
+ 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'
@@ -55,9 +59,10 @@ if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eve
push @menu,
{ title=>' ' },
{ title=>'View my usage', url=>'view_usage', size=>'+1', },
+ { title=>'Create a ticket', url=>'tktcreate', size=>'+1', },
;
-unless ( $pkgnum ) {
+unless ( $access_pkgnum ) {
push @menu,
{ title=>'Setup my services', url=>'provision', size=>'+1', },
;
@@ -69,7 +74,7 @@ push @menu,
push @menu,
{ title=>'Change my information', size=>'+1', };
-unless ( $pkgnum ) {
+unless ( $access_pkgnum ) {
push @menu,
{ title=>'Change billing address', url=>'change_bill', indent=>2 },
{ title=>'Change service address', url=>'change_ship', indent=>2 },
@@ -83,27 +88,47 @@ push @menu,
{ 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="border-top: 1px solid black;'.
- ' border-left: 1px solid black;'.
- ' border-bottom: 1px solid black"';
+ if ( $menu_body_image ) {
+ if ( exists $item->{'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 {
- $OUT .= ' STYLE="border-right: 1px solid black"';
+ 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.='>';
- $OUT .= ' ' x $item->{'indent'}
- if exists $item->{'indent'};
+ if ( $menu_skipheadings ) {
+ $OUT .= ' ';
+ } else {
+ $OUT .= ' ' x $item->{'indent'}
+ if exists $item->{'indent'};
+ }
$OUT .= ''
if exists $item->{'url'} && $action ne $item->{'url'};
- $OUT .= ''
- if exists $item->{'size'};
+ $OUT .= ''
+ if $menu_fontsize || exists($item->{'size'});
$item->{'title'} =~ s/ / /g;
$OUT .= $item->{'title'};
@@ -118,9 +143,13 @@ foreach my $item ( @menu ) {
}
-%>
+if ( $menu_bottom_image ) {
+ $OUT .= ' | ';
+} else {
+ $OUT .= '
| ';
+}
-
|
+%>
|
|