strips whitespaces at start and ends of fields: bug #3369
authorWolfram Schneider <wosch@indexdata.dk>
Wed, 21 Apr 2010 13:31:38 +0000 (15:31 +0200)
committerWolfram Schneider <wosch@indexdata.dk>
Wed, 21 Apr 2010 13:31:38 +0000 (15:31 +0200)
web/htdocs/details/edit.mc

index 7f297b8..bfe3836 100644 (file)
@@ -342,7 +342,7 @@ my %fieldsByKey = map { ( $_->[0], $_) } @fields;
 my %data;
 foreach my $key (&utf8param($r)) {
     next if grep { $key eq $_ } qw(op id update);
 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) {
 }
 my @changedFields = modify_xml_document($xc, \%fieldsByKey, \%data);
 if ($update && @changedFields) {