xml-pages: change color of rate fields that are 0

diff --git a/web/htdocs/layout/blue.css b/web/htdocs/layout/blue.css
index 8428bc6519ffb71876e1e99194e3694158b53905..f8656769dfe3fe89e02618b37cd60a1773c7af7b 100644 (file)
--- a/web/htdocs/layout/blue.css
+++ b/web/htdocs/layout/blue.css
@@ -311,6 +311,9 @@ table.queryresult td.bad {
   background-color:#faa;
 }
 
+table.queryresult td.nullvalue {
+  color:#a88;
+}
 
 table.conversion {
   visibility:collapse;

diff --git a/xml-db/get.pl b/xml-db/get.pl
index 79c40d45281f7c370a82b67042b791be4ee9dcf4..13122cada8f019aa6cd766a893cce4ec84eba8ea 100755 (executable)
--- a/xml-db/get.pl
+++ b/xml-db/get.pl
@@ -14,7 +14,7 @@ use if (!defined $ENV{'QUERY_STRING'}), Getopt::Long;
 no warnings 'experimental::smartmatch';
 
 # use Data::TreeDumper;
-use Data::Dumper;
+# use Data::Dumper;
 my ($db,$data,$once,$slice);
 my $help = 0;
 my $verbose = 0;
@@ -221,6 +221,8 @@ sub FormatPretty {
     $cl = "class=\"".($value?"good":"bad")."\"" if     ( $obj->{errorflag} &&  $obj->{invertflag} && $isflag && $readable);
     $cl = "class=\"".($value?"high":"low")."\"" if     (!$obj->{errorflag} && !$obj->{invertflag} && $isflag && $readable);
     $cl = "class=\"".($value?"low":"high")."\"" if     (!$obj->{errorflag} &&  $obj->{invertflag} && $isflag && $readable);
+    $cl = "class=\"nullvalue\""                 if     ($cl eq '' && $obj->{rate} && $value == 0);
+
     $cl .= sprintf(" cstr=\"$cstr\"%s raw=\"0x%x\"><div class=\"$class\">",$single,$rawvalue);
 
     my $t = "";