httemplate/view/cust_main/notes.html

   1 %
   2 % my $conf = new FS::Conf;
   3 % my $curuser = $FS::CurrentUser::CurrentUser;
   4 %
   5 % $cgi->param('custnum') =~ /^(\d+)$/
   6 %   or die "No customer specified (bad URL)!";
   7 % my $custnum = $1;
   8 %
   9 % my $cust_main = qsearchs('cust_main', {'custnum' => $custnum} );
  10 % die "Custimer not found!" unless $cust_main;
  11 %
  12 % my (@notes) = $cust_main->notes();
  13 % if ( scalar(@notes) ) {
  14
  15 <STYLE TYPE="text/css">
  16
  17 body { background: #e8e8e8 }
  18 .inv table { border: none }
  19 .inv TH { border: none }
  20 .inv TD { border: none }
  21
  22 </STYLE>
  23
  24 <SCRIPT TYPE="text/javascript" SRC="/elements/overlibmws.js"></SCRIPT>
  25 <SCRIPT TYPE="text/javascript" SRC="/elements/overlibmws_iframe.js"></SCRIPT>
  26 <SCRIPT TYPE="text/javascript" SRC="/elements/overlibmws_crossframe.js"></SCRIPT>
  27 <SCRIPT TYPE="text/javascript" SRC="/elements/iframecontentmws.js"></SCRIPT>
  28
  29 <TABLE CLASS="inv" CELLSPACING=0 CELLPADDING=0 BORDER=0 >
  30
  31 %#<% include('/elements/table-grid.html') %>
  32 %   my $bgcolor1 = '#eeeeee';
  33 %   my $bgcolor2 = '#ffffff';
  34 %   my $bgcolor = '';
  35 %
  36 %   foreach my $note (@notes) {
  37 %
  38 %   if ( $bgcolor eq $bgcolor1 ) {
  39 %     $bgcolor = $bgcolor2;
  40 %   } else {
  41 %     $bgcolor = $bgcolor1;
  42 %   }
  43 %
  44 %   my $pop = popurl(3);
  45 %   my $notenum = $note->notenum;
  46 %   my $clickjs = qq!onclick="overlib( OLiframeContent('${pop}edit/! .
  47 %                 qq!cust_main_note.cgi?custnum=$custnum&! .
  48 %                 qq!notenum=$notenum', 616, ! .
  49 %                 qq!386, 'cust_main_note_popup' ), CAPTION, 'Edit customer ! .
  50 %                 qq!note', STICKY, AUTOSTATUSCAP, MIDX, 0, MIDY, 0, ! .
  51 %                 qq!CLOSECLICK, FRAME, top); return false;"!;
  52 %
  53 %   my ($el, $eel);
  54 %   if ($curuser->access_right('Edit customer note') ) {
  55 %     $el  = qq!<A HREF="javascript:void(0);" $clickjs>!;
  56 %     $eel = qq!</A>!;
  57 %   }else{
  58 %     $el = $eel = '';
  59 %   }
  60
  61 <TR>
  62   <% note_datestr($note,$conf,$bgcolor, $el, $eel) %>
  63   <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
  64     <% $el %> &nbsp;<%$note->otaker%>&nbsp; <% $eel %>
  65   </TD>
  66   <TD CLASS="inv" BGCOLOR="<% $bgcolor %>">
  67     &nbsp;<%$note->comments%>
  68   </TD>
  69 </TR>
  70
  71 % } #end display notes
  72
  73 </TABLE>
  74 % } else {
  75
  76 <BR>
  77 % }
  78 %
  79 %#subroutines
  80 %
  81 %sub note_datestr {
  82 % my($note, $conf, $bgcolor, $el, $eel) = @_ or return '';
  83 % my $format=qq{<TD class="inv" bgcolor="$bgcolor" align="left">$el<B>%b</B>$eel</TD>}.
  84 %            qq{<TD class="inv" bgcolor="$bgcolor" align="right">$el<B>&nbsp;%o,</B>$eel</TD>}.
  85 %            qq{<TD class="inv" bgcolor="$bgcolor" align="right">$el<B>&nbsp;%Y&nbsp;</B>$eel</TD>};
  86 % $format .= qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="right">$el<B>&nbsp;%l$eel</TD>}.
  87 %            qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="center">$el<B>:</B>$eel</TD>}.
  88 %            qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="left">$el<B>%M</B>$eel</TD>}.
  89 %            qq{<TD class="inv" bgcolor="$bgcolor" ALIGN="left">$el<B>&nbsp;%P&nbsp;</B>$eel</TD>}
  90 %     if $conf->exists('cust_main_note-display_times');
  91 %   ( my $strip = time2str($format, $note->_date) ) =~ s/ (\d)/$1/g;
  92 %   $strip;
  93 % }
  94 %
  95