Revision 8b68b3f8
Von Moritz Bunkus vor mehr als 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 197 | 197 |
my ($self, $str) = @_; |
| 198 | 198 |
|
| 199 | 199 |
if ($str && !ref($str)) {
|
| 200 |
$str =~ s/"/"/g; |
|
| 200 |
$str =~ s/\"/"/g;
|
|
| 201 | 201 |
} |
| 202 | 202 |
|
| 203 | 203 |
$str; |
| ... | ... | |
| 208 | 208 |
my ($self, $str) = @_; |
| 209 | 209 |
|
| 210 | 210 |
if ($str && !ref($str)) {
|
| 211 |
$str =~ s/"/"/g; |
|
| 211 |
$str =~ s/"/\"/g;
|
|
| 212 | 212 |
} |
| 213 | 213 |
|
| 214 | 214 |
$str; |
| ... | ... | |
| 692 | 692 |
} |
| 693 | 693 |
|
| 694 | 694 |
if ($myconfig->{numberformat} eq "1'000.00") {
|
| 695 |
$amount =~ s/'//g; |
|
| 695 |
$amount =~ s/\'//g;
|
|
| 696 | 696 |
} |
| 697 | 697 |
|
| 698 | 698 |
$amount =~ s/,//g; |
Auch abrufbar als: Unified diff
Kosmetik: Einige Anfuehrungszeichen gequotet, um Syntaxhighlighting zu erleichtern.