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=384 BGCOLOR="#dddddd">
   4
   5 <TABLE CELLSPACING=0 BORDER=0>
   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*', url=>'order', 'indent'=>2 },
  16 );
  17
  18 if ( 1 ) { #XXXFIXME "enable selfservice prepay features" flag or something, eventually per-pkg or something really fancy
  19
  20   push @menu, (
  21     { title=>'Recharge my account with a credit card',
  22       url=>'make_payment', indent=>2 },
  23     { title=>'Recharge my account with a prepaid card',
  24       url=>'recharge_prepay', indent=>2 },
  25   );
  26
  27 }
  28
  29 push @menu, (
  30
  31 { title=>' ' },
  32
  33 { title=>'Setup my services', url=>'provision', size=>'+1', },
  34
  35 { title=>' ' },
  36
  37 { title=>'Change my information', size=>'+1', },
  38   { title=>'Change payment information*', url=>'change_bill', indent=>2 },
  39   { title=>'Change service address*',     url=>'change_ship', indent=>2 },
  40   { title=>'Change password(s)*',         url=>'hmmmFIXME',   indent=>2 },
  41
  42 { title=>' ' },
  43
  44 { title=>'Logout',   url=>'logout', size=>'+1', },
  45
  46 );
  47
  48 foreach my $item ( @menu ) {
  49
  50   $OUT .= '<TR><TD';
  51   if ( exists $item->{'url'} && $action eq $item->{'url'} ) {
  52     $OUT .= ' BGCOLOR="#eeeeee" '.
  53             ' STYLE="border-top: 1px solid black;'.
  54                    ' border-left: 1px solid black;'.
  55                    ' border-bottom: 1px solid black"';
  56   } else {
  57     $OUT .= ' STYLE="border-right: 1px solid black"';
  58   }
  59   $OUT.='>';
  60
  61   $OUT .= '<FONT SIZE="'. $item->{'size'}. '">'
  62     if exists $item->{'size'};
  63
  64   $OUT .= '&nbsp;' x $item->{'indent'}
  65     if exists $item->{'indent'};
  66
  67   $OUT .= '<A HREF="'. $url. $item->{'url'}. '">'
  68     if exists $item->{'url'} && $action ne $item->{'url'};
  69
  70   $item->{'title'} =~ s/ /&nbsp;/g;
  71   $OUT .= $item->{'title'};
  72
  73   $OUT .= '</FONT>'
  74     if exists $item->{'size'};
  75
  76   $OUT .= '</A>'
  77     if exists $item->{'url'} && $action ne $item->{'url'};
  78
  79   $OUT .= '</TD></TR>';
  80
  81 }
  82
  83 %>
  84
  85 </TABLE>
  86
  87 <A HREF="passwd.html">(tempFIXME) Change&nbsp;password(s)</A><BR><BR>
  88 *&nbsp;coming&nbsp;soon
  89 </TD>