diff options
author | ivan <ivan> | 2010-07-17 22:14:39 +0000 |
---|---|---|
committer | ivan <ivan> | 2010-07-17 22:14:39 +0000 |
commit | 7ea90f150b44ffc2ef906a34d49a244d6da7dba5 (patch) | |
tree | 6d4ffd5552f68d1f3b05df7c81b25f2b7aa4a5ed /FS/FS/UI/Web | |
parent | a98cd4637716d783c20bb08d903978d06abf9d31 (diff) |
customer tags, RT#9192
Diffstat (limited to 'FS/FS/UI/Web')
-rw-r--r-- | FS/FS/UI/Web/small_custview.pm | 22 |
1 files changed, 21 insertions, 1 deletions
diff --git a/FS/FS/UI/Web/small_custview.pm b/FS/FS/UI/Web/small_custview.pm index f8e2020..36dd30c 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>'; |