From 5af2144c9a1726a64ee62805bea33a8094109ceb Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Mon, 6 Nov 2006 17:43:29 +0000 Subject: [PATCH] Calculate named-result-set support. --- web/htdocs/details/full.mc | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index a371c49..5f7ac19 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,4 +1,4 @@ -%# $Id: full.mc,v 1.12 2006-11-06 17:40:04 mike Exp $ +%# $Id: full.mc,v 1.13 2006-11-06 17:43:29 mike Exp $ <%args> $id @@ -53,6 +53,7 @@ the Init Response. [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], [ "Operators" => \&calc_boolean, $xc ], + [ "Named Result Sets" => \&calc_nrs, $xc ], [ "Record syntaxes" => \&calc_recsyn, $xc ], [ "Explain" => \&calc_explain, $xc ], ); @@ -141,6 +142,13 @@ sub calc_boolean { return $res; } +sub calc_nrs { + my($xc) = @_; + + my @nodes = $xc->findnodes('i:status/i:named_resultset[@ok = "1"]'); + return @nodes ? "Yes" : "No"; +} + sub calc_recsyn { my($xc) = @_; -- 1.7.10.4