From 6e46ed6798990fb672a205e09f46faf65f6be9e0 Mon Sep 17 00:00:00 2001 From: Jan Michel Date: Fri, 20 Dec 2013 16:19:35 +0100 Subject: [PATCH] corrected flag for single-bit fields to get.pl --- xml-db/get.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/xml-db/get.pl b/xml-db/get.pl index d202a32..3677d59 100755 --- a/xml-db/get.pl +++ b/xml-db/get.pl @@ -164,7 +164,7 @@ sub FormatPretty { my $isflag = 1; $isflag = 0 if $obj->{noflag}; my $single = ""; - $single = " single=\"1\"" if (($obj->{format} eq 'bitmask' && $obj->{size} == 1) || $obj->{format} eq 'boolean'); + $single = " single=\"1\"" if (($obj->{format} eq 'bitmask' && $obj->{bits} == 1) || $obj->{format} eq 'boolean'); $cl = "class=\"".($value?"bad":"good")."\"" if ( $obj->{errorflag} && !$obj->{invertflag} && $isflag); $cl = "class=\"".($value?"good":"bad")."\"" if ( $obj->{errorflag} && $obj->{invertflag} && $isflag); $cl = "class=\"".($value?"high":"low")."\"" if (!$obj->{errorflag} && !$obj->{invertflag} && $isflag); -- 2.43.0