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


% } % # Notes, if any % my $notecount = scalar($cust_main->notes(0)); % if ( ! $conf->exists('cust_main-disable_notes') || $notecount) { % # actually display notes <& notes/notes.html, 'cust_main' => $cust_main &>
% } # end of notes % # Attachments % # XXX at some point move all of this into notes/attachments.html % if( $curuser->access_right('View attachments') ) { % # List attachments <& notes/attachments.html, 'cust_main' => $cust_main &> % if ($cgi->param('show_deleted')) {
">(<% mt('Show active attachments') |h %>) % } elsif($curuser->access_right('View deleted attachments')) { ">(<% mt('Show deleted attachments') |h %>) % } % }
% if ( $curuser->access_right('View email logs') % and FS::cust_msg->count("custnum = $custnum")) {
<& notes/email.html, 'cust_main' => $cust_main &>
% } <%init> use HTML::Defang; my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; my(%opt) = @_; my $cust_main = $opt{'cust_main'}; my $custnum = $cust_main->custnum; my $view = $cgi->param('show') || $curuser->default_customer_view;