fs_selfservice/FS-SelfService/cgi/myaccount_menu.html

   1 <%= $url = "$selfurl?session=$session_id;action="; ''; %>
   2 <TABLE BORDER=0><TR>
   3 <TD VALIGN="top" HEIGHT="100%" BGCOLOR="#dddddd">
   4
   5 <TABLE CELLSPACING=0 BORDER=0 HEIGHT="100%">
   6
   7 <%=
   8
   9 my @menu = (
  10 { title=>' ' },
  11 { title=>'Overview', url=>'myaccount', size=>'+1', },
  12 { title=>' ' },
  13
  14 { title=>'Purchase', size=>'+1', },
  15   { title=>'Purchase additional package',
  16     url=>'customer_order_pkg', 'indent'=>2 },
  17 );
  18
  19 if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eventually per-pkg or something really fancy
  20
  21   push @menu, (
  22     { title=>'Recharge my account with a credit card',
  23       url=>'make_payment', indent=>2 },
  24     { title=>'Recharge my account with a check',
  25       url=>'make_ach_payment', indent=>2 },
  26     { title=>'Recharge my account with a prepaid card',
  27       url=>'recharge_prepay', indent=>2 },
  28   );
  29
  30 }
  31
  32 push @menu, (
  33
  34 { title=>' ' },
  35
  36 { title=>'View my usage', url=>'view_usage', size=>'+1', },
  37 { title=>'Setup my services', url=>'provision', size=>'+1', },
  38
  39 { title=>' ' },
  40
  41 { title=>'Change my information', size=>'+1', },
  42   { title=>'Change billing address',      url=>'change_bill',     indent=>2 },
  43   { title=>'Change service address',      url=>'change_ship',     indent=>2 },
  44   { title=>'Change payment information',  url=>'change_pay',      indent=>2 },
  45   { title=>'Change password(s)',          url=>'change_password', indent=>2 },
  46
  47 { title=>' ' },
  48
  49 { title=>'Logout',   url=>'logout', size=>'+1', },
  50
  51 );
  52
  53 foreach my $item ( @menu ) {
  54
  55   $OUT .= '<TR><TD';
  56   if ( exists $item->{'url'} && $action eq $item->{'url'} ) {
  57     $OUT .= ' BGCOLOR="#eeeeee" '.
  58             ' STYLE="border-top: 1px solid black;'.
  59                    ' border-left: 1px solid black;'.
  60                    ' border-bottom: 1px solid black"';
  61   } else {
  62     $OUT .= ' STYLE="border-right: 1px solid black"';
  63   }
  64   $OUT.='>';
  65
  66   $OUT .= '<FONT SIZE="'. $item->{'size'}. '">'
  67     if exists $item->{'size'};
  68
  69   $OUT .= '&nbsp;' x $item->{'indent'}
  70     if exists $item->{'indent'};
  71
  72   $OUT .= '<A HREF="'. $url. $item->{'url'}. '">'
  73     if exists $item->{'url'} && $action ne $item->{'url'};
  74
  75   $item->{'title'} =~ s/ /&nbsp;/g;
  76   $OUT .= $item->{'title'};
  77
  78   $OUT .= '</FONT>'
  79     if exists $item->{'size'};
  80
  81   $OUT .= '</A>'
  82     if exists $item->{'url'} && $action ne $item->{'url'};
  83
  84   $OUT .= '</TD></TR>';
  85
  86 }
  87
  88 %>
  89
  90 <TR><TD STYLE="border-right: 1px solid black" HEIGHT="100%"><BR><BR><BR><BR></TD></TR>
  91
  92 </TABLE>
  93
  94 </TD>