From: Wolfram Schneider <wosch@indexdata.dk>
Date: Wed, 21 Apr 2010 13:31:38 +0000 (+0200)
Subject: strips whitespaces at start and ends of fields: bug #3369
X-Git-Tag: CPAN-v1.02~105
X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=commitdiff_plain;h=a5dd8537772021ab6cd0d5221462feed60015ddc

strips whitespaces at start and ends of fields: bug #3369
---

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 7f297b8..bfe3836 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -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);
-    $data{$key} = utf8param($r, $key);
+    $data{$key} = trimField( utf8param($r, $key) );
 }
 my @changedFields = modify_xml_document($xc, \%fieldsByKey, \%data);
 if ($update && @changedFields) {