%
%
%my $conf = new FS::Conf;
%
%my $curuser = $FS::CurrentUser::CurrentUser;
%
%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;
%
%
<% include("/elements/header.html","Customer View: ". $cust_main->name ) %>
% if ( $curuser->access_right('Edit customer') ) {
Edit this customer |
% }
% if ( $curuser->access_right('Cancel customer')
% && $cust_main->ncancelled_pkgs
% ) {
%
Cancel this customer |
% }
% if ( $conf->exists('deletecustomers')
% && $curuser->access_right('Delete customer')
% ) {
%
Delete this customer |
% }
% unless ( $conf->exists('disable_customer_referrals') ) {
Refer a new customer |
View this customer's referrals
% }
%
%my $signupurl = $conf->config('signupurl');
%if ( $signupurl ) {
%
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 ) %> % } |
<% encode_entities($cust_main->comments) %>