<% include("/elements/header.html","Customer View: ". $cust_main->name ) %> % if ( $curuser->access_right('Edit customer') ) { Edit this customer | % } <% include('/elements/init_overlib.html') %> % if ( $curuser->access_right('Cancel customer') % && $cust_main->ncancelled_pkgs % ) { <% include( '/elements/popup_link-cust_main.html', { 'action' => $p. 'misc/cancel_cust.html', 'label' => 'Cancel this customer', 'actionlabel' => 'Confirm Cancellation', 'color' => '#ff0000', 'cust_main' => $cust_main, } ) %> | % } % 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 % }

% if ( $curuser->access_right('Billing event reports') % || $curuser->access_right('View customer billing events') % ) { View billing events for this customer

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

% %if ( $cust_main->comments =~ /[^\s\n\r]/ ) { %
Comments <% ntable("#cccccc") %><% ntable("#cccccc",2) %>

<% encode_entities($cust_main->comments) %>

% }

% my $notecount = scalar($cust_main->notes()); % if ( ! $conf->exists('cust_main-disable_notes') || $notecount) { Notes
% if ( $curuser->access_right('Add customer note') && % ! $conf->exists('cust_main-disable_notes') % ) { <% include( '/elements/popup_link-cust_main.html', 'label' => 'Add customer note', 'action' => $p. 'edit/cust_main_note.cgi', 'actionlabel' => 'Enter customer note', 'cust_main' => $cust_main, 'width' => 616, 'height' => 408, ) %> % }
<% include('cust_main/notes.html', 'custnum' => $cust_main->custnum ) %> % } % if ( $conf->config('ticket_system') ) {

<% include('cust_main/tickets.html', $cust_main ) %> % }

% #XXX enable me# if ( $curuser->access_right('View customer packages') { <% include('cust_main/packages.html', $cust_main ) %> % #} % if ( $conf->config('payby-default') ne 'HIDE' ) { <% include('cust_main/payment_history.html', $cust_main ) %> % } <% include('/elements/footer.html') %> <%init> my $curuser = $FS::CurrentUser::CurrentUser; die "access denied" unless $curuser->access_right('View customer'); my $conf = new FS::Conf; 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( { 'table' => 'cust_main', 'hashref' => { 'custnum' => $custnum }, 'extra_sql' => ' AND '. $curuser->agentnums_sql, }); die "Customer not found!" unless $cust_main;