X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUI%2FWeb%2Fsmall_custview.pm;h=53a3b5e331facbbcac851ff534358f3277fe8dec;hb=cace6fef1d121d43d76166851aaa30c6c15857e5;hp=079ae9368f7c0a8b235b74f97d4bb28a32b3145f;hpb=af689cba3b153e212c3c67f518309a03b06186a9;p=freeside.git diff --git a/FS/FS/UI/Web/small_custview.pm b/FS/FS/UI/Web/small_custview.pm index 079ae9368..53a3b5e33 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; @@ -28,14 +29,33 @@ sub small_custview { : qsearchs('cust_main', { 'custnum' => $arg } ) or die "unknown custnum $arg"; - my $html; + my $html = '
'. + 'tagcolor) + ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"' + : '' + ). + '>'. + encode_entities($part_tag->tagname.': '. $part_tag->tagdesc). + ''. + ' |