From 9fae251fc1e3069694ebaf4fae62bde844f45cff Mon Sep 17 00:00:00 2001 From: Mark Wells Date: Wed, 11 Jun 2014 13:51:22 -0700 Subject: display sent mail on customer notes page, and improve sent mail log UI, #29250 --- httemplate/view/cust_main/notes/notes.html | 168 +++++++++++++++++++++++++++++ 1 file changed, 168 insertions(+) create mode 100755 httemplate/view/cust_main/notes/notes.html (limited to 'httemplate/view/cust_main/notes/notes.html') diff --git a/httemplate/view/cust_main/notes/notes.html b/httemplate/view/cust_main/notes/notes.html new file mode 100755 index 000000000..6a7a06a02 --- /dev/null +++ b/httemplate/view/cust_main/notes/notes.html @@ -0,0 +1,168 @@ +% 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') ) { +% my $delete_url = $fsurl.'misc/delete-note.html?'.$notenum; +% $edit = qq! (!.emt('edit').')'. +% qq! !. +% '('.emt('delete').')'; +% } +% +% 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 $cust_main = $opt{'cust_main'}; +my $custnum = $cust_main->custnum; + +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; +} + + -- cgit v1.2.1