corrected flag for single-bit fields to get.pl

diff --git a/xml-db/get.pl b/xml-db/get.pl
index d202a3250d401de72512cf649b2e89ad391ff733..3677d59cf7313c92805c70f78027517d0d737b29 100755 (executable)
--- 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);