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
128
129
130
131
132
133
134
135
136
137
138
|
<!-- mason kludge -->
<%
my $conf = new FS::Conf;
my %uiview = ();
my %uiadd = ();
foreach my $part_svc ( qsearch('part_svc',{}) ) {
$uiview{$part_svc->svcpart} = $p. "view/". $part_svc->svcdb . ".cgi";
$uiadd{$part_svc->svcpart}= $p. "edit/". $part_svc->svcdb . ".cgi";
}
%>
<%= header("Customer View", menubar(
'Main Menu' => $p,
)) %>
<%
die "No customer specified (bad URL)!" unless $cgi->keywords;
my($query) = $cgi->keywords; # needs parens with my, ->keywords returns array
$query =~ /^(\d+)$/;
my $custnum = $1;
my $cust_main = qsearchs('cust_main',{'custnum'=>$custnum});
die "Customer not found!" unless $cust_main;
print qq!<A HREF="${p}edit/cust_main.cgi?$custnum">Edit this customer</A>!;
%>
<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_iframe.js"></SCRIPT>
<SCRIPT TYPE="text/javascript" SRC="../elements/overlibmws_draggable.js"></SCRIPT>
<SCRIPT TYPE="text/javascript">
function areyousure(href, message) {
if (confirm(message) == true)
window.location.href = href;
}
</SCRIPT>
<SCRIPT TYPE="text/javascript">
<%
my $ban = '';
if ( $cust_main->payby =~ /^(CARD|DCRD|CHEK|DCHK)$/ ) {
$ban = '<BR><P ALIGN="center">'.
'<INPUT TYPE="checkbox" NAME="ban" VALUE="1"> Ban this customer\\\'s ';
if ( $cust_main->payby =~ /^(CARD|DCRD)$/ ) {
$ban .= 'credit card';
} elsif ( $cust_main->payby =~ /^(CHEK|DCHK)$/ ) {
$ban .= 'ACH account';
}
}
%>
var confirm_cancel = '<FORM METHOD="POST" ACTION="<%= $p %>misc/cust_main-cancel.cgi"> <INPUT TYPE="hidden" NAME="custnum" VALUE="<%= $custnum %>"> <BR><P ALIGN="center"><B>Permanently delete all services and cancel this customer?</B> <%= $ban%><BR><P ALIGN="CENTER"> <INPUT TYPE="submit" VALUE="Cancel customer"> <INPUT TYPE="BUTTON" VALUE="Don\'t cancel" onClick="cClick()"> </FORM> ';
</SCRIPT>
<% if ( $cust_main->ncancelled_pkgs ) { %>
| <A HREF="javascript:void(0);" onClick="overlib(confirm_cancel, CAPTION, 'Confirm cancellation', STICKY, AUTOSTATUSCAP, CLOSETEXT, '', MIDX, 0, MIDY, 0, DRAGGABLE, WIDTH, 576, HEIGHT, 128, TEXTSIZE, 3, BGCOLOR, '#ff0000', CGCOLOR, '#ff0000' ); return false; ">Cancel this customer</A>
<% } %>
<%
print qq! | <A HREF="${p}misc/delete-customer.cgi?$custnum">!.
'Delete this customer</A>'
if $conf->exists('deletecustomers');
unless ( $conf->exists('disable_customer_referrals') ) {
print qq! | <A HREF="!, popurl(2),
qq!edit/cust_main.cgi?referral_custnum=$custnum">!,
qq!Refer a new customer</A>!;
print qq! | <A HREF="!, popurl(2),
qq!search/cust_main.cgi?referral_custnum=$custnum">!,
qq!View this customer's referrals</A>!;
}
print '<BR><BR>';
my $signupurl = $conf->config('signupurl');
if ( $signupurl ) {
print "This customer's signup URL: ".
"<a href=\"$signupurl?ref=$custnum\">$signupurl?ref=$custnum</a><BR><BR>";
}
%>
<A NAME="cust_main"></A>
<%= &itable() %>
<TR>
<TD VALIGN="top">
<%= include('cust_main/contacts.html', $cust_main ) %>
</TD>
<TD VALIGN="top">
<%= include('cust_main/misc.html', $cust_main ) %>
<% if ( $conf->config('payby-default') ne 'HIDE' ) { %>
<BR>
<%= include('cust_main/billing.html', $cust_main ) %>
<% } %>
</TD>
</TR>
</TABLE>
<%
if ( defined $cust_main->dbdef_table->column('comments')
&& $cust_main->comments =~ /[^\s\n\r]/ ) {
%>
<BR>
Comments
<%= ntable("#cccccc") %><TR><TD><%= ntable("#cccccc",2) %>
<TR>
<TD BGCOLOR="#ffffff">
<PRE><%= encode_entities($cust_main->comments) %></PRE>
</TD>
</TR>
</TABLE></TABLE>
<% } %>
<% if ( $conf->config('ticket_system') ) { %>
<BR>
<%= include('cust_main/tickets.html', $cust_main ) %>
<% } %>
<BR><BR>
<%= include('cust_main/packages.html', $cust_main ) %>
<% if ( $conf->config('payby-default') ne 'HIDE' ) { %>
<%= include('cust_main/payment_history.html', $cust_main ) %>
<% } %>
</BODY></HTML>
|
