X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Fmenu.mc;fp=web%2Fhtdocs%2Fchrome%2Fmenu.mc;h=9747b54e77f33e0ad58370658da3a4f060b1a9dd;hp=d4d905b65ba59c75180fe22887dddc64314c9c7c;hb=07bbb862227fad300104fd0ddd7cdb5ec26586bd;hpb=5068b2b9f395c1c4c38b01c1961742439c89bf0b
diff --git a/web/htdocs/chrome/menu.mc b/web/htdocs/chrome/menu.mc
index d4d905b..9747b54 100644
--- a/web/htdocs/chrome/menu.mc
+++ b/web/htdocs/chrome/menu.mc
@@ -1,4 +1,4 @@
-%# $Id: menu.mc,v 1.13 2006-11-15 17:44:35 mike Exp $
+%# $Id: menu.mc,v 1.14 2006-11-16 17:02:30 mike Exp $
Home
Test all targets
@@ -12,8 +12,29 @@
<% uc($i) %>
% }
-% our $rec;
-% my $id = $r->param("id");
+<%perl>
+our $rec;
+my $id = $r->param("id");
+{
+ # Make up ID for newly created records. It would be more
+ # rigorously correct, but insanely inefficient, to submit the
+ # record to Zebra and then search for it; but since we know the
+ # formula for IDs anyway, we just build one by hand.
+ my $id = $r->param("id");
+ my $host = $r->param("host");
+ my $port = $r->param("port");
+ my $dbname = $r->param("dbname");
+ #warn "id='$id', host='$host', port='$port', dbname='$dbname'";
+ #warn "%ARGS = {\n" . join("", map { "\t'$_' => '" . $ARGS{$_} . ",'\n" } sort keys %ARGS) . "}\n";
+ if ((!defined $id || $id eq "") &&
+ defined $host && defined $port && defined $dbname) {
+ $id = "$host:$port/$dbname";
+# $r->param(id => $id);
+# $ARGS{id} = $id;
+ #warn "id set to '$id'";
+ }
+}
+%perl>
% if (!defined $id) {
% $rec = undef;
% } else {