Revision 8add0ccd
Von Bernd Blessmann vor etwa 13 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 2968 | 2968 |
$self->{$key} = $ref->{$key};
|
| 2969 | 2969 |
} |
| 2970 | 2970 |
|
| 2971 |
# remove any trailing whitespace |
|
| 2972 |
$self->{currency} =~ s/\s*$//;
|
|
| 2973 |
|
|
| 2971 | 2974 |
my $transdate = "current_date"; |
| 2972 | 2975 |
if ($self->{transdate}) {
|
| 2973 | 2976 |
$transdate = $dbh->quote($self->{transdate});
|
| ... | ... | |
| 3144 | 3147 |
|
| 3145 | 3148 |
map { $self->{$_} = $ref->{$_} } values %column_map;
|
| 3146 | 3149 |
|
| 3150 |
# remove any trailing whitespace |
|
| 3151 |
$self->{currency} =~ s/\s*$// if $self->{currency};
|
|
| 3152 |
|
|
| 3147 | 3153 |
$main::lxdebug->leave_sub(); |
| 3148 | 3154 |
} |
| 3149 | 3155 |
|
Auch abrufbar als: Unified diff
Leerzeichen am Ende bei curr(ency) entfernen.
In der Datenbank werden f. Währungen drei Zeichen gespeichert. Eine
Währung mit zwei Zeichen hat dann ein Leerzeichen am Ende und der
Vergleich in den Maske schlägt fehl, wenn es dort bleibt.