% if ( scalar(@notes) ) { <& /elements/init_overlib.html &> % my $bgcolor1 = '#eeeeee'; % my $bgcolor2 = '#ffffff'; % my $bgcolor = ''; % my $last_classnum = -1; % my $skipheader = 0; % my %classes = (); % % foreach my $note (@notes) { % % if ( $bgcolor eq $bgcolor1 ) { % $bgcolor = $bgcolor2; % } else { % $bgcolor = $bgcolor1; % } % % my $pop = popurl(3); % my $notenum = $note->notenum; % my $onclick = include( '/elements/popup_link_onclick.html', % 'action' => popurl(2). % 'edit/cust_main_note.cgi'. % "?custnum=$custnum". % ";notenum=$notenum", % 'actionlabel' => emt('Edit customer note'), % 'width' => 616, % 'height' => 538, #575 % 'frame' => 'top', % ); % my $clickjs = qq!onclick="$onclick"!; % % my $edit = ''; % if ($curuser->access_right('Edit customer note') ) { % $edit = qq! (!.emt('edit').')'; % } % % if ( $last_classnum != $note->classnum && !$skipheader ) { % my $tmp_classnum = $note->classnum ? $note->classnum : 0; % $classes{$tmp_classnum} = $note->classname ne '' ? $note->classname % : emt('Other'); % if ( $last_classnum != -1 ) { % } % my $display = ($tmp_classnum == 0 || !$conf->exists('note-classes') % || $conf->config('note-classes') < 2) % ? 'block' : 'none';
<& /elements/table-grid.html &> <% mt('Date') |h %> % if ( $conf->exists('cust_main_note-display_times') ) { <% mt('Time') |h %> % } <% mt('Person') |h %> % if ($conf->exists('note-classes') && $conf->config('note-classes') == 1) { <% mt('Class') |h %> % } <% mt('Note') |h %> % if ($curuser->access_right('Edit customer note') ) {   % } % $skipheader = (!$conf->exists('note-classes') || $conf->config('note-classes') < 2); % $last_classnum = $note->classnum; % } <% note_datestr($note,$conf,$bgcolor) %>  <% $note->usernum ? $note->access_user->name : $note->otaker %> % if ($conf->exists('note-classes') && $conf->config('note-classes') == 1) { <% $note->classname %> % } <% $note->comments | defang %> % if($edit) { <% $edit %> % } % } #end display notes
% if ( $conf->exists('note-classes') && $conf->config('note-classes') == 2 ) { % my($classnum,$classname); <% mt('Show notes of class:') |h %>   % foreach my $classnum ( sort { $b <=> $a } (keys %classes) ) { <% $classes{$classnum} %> % }
% } % } <%init> use HTML::Defang; my $conf = new FS::Conf; my $curuser = $FS::CurrentUser::CurrentUser; my(%opt) = @_; my $custnum = $opt{'custnum'}; my $cust_main = qsearchs('cust_main', {'custnum' => $custnum} ); die "Customer not found!" unless $cust_main; my (@notes) = $cust_main->notes($conf->exists('note-classes') && $conf->config('note-classes') == 2); #subroutines sub note_datestr { my($note, $conf, $bgcolor) = @_ or return ''; my $td = qq{}; my $format = "$td%b %o, %Y"; $format .= "$td%l:%M%P" if $conf->exists('cust_main_note-display_times'); ( my $strip = time2str($format, $note->_date) ) =~ s/ (\d)/$1/g; $strip; }