From: Mike Taylor <mike@indexdata.com>
Date: Thu, 26 Apr 2007 13:57:17 +0000 (+0000)
Subject: Help link for Reliability.
X-Git-Tag: CPAN-v1.02~465
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=0ce213161741b7726ac32bd6c76bbef7f1dc6ab7

Help link for Reliability.
---

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);
       <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
--- 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>
 %	}