X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fchrome%2Flayout.mc;h=6cb7ec88248464b256abd6005150fa0394652dd0;hb=44adc9125cce9876463001278090b4a0a5e26343;hp=bff813d00b11dd4e2c7e8d6d145d37b260621056;hpb=4b8133a32c00d61f71c96253542d665d74e3e5a2;p=irspy-moved-to-github.git diff --git a/web/htdocs/chrome/layout.mc b/web/htdocs/chrome/layout.mc index bff813d..6cb7ec8 100644 --- a/web/htdocs/chrome/layout.mc +++ b/web/htdocs/chrome/layout.mc @@ -1,4 +1,4 @@ -%# $Id: layout.mc,v 1.32 2007-05-03 12:42:32 mike Exp $ +%# $Id: layout.mc,v 1.36 2007-07-13 16:07:52 mike Exp $ <%args> $debug => undef $title @@ -30,16 +30,16 @@ use ZOOM::IRSpy::Utils qw(utf8param isodate xml_encode cql_target cql_quote
- - IRSpy- |
-
- - <% xml_encode($title) %>- |
-
@@ -81,13 +82,13 @@ use ZOOM::IRSpy::Utils qw(utf8param isodate xml_encode cql_target cql_quote
# the identifier components are all present (e.g. because a record has
# just been edited or copied) we make an ID from those; otherwise we
# use the "id" parameter, if specified.
-my $id = $r->param("id");
+my $id = utf8param($r, "id");
{
# Make up ID for newly created records.
- my $protocol = $r->param("protocol");
- my $host = $r->param("host");
- my $port = $r->param("port");
- my $dbname = $r->param("dbname");
+ my $protocol = utf8param($r, "protocol");
+ my $host = utf8param($r, "host");
+ my $port = utf8param($r, "port");
+ my $dbname = utf8param($r, "dbname");
#warn "id='$id', protocol='$protocol' host='$host', port='$port', dbname='$dbname'";
#warn "%ARGS = {\n" . join("", map { "\t'$_' => '" . $ARGS{$_} . ",'\n" } sort keys %ARGS) . "}\n";
if (defined $protocol && defined $host &&
@@ -153,7 +154,11 @@ my $id = $r->param("id");
Powered by Index Data
+ >Index Data.
+
+ Report errors and omissions to irspy@indexdata.com