-%# $Id: edit.mc,v 1.40 2009-04-15 18:16:46 wosch Exp $
<%args>
$op
$id => undef ### should be extracted using utf8param()
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) {