X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2FUI%2FWeb%2Fsmall_custview.pm;h=f8e202092e390bdc04f2a610806471fa0fd6b36d;hb=7b125e587a4d1ee0aca692e23ea7897f671855ae;hp=36dd30c6dfc621d920b4922f6e2113aa7640072f;hpb=7ea90f150b44ffc2ef906a34d49a244d6da7dba5;p=freeside.git diff --git a/FS/FS/UI/Web/small_custview.pm b/FS/FS/UI/Web/small_custview.pm index 36dd30c6d..f8e202092 100644 --- a/FS/FS/UI/Web/small_custview.pm +++ b/FS/FS/UI/Web/small_custview.pm @@ -3,7 +3,6 @@ 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; @@ -36,26 +35,7 @@ sub small_custview { $html .= 'Customer #'. $cust_main->display_custnum. ''. ' - '. - ucfirst($cust_main->status). ''; - - my @part_tag = $cust_main->part_tag; - if ( @part_tag ) { - $html .= ''; - foreach my $part_tag ( @part_tag ) { - $html .= ''; - } - $html .= '
'. - 'tagcolor) - ? 'STYLE="background-color:#'.$part_tag->tagcolor.'"' - : '' - ). - '>'. - encode_entities($part_tag->tagname.': '. $part_tag->tagdesc). - ''. - '
'; - } - - $html .= + ucfirst($cust_main->status). ''. ntable('#e8e8e8'). ''. ntable("#cccccc",2). 'Billing
Address'. $cust_main->getfield('last'). ', '. $cust_main->first. '
';