From: Mike Taylor <mike@indexdata.com>
Date: Wed, 1 Nov 2006 10:00:44 +0000 (+0000)
Subject: Add "This Record" panel when an ID is defined.
X-Git-Tag: CPAN-v1.02~54^2~802
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=55ae0040da4daeaf6f1d710e103126abf2bc6dac;ds=sidebyside

Add "This Record" panel when an ID is defined.
---

diff --git a/web/htdocs/chrome/menu.mc b/web/htdocs/chrome/menu.mc
index ef5aaef..dde9689 100644
--- a/web/htdocs/chrome/menu.mc
+++ b/web/htdocs/chrome/menu.mc
@@ -1,4 +1,4 @@
-%# $Id: menu.mc,v 1.8 2006-09-28 16:47:22 mike Exp $
+%# $Id: menu.mc,v 1.9 2006-11-01 10:00:44 mike Exp $
      <p>
       <a href="/"><b>Home</b></a><br/>
       <a href="/all.html">Test&nbsp;all&nbsp;targets</a><br/>
@@ -12,9 +12,41 @@
       <a href="/find.html?dc.title=^<% $i %>*&amp;_sort=dc.title&amp;_count=9999&amp;_search=Search"><% uc($i) %></a>
 % }
      </p>
+% our $rec;
+% my $id = $r->param("id");
+% if (!defined $id) {
+%    $rec = undef;
+% } else {
+     <div class="panel2">
+      <b>This Record</b>
+      <br/>
+      <a href="<% xml_encode("/full.html?id=" . uri_escape($id))
+		%>">Show</a>
+      <br/>
+      <a href="<% xml_encode("/check.html?id=" . uri_escape($id))
+		%>">Test</a>
+      <br/>
+      <a href="<% xml_encode("/edit.html?id=" . uri_escape($id))
+		%>">Edit</a>
+      <br/>
+      <a href="<% xml_encode("/raw.html?id=" . uri_escape($id))
+		%>">XML</a>
+      <br/>
+<%doc><!-- Maybe this would be too heavyweight -->
+      <br/>
+% my $host = "bagel.indexdata.dk";
+% my $port = 210;
+      <a href="/find.html?net.host=<% $host %>&net.port=<% $port %>&_search=Search"
+	>All databases on this server</a>
+</%doc>
+     </div>
+% }
      <p>
-      <a href="/doc.html">Documentation</a>
+      <b>Documentation</b>
+      <br/>
+      <a href="/doc.html">Contents</a>
      </p>
+     <p>&nbsp;</p>
      <p>
       <a href="http://validator.w3.org/check?uri=referer"><img
         src="/valid-xhtml10.png"