From f869a45a1b3ff7c92a4b54f387ab12436e18e4b0 Mon Sep 17 00:00:00 2001 From: "G. Richardson" Date: Sat, 26 Mar 2016 11:54:32 +0100 Subject: [PATCH] Whitespace in Kontennamen filtern Beim Speichern von Konten in der Kontenbeschreibung mehrere aufeinanderfolgende Leerzeichen mit einem Leerzeichen ersetzen. Siehe Ticket 148. --- SL/AM.pm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/SL/AM.pm b/SL/AM.pm index ef6e5fa38..9ab6c8092 100644 --- 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") { -- 2.20.1