Whitespace in Kontennamen filtern

Beim Speichern von Konten in der Kontenbeschreibung mehrere
aufeinanderfolgende Leerzeichen mit einem Leerzeichen ersetzen.
Siehe Ticket 148.

diff --git a/SL/AM.pm b/SL/AM.pm
index ef6e5fa387909a961feeed960b050eec344a3607..9ab6c8092cadfc8beb1c82d9a3dbb4e9a64af7d2 100644 (file)
--- a/SL/AM.pm
+++ b/SL/AM.pm
@@ -149,6 +149,9 @@ sub save_account {
   # strip blanks from accno
   map { $form->{$_} =~ s/ //g; } qw(accno);
 
   # strip blanks from accno
   map { $form->{$_} =~ s/ //g; } qw(accno);
 

+  # collapse multiple (horizontal) whitespace in chart description (Ticket 148)
+  map { $form->{$_} =~ s/\h+/ /g } qw(description);
+

   my ($query, $sth);
 
   if ($form->{id} eq "NULL") {
   my ($query, $sth);
 
   if ($form->{id} eq "NULL") {