fs_selfservice/FS-SelfService/cgi/myaccount_menu.html

   1 <%= $url = "$selfurl?action="; ''; %>
   2 <TABLE BORDER=0><TR>
   3 <TD VALIGN="top" BGCOLOR="<%= $menu_bgcolor || $box_bgcolor || '#c0c0c0' %>">
   4
   5 <TABLE CELLSPACING=0 BORDER=0 HEIGHT="100%">
   6
   7 <%=
   8
   9 if ( $menu_top_image ) {
  10   $OUT .= '<TR><TD STYLE="padding:0px"><IMG SRC="image.cgi?name=menu_top_image;agentnum='. $agentnum. '"></TD></TR>';
  11 }
  12
  13 my @menu = (
  14   { title=>' ' },
  15   { title=>'Overview', url=>'myaccount', size=>'+1', },
  16   { title=>' ' },
  17   { title=>'Purchase', size=>'+1', },
  18 );
  19
  20 unless ( $access_pkgnum ) {
  21   push @menu,
  22     { title=>'Purchase additional package',
  23       url=>'customer_order_pkg', 'indent'=>2 };
  24 }
  25
  26 my %payby_mode;
  27 @payby_mode{@cust_paybys} = @hide_payment_fields;
  28 # $payby_mode{FOO} is true if FOO is thirdparty, false if it's B::OP,
  29 # nonexistent if it's not supported
  30
  31 if ( $enable_payment_without_balance || (($balance || 0) > 0) ) { #eventually per-pkg or something really fancy
  32
  33   if ( exists( $payby_mode{CARD} ) ) {
  34     push @menu, { title  => 'Recharge my account with a credit card',
  35                   url    => $payby_mode{CARD}
  36                               ? 'make_thirdparty_payment&payby_method=CC'
  37                               : 'make_payment',
  38                   indent => 2,
  39                  }
  40   }
  41
  42   if ( exists( $payby_mode{CHEK} ) ) {
  43     push @menu, { title  => 'Recharge my account with a check',
  44                   url    => $payby_mode{CHEK}
  45                               ? 'make_thirdparty_payment&payby_method=ECHECK'
  46                               : 'make_ach_payment',
  47                   indent => 2,
  48                 }
  49   }
  50
  51   if ( exists( $payby_mode{PREPAY} ) ) {
  52     push @menu, { title  => 'Recharge my account with a prepaid card',
  53                   url    => 'recharge_prepay',
  54                   indent => 2,
  55                 }
  56   }
  57
  58   if ( exists( $payby_mode{PPAL} ) ) {
  59     push @menu, { title  => 'Recharge my account with PayPal',
  60                   url    => 'make_thirdparty_payment&payby_method=PAYPAL',
  61                   indent => 2,
  62                 }
  63   }
  64 }
  65
  66 push @menu,
  67   { title=>' ' };
  68
  69 push @menu,
  70   { title=>'View payment history', url=>'history', size=>'+1' },
  71 ;
  72
  73 unless( $hide_usage ){
  74   push @menu,
  75     { title=>'View my usage', url=>'view_usage', size=>'+1', }
  76 }
  77
  78 push @menu,
  79   { title=>'Create a ticket', url=>'tktcreate', size=>'+1', },
  80 ;
  81
  82 unless ( $access_pkgnum ) {
  83   push @menu,
  84     { title=>'Setup my services', url=>'provision', size=>'+1', },
  85   ;
  86 }
  87
  88 push @menu,
  89   { title=>' ' };
  90
  91 push @menu,
  92   { title=>'Change my information', size=>'+1', };
  93
  94 unless ( $access_pkgnum ) {
  95   push @menu,
  96     { title=>'Change billing address',          url=>'change_bill',           indent=>2 },
  97     { title=>'Change service address',          url=>'change_ship',           indent=>2 },
  98     { title=>'Change credit card information',  url=>'change_creditcard_pay', indent=>2 },
  99     { title=>'Change check information',        url=>'change_check_pay',      indent=>2 },
 100   ;
 101 }
 102
 103 push @menu,
 104   { title=>'Change password(s)',          url=>'change_password', indent=>2 },
 105   { title=>' ' },
 106   { title=>'Logout',   url=>'logout', size=>'+1', },
 107 ;
 108
 109 my %menu_disable = map { $_=>1 } @menu_disable;
 110 foreach my $item ( @menu ) {
 111
 112   next if ( $menu_skipblanks && $item->{'title'} =~ /^\s*$/ )
 113        || ( $menu_skipheadings && ! $item->{'url'} )
 114        || $menu_disable{$item->{'title'}};
 115
 116   $OUT .= '<TR><TD';
 117   if ( $menu_body_image ) {
 118     if ( exists $item->{'url'} && $action eq $item->{'url'} ) {
 119       $OUT .= #' BGCOLOR="'. ( $body_bgcolor || '#eeeeee' ). '" '.
 120               ' STYLE="background: url(image.cgi?name=menu_body_image;agentnum='. $agentnum. ') 0 bottom; '.
 121               '        color:#3366CC"; '. #XXX config
 122               ' " ';
 123     } else {
 124       $OUT .= ' STYLE="background: url(image.cgi?name=menu_body_imagei;agentnum='. $agentnum. ') 0 bottom" ';
 125     }
 126   } else {
 127     if ( exists $item->{'url'} && $action eq $item->{'url'} ) {
 128       $OUT .= ' BGCOLOR="'. ( $body_bgcolor || '#eeeeee' ). '" '.
 129               ' STYLE="border-top: 1px solid black;'.
 130                      ' border-left: 1px solid black;'.
 131                      ' border-bottom: 1px solid black"';
 132     } else {
 133       $OUT .= ' STYLE="border-right: 1px solid black"';
 134     }
 135   }
 136   $OUT.='>';
 137
 138   if ( $menu_skipheadings ) {
 139     $OUT .= '&nbsp;&nbsp;';
 140   } else {
 141     $OUT .= '&nbsp;' x $item->{'indent'}
 142       if exists $item->{'indent'};
 143   }
 144
 145   $OUT .= '<A HREF="'. $url. $item->{'url'}. '">'
 146     if exists $item->{'url'} && $action ne $item->{'url'};
 147
 148   $OUT .= '<FONT SIZE="'. ( $menu_fontsize || $item->{'size'} ). '">'
 149     if $menu_fontsize || exists($item->{'size'});
 150
 151   $item->{'title'} =~ s/ /&nbsp;/g;
 152   $OUT .= $item->{'title'};
 153
 154   $OUT .= '</FONT>'
 155     if exists $item->{'size'};
 156
 157   $OUT .= '</A>'
 158     if exists $item->{'url'} && $action ne $item->{'url'};
 159
 160   $OUT .= '</TD></TR>';
 161
 162 }
 163
 164 if ( $menu_bottom_image ) {
 165   $OUT .= '<TR><TD STYLE="padding:0px"><IMG SRC="image.cgi?name=menu_bottom_image;agentnum='. $agentnum. '"></TD></TR>';
 166 } else {
 167   $OUT .= '<TR><TD STYLE="border-right: 1px solid black" HEIGHT="100%"><BR><BR><BR><BR></TD></TR>';
 168 }
 169
 170 %>
 171
 172 </TABLE>
 173
 174 </TD>