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 ef6e5fa..9ab6c80 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);
 
+  # collapse multiple (horizontal) whitespace in chart description (Ticket 148)
+  map { $form->{$_} =~ s/\h+/ /g } qw(description);
+
   my ($query, $sth);
 
   if ($form->{id} eq "NULL") {