From: Mike Taylor <mike@indexdata.com>
Date: Thu, 3 May 2007 12:43:04 +0000 (+0000)
Subject: Use utf8param($r, $key) instead of $r->param($key) throughout.
X-Git-Tag: CPAN-v1.02~54^2~382
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=0e0292a11cf43e9b1405c05b69886044d97e29d2;p=irspy-moved-to-github.git

Use utf8param($r, $key) instead of $r->param($key) throughout.
---

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 96a8d15..73a938a 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,7 +1,7 @@
-%# $Id: edit.mc,v 1.32 2007-05-03 09:33:29 mike Exp $
+%# $Id: edit.mc,v 1.33 2007-05-03 12:43:04 mike Exp $
 <%args>
 $op
-$id => undef
+$id => undef ### should be extracted using utf8param()
 $update => undef
 </%args>
 <%doc>
@@ -36,10 +36,10 @@ my $conn = new ZOOM::Connection("localhost:8018/IR-Explain---1", 0,
 				user => "admin", password => "fruitbat",
 				elementSetName => "zeerex");
 
-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");
 my $newid;
 if (defined $protocol && $protocol ne "" &&
     defined $host && $host ne "" &&
@@ -323,7 +323,7 @@ my %fieldsByKey = map { ( $_->[0], $_) } @fields;
 my %data;
 foreach my $key ($r->param()) {
     next if grep { $key eq $_ } qw(op id update);
-    $data{$key} = $r->param($key);
+    $data{$key} = utf8param($r, $key);
 }
 my @changedFields = modify_xml_document($xc, \%fieldsByKey, \%data);
 if ($update && @changedFields) {