Help link for Reliability.

diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc
index d4b6d66..040318e 100644 (file)
--- 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);
       <tr class="thleft">
        <th>#</th>
        <th>Title</th>
-       <th>Reliability</th>
+       <th>Reliability <& /help/link.mc, help => "info/reliability" &>
+       </th>
        <th>Host</th>
        <th>Port</th>
        <th>DB</th>

diff --git a/web/htdocs/details/full.mc b/web/htdocs/details/full.mc
index a5f4110..19f74a2 100644 (file)
--- 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
 </%args>
@@ -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) {
 </%perl>
       <tr>
-       <th><% xml_encode($caption) %></th>
+% $caption =~ s/\/(.*)//;
+% my $help = $1;
+       <th><% xml_encode($caption) %><%
+       !defined $help ? "" : $m->comp("/help/link.mc", help =>"info/$help")
+       %></th>
        <td><% xml_encode($data) %></td>
       </tr>
 %      }