X-Git-Url: http://jsfdemo.indexdata.com/?a=blobdiff_plain;f=web%2Fhtdocs%2Fdetails%2Fedit.mc;h=bfe383691238715839cde6cf351b8d64c04db45a;hb=ea09903cfa93b2516c12f7af897825da6e630d51;hp=3ee62b4a320c740c9a461e67f8de0ece6fef265a;hpb=0ab30e7e20933507512444aed53bcb4ba84003b1;p=irspy-moved-to-github.git diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc index 3ee62b4..bfe3836 100644 --- a/web/htdocs/details/edit.mc +++ b/web/htdocs/details/edit.mc @@ -1,4 +1,3 @@ -%# $Id: edit.mc,v 1.40 2009-04-15 18:16:46 wosch Exp $ <%args> $op $id => undef ### should be extracted using utf8param() @@ -84,7 +83,7 @@ if (!defined $id) { # that the new record is not a duplicate of an existing one. my $rs = $conn->search(new ZOOM::Query::CQL(cql_target($newid))); if ($rs->size() > 0) { - my $qnewid = xml_encode(uri_escape($newid)); + my $qnewid = xml_encode(uri_escape_utf8($newid)); print qq[

There is already a record @@ -343,7 +342,7 @@ my %fieldsByKey = map { ( $_->[0], $_) } @fields; my %data; foreach my $key (&utf8param($r)) { next if grep { $key eq $_ } qw(op id update); - $data{$key} = utf8param($r, $key); + $data{$key} = trimField( utf8param($r, $key) ); } my @changedFields = modify_xml_document($xc, \%fieldsByKey, \%data); if ($update && @changedFields) {