diff options
| -rw-r--r-- | FS/FS/UI/Web/small_custview.pm | 22 | ||||
| -rwxr-xr-x | httemplate/view/cust_main.cgi | 17 | 
2 files changed, 38 insertions, 1 deletions
| diff --git a/FS/FS/UI/Web/small_custview.pm b/FS/FS/UI/Web/small_custview.pm index f8e202092..36dd30c6d 100644 --- a/FS/FS/UI/Web/small_custview.pm +++ b/FS/FS/UI/Web/small_custview.pm @@ -3,6 +3,7 @@ package FS::UI::Web::small_custview;  use strict;  use vars qw(@EXPORT_OK @ISA);  use Exporter; +use HTML::Entities;  use FS::Msgcat;  use FS::Record qw(qsearchs);  use FS::cust_main; @@ -35,7 +36,26 @@ sub small_custview {    $html .= 'Customer #<B>'. $cust_main->display_custnum. '</B></A>'.      ' - <B><FONT COLOR="#'. $cust_main->statuscolor. '">'. -    ucfirst($cust_main->status). '</FONT></B>'. +    ucfirst($cust_main->status). '</FONT></B>'; + +  my @part_tag = $cust_main->part_tag; +  if ( @part_tag ) { +    $html .= '<TABLE>'; +    foreach my $part_tag ( @part_tag ) { +      $html .= '<TR><TD>'. +               '<FONT '. ( length($part_tag->tagcolor) +                           ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"' +                           : '' +                         ). +               '>'. +                 encode_entities($part_tag->tagname.': '. $part_tag->tagdesc). +               '</FONT>'. +               '</TD></TR>'; +    } +    $html .= '</TABLE>'; +  } + +  $html .=      ntable('#e8e8e8'). '<TR><TD VALIGN="top">'. ntable("#cccccc",2).      '<TR><TD ALIGN="right" VALIGN="top">Billing<BR>Address</TD><TD BGCOLOR="#ffffff">'.      $cust_main->getfield('last'). ', '. $cust_main->first. '<BR>'; diff --git a/httemplate/view/cust_main.cgi b/httemplate/view/cust_main.cgi index e9d3f07a9..d854a01fa 100755 --- a/httemplate/view/cust_main.cgi +++ b/httemplate/view/cust_main.cgi @@ -4,6 +4,23 @@            })  %>  <BR> +% my @part_tag = $cust_main->part_tag; +% if ( $conf->config('cust_tag-location') eq 'top' && @part_tag ) { +<TABLE STYLE="margin-bottom:8px" CELLSPACING=2> +%   foreach my $part_tag ( @part_tag ) { +<TR> +  <TD> +      <FONT SIZE="+1" +            <% length($part_tag->tagcolor) +                 ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"' +                 : '' +      %>><% $part_tag->tagname.': '. $part_tag->tagdesc |h %></FONT> +      <BR> +  </TD> +</TR> +%   } +</TABLE> +% }  <% include('/elements/menubar.html',               { 'newstyle' => 1, | 
