1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
<%= $url = "$selfurl?session=$session_id;action="; ''; %>
<TABLE BORDER=0><TR>
<TD VALIGN="top" HEIGHT="100%" BGCOLOR="<%= $box_bgcolor || '#c0c0c0' %>">
<TABLE CELLSPACING=0 BORDER=0 HEIGHT="100%">
<%=
my @menu = (
{ title=>' ' },
{ title=>'Overview', url=>'myaccount', size=>'+1', },
{ title=>' ' },
{ title=>'Purchase', size=>'+1', },
);
unless ( $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
#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/ ) {
push @menu, { title => 'Recharge my account with a credit card',
url => $hide_payment_fields[$i]
? 'make_thirdparty_payment&payby_method=CC'
: 'make_payment',
indent => 2,
}
}
$i = 0;
while($i < scalar(@cust_paybys)) { last if $cust_paybys[$i] =~ /^CHEK/; $i++ }
if ( $cust_paybys[$i] =~ /^CHEK/ ) {
push @menu, { title => 'Recharge my account with a check',
url => $hide_payment_fields[$i]
? 'make_thirdparty_payment&payby_method=ECHECK'
: 'make_ach_payment',
indent => 2,
}
}
push @menu, { title => 'Recharge my account with a prepaid card',
url => 'recharge_prepay',
indent => 2,
}
if grep(/^PREP/, @cust_paybys);
}
push @menu,
{ title=>' ' },
{ title=>'View my usage', url=>'view_usage', size=>'+1', },
;
unless ( $pkgnum ) {
push @menu,
{ title=>'Setup my services', url=>'provision', size=>'+1', },
;
}
push @menu,
{ title=>' ' };
push @menu,
{ title=>'Change my information', size=>'+1', };
unless ( $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', },
;
foreach my $item ( @menu ) {
$OUT .= '<TR><TD';
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'};
$OUT .= '<A HREF="'. $url. $item->{'url'}. '">'
if exists $item->{'url'} && $action ne $item->{'url'};
$OUT .= '<FONT SIZE="'. $item->{'size'}. '">'
if exists $item->{'size'};
$item->{'title'} =~ s/ / /g;
$OUT .= $item->{'title'};
$OUT .= '</FONT>'
if exists $item->{'size'};
$OUT .= '</A>'
if exists $item->{'url'} && $action ne $item->{'url'};
$OUT .= '</TD></TR>';
}
%>
<TR><TD STYLE="border-right: 1px solid black" HEIGHT="100%"><BR><BR><BR><BR></TD></TR>
</TABLE>
</TD>
|