<%
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!Edit this customer!;
%>
<%
print qq! | !.
'Cancel this customer'
if $cust_main->ncancelled_pkgs;
print qq! | !.
'Delete this customer'
if $conf->exists('deletecustomers');
unless ( $conf->exists('disable_customer_referrals') ) {
print qq! | !,
qq!Refer a new customer!;
print qq! | !,
qq!View this customer's referrals!;
}
print '
';
my $signupurl = $conf->config('signupurl');
if ( $signupurl ) {
print "This customer's signup URL: ".
"$signupurl?ref=$custnum
";
}
%>
<%= &itable() %>
|
<%= include('cust_main/contacts.html', $cust_main ) %>
|
<%= include('cust_main/misc.html', $cust_main ) %>
<% if ( $conf->config('payby-default') ne 'HIDE' ) { %>
<%= include('cust_main/billing.html', $cust_main ) %>
<% } %>
|
<%
if ( defined $cust_main->dbdef_table->column('comments')
&& $cust_main->comments =~ /[^\s\n\r]/ ) {
%>
Comments
<%= ntable("#cccccc") %>| <%= ntable("#cccccc",2) %>
|
<%= encode_entities($cust_main->comments) %>
|
<% } %>
<% if ( $conf->config('ticket_system') ) { %>
<%= include('cust_main/tickets.html', $cust_main ) %>
<% } %>
<%= include('cust_main/packages.html', $cust_main ) %>
<% if ( $conf->config('payby-default') ne 'HIDE' ) { %>
<%= include('cust_main/payment_history.html', $cust_main ) %>
<% } %>