% foreach my $lint (@lint) {
- <FONT COLOR="#FF0000"><% $lint %></FONT><BR>
+% my $color = ( $lint =~ /unchecked$/ ? '#FF9900' : '#FF0000' );
+ <FONT COLOR="<% $color %>"><% $lint %></FONT><BR>
% }
<%init>
die 'neither svc nor cust_main options passed to mcp_lint';
}
+
my @lint = ();
+push @lint, 'unchecked' unless @svc;
foreach my $svc ( @svc ) {
my @svc_lint = tron_lint($svc);
if ( scalar(@svc) > 1 ) {