<% 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"; } %> <%= include("/elements/header.html","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!; %> <% if ( $cust_main->ncancelled_pkgs ) { %> | Cancel this customer <% } %> <% 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

"; } %>

<%= 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 ) %> <% } %>