+ my $res = join(", ", map { $_->findvalue('@name') } @nodes);
+ $res = "[none]" if $res eq "";
+ return $res;
+}
+
+sub calc_explain {
+ my($xc) = @_;
+
+ my @nodes = $xc->findnodes('i:status/i:explain[@ok = "1"]');
+ my $res = join(", ", map { $_->findvalue('@category') } @nodes);
+ $res = "[none]" if $res eq "";
+ return $res;