From 1eaed6aa4a401a236ad0b3f3c0c39cebee6090d8 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Wed, 9 Jun 2010 17:23:18 +0100 Subject: [PATCH] Display supported Bath-profile searches. --- web/htdocs/details/full.mc | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index 0ff52e6..546419b 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -45,6 +45,7 @@ if ($n == 0) { [ "Services" => \&calc_init_options, $xc ], [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], + [ "Bath Profile searches" => \&calc_bath, $xc ], [ "Operators" => \&calc_boolean, $xc ], [ "Named Result Sets" => \&calc_nrs, $xc ], [ "Record syntaxes" => \&calc_recsyn, $xc ], @@ -159,6 +160,15 @@ sub _list_ap { return sort { $a <=> $b } map { $_->findvalue(".") } @nodes; } +sub calc_bath { + my($id, $xc) = @_; + + my @nodes = $xc->findnodes('i:status/i:search_bath[@ok = "1"]'); + my $res = join(", ", map { $_->findvalue('@name') } @nodes); + $res = "[none]" if $res eq ""; + return $res; +} + sub calc_boolean { my($id, $xc) = @_; -- 1.7.10.4