From c82d349f864e6bd9f96fd1156903bc1f7193a203 Mon Sep 17 00:00:00 2001 From: cvs2git Date: Mon, 27 Dec 2010 00:04:45 +0000 Subject: This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'. --- httemplate/view/cust_main/notes.html | 166 ----------------------------------- 1 file changed, 166 deletions(-) delete mode 100755 httemplate/view/cust_main/notes.html (limited to 'httemplate/view/cust_main/notes.html') diff --git a/httemplate/view/cust_main/notes.html b/httemplate/view/cust_main/notes.html deleted file mode 100755 index 237838029..000000000 --- a/httemplate/view/cust_main/notes.html +++ /dev/null @@ -1,166 +0,0 @@ -% if ( scalar(@notes) ) { - - - - <% include('/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' => '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! (edit)!; -% } -% -% if ( $last_classnum != $note->classnum && !$skipheader ) { -% my $tmp_classnum = $note->classnum ? $note->classnum : 0; -% $classes{$tmp_classnum} = $note->classname ne '' ? $note->classname -% : 'Other'; -% if ( $last_classnum != -1 ) { - - -% } -% my $display = ($tmp_classnum == 0 || !$conf->exists('note-classes') -% || $conf->config('note-classes') < 2) -% ? 'block' : 'none'; -
- <% include("/elements/table-grid.html") %> - - Date -% if ( $conf->exists('cust_main_note-display_times') ) { - Time -% } - Person -% if ($conf->exists('note-classes') && $conf->config('note-classes') == 1) { - Class -% } - Note -% 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); -Show notes of class:   -% 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; -} - - -- cgit v1.2.1