From 5ffcdb88057319217d93ee6a3a5d8dfa4187c6f3 Mon Sep 17 00:00:00 2001 From: Mike Taylor Date: Thu, 26 Apr 2007 13:57:17 +0000 Subject: [PATCH 1/1] Help link for Reliability. --- web/htdocs/details/found.mc | 5 +++-- web/htdocs/details/full.mc | 10 +++++++--- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc index d4b6d66..040318e 100644 --- a/web/htdocs/details/found.mc +++ b/web/htdocs/details/found.mc @@ -1,4 +1,4 @@ -%# $Id: found.mc,v 1.27 2007-02-22 11:49:46 mike Exp $ +%# $Id: found.mc,v 1.28 2007-04-26 13:57:17 mike Exp $ <%once> sub print_navlink { my($params, $cond, $caption, $skip) = @_; @@ -115,7 +115,8 @@ print_navlink(\%params, $last < $n, "Next", $skip+$count); # Title - Reliability + Reliability <& /help/link.mc, help => "info/reliability" &> + Host Port DB diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc index a5f4110..19f74a2 100644 --- a/web/htdocs/details/full.mc +++ b/web/htdocs/details/full.mc @@ -1,4 +1,4 @@ -%# $Id: full.mc,v 1.25 2007-04-18 12:06:25 mike Exp $ +%# $Id: full.mc,v 1.26 2007-04-26 14:00:33 mike Exp $ <%args> $id @@ -43,7 +43,7 @@ if ($n == 0) { [ "Implementation ID" => "i:status/i:implementationId" ], [ "Implementation Name" => "i:status/i:implementationName" ], [ "Implementation Version" => "i:status/i:implementationVersion" ], - [ "Reliability" => \&calc_reliability, $xc ], + [ "Reliability/reliability" => \&calc_reliability, $xc ], [ "Services" => \&calc_init_options, $xc ], [ "Bib-1 Use attributes" => \&calc_ap, $xc, "bib-1" ], [ "Dan-1 Use attributes" => \&calc_ap, $xc, "dan-1" ], @@ -68,7 +68,11 @@ if ($n == 0) { if ($data) { - <% xml_encode($caption) %> +% $caption =~ s/\/(.*)//; +% my $help = $1; + <% xml_encode($caption) %><% + !defined $help ? "" : $m->comp("/help/link.mc", help =>"info/$help") + %> <% xml_encode($data) %> % } -- 1.7.10.4