Revision 53fcb212
Von Jan Büren vor mehr als 10 Jahren hinzugefügt
| SL/IC.pm | ||
|---|---|---|
| 324 | 324 |
$subq_expense = "NULL"; |
| 325 | 325 |
} |
| 326 | 326 |
|
| 327 |
normalize_text_blocks(); |
|
| 328 |
|
|
| 327 | 329 |
$query = |
| 328 | 330 |
qq|UPDATE parts SET |
| 329 | 331 |
partnumber = ?, |
| ... | ... | |
| 1697 | 1699 |
$main::lxdebug->leave_sub(); |
| 1698 | 1700 |
} |
| 1699 | 1701 |
|
| 1702 |
sub normalize_text_blocks {
|
|
| 1703 |
$main::lxdebug->enter_sub(); |
|
| 1704 |
|
|
| 1705 |
my $self = shift; |
|
| 1706 |
my %params = @_; |
|
| 1707 |
|
|
| 1708 |
my $form = $params{form} || $main::form;
|
|
| 1709 |
|
|
| 1710 |
# check if feature is enabled (select normalize_part_descriptions from defaults) |
|
| 1711 |
return unless ($::instance_conf->get_normalize_part_descriptions); |
|
| 1712 |
|
|
| 1713 |
foreach (qw(description notes)) {
|
|
| 1714 |
$form->{$_} =~ s/\s+$//s;
|
|
| 1715 |
$form->{$_} =~ s/^\s+//s;
|
|
| 1716 |
$form->{$_} =~ s/ {2,}/ /g;
|
|
| 1717 |
} |
|
| 1718 |
$main::lxdebug->leave_sub(); |
|
| 1719 |
} |
|
| 1720 |
|
|
| 1700 | 1721 |
|
| 1701 | 1722 |
1; |
Auch abrufbar als: Unified diff
Zeilenumbrüche als letztes Zeichen bei part.description, part.notes beim Speichern in DB verhindern
closes #2011
Wie Wulf vorgeschlagen hat, werden alle whitespaces beim Beginn eines Textblocks und beim Ende eines
Textblocks entfernt. Ferner werden mehrfach Wiederholungen von Leerzeichen innerhalb eines Blocks
auf nur ein Leerzeichen reduziert. Konfigurierbar (Standard an). OFFEN: Bei CSV-Import wird dies
noch nicht berücksichtigt