- 'align' => 'rllllll' . FS::UI::Web::cust_aligns(),
- 'color' => [ ('') x 7,
- FS::UI::Web::cust_colors() ],
- 'style' => [ $svc_cancel_style, ('') x 6,
- FS::UI::Web::cust_styles() ],
- )
-%>
+ 'align' => 'rlllllllr' . FS::UI::Web::cust_aligns(),
+ 'color' => [ ('') x 8,
+ sub {
+ $cust_pkg_cache{$_[0]->svcnum} ||= $_[0]->cust_svc->cust_pkg;
+ return '' unless $cust_pkg_cache{$_[0]->svcnum};
+ my $c = FS::cust_pkg::statuscolors;
+ $c->{$cust_pkg_cache{$_[0]->svcnum}->status };
+ }, # pkg status
+ FS::UI::Web::cust_colors() ],
+ 'style' => [ $svc_cancel_style, ('') x 7,
+ 'b',
+ FS::UI::Web::cust_styles() ],
+&>