projects
/
irspy-moved-to-github.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
38f36b7
)
Use utf8param($r, $key) instead of $r->param($key) throughout.
author
Mike Taylor
<mike@indexdata.com>
Thu, 3 May 2007 12:43:04 +0000
(12:43 +0000)
committer
Mike Taylor
<mike@indexdata.com>
Thu, 3 May 2007 12:43:04 +0000
(12:43 +0000)
web/htdocs/details/edit.mc
patch
|
blob
|
history
diff --git
a/web/htdocs/details/edit.mc
b/web/htdocs/details/edit.mc
index
96a8d15
..
73a938a
100644
(file)
--- 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
<%args>
$op
-$id => undef
+$id => undef ### should be extracted using utf8param()
$update => undef
</%args>
<%doc>
$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");
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 "" &&
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);
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) {
}
my @changedFields = modify_xml_document($xc, \%fieldsByKey, \%data);
if ($update && @changedFields) {