diff options
-rw-r--r-- | FS/FS/Tron.pm | 3 | ||||
-rw-r--r-- | httemplate/elements/mcp_lint.html | 3 |
2 files changed, 5 insertions, 1 deletions
diff --git a/FS/FS/Tron.pm b/FS/FS/Tron.pm index 33280955e..dcb917e21 100644 --- a/FS/FS/Tron.pm +++ b/FS/FS/Tron.pm @@ -53,6 +53,7 @@ sub tron_scan { $hash{$option} = $value; } close READER; + close WRITER; unless ( keys %hash ) { return "error scanning $machine\n"; @@ -86,6 +87,8 @@ sub tron_lint { push @lint, "$option is $current" unless $current =~ $desired{$option}; } + push @lint, 'unchecked' unless scalar($cust_svc->options); + @lint; } diff --git a/httemplate/elements/mcp_lint.html b/httemplate/elements/mcp_lint.html index 826549c65..9e2b5cab6 100644 --- a/httemplate/elements/mcp_lint.html +++ b/httemplate/elements/mcp_lint.html @@ -1,5 +1,6 @@ % foreach my $lint (@lint) { - <FONT COLOR="#FF0000"><% $lint %></FONT><BR> +% my $color = ( $lint =~ /unchecked$/ ? '#FF9900' : '#FF0000' ); + <FONT COLOR="<% $color %>"><% $lint %></FONT><BR> % } <%init> |