Revision 5701782c
Von Moritz Bunkus vor etwa 15 Jahren hinzugefügt
| bin/mozilla/common.pl | ||
|---|---|---|
| 351 | 351 |
$dateformat = $myconfig{"dateformat"} unless ($dateformat);
|
| 352 | 352 |
|
| 353 | 353 |
foreach my $idx (@indices) {
|
| 354 |
if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
|
|
| 355 |
for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
|
|
| 356 |
$form->{TEMPLATE_ARRAYS}->{$idx}->[$i] =
|
|
| 357 |
$locale->reformat_date(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i],
|
|
| 358 |
$dateformat, $longformat); |
|
| 359 |
} |
|
| 360 |
} |
|
| 361 |
|
|
| 354 | 362 |
next unless (defined($form->{$idx}));
|
| 355 | 363 |
|
| 356 | 364 |
if (!ref($form->{$idx})) {
|
| ... | ... | |
| 364 | 372 |
$dateformat, $longformat); |
| 365 | 373 |
} |
| 366 | 374 |
} |
| 367 |
if (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY") {
|
|
| 368 |
for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
|
|
| 369 |
$form->{TEMPLATE_ARRAYS}->{$idx}->[$i] =
|
|
| 370 |
$locale->reformat_date(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i],
|
|
| 371 |
$dateformat, $longformat); |
|
| 372 |
} |
|
| 373 |
} |
|
| 374 | 375 |
} |
| 375 | 376 |
|
| 376 | 377 |
$lxdebug->leave_sub(); |
| ... | ... | |
| 385 | 386 |
if (!$numberformat || ($numberformat eq $myconfig{"numberformat"}));
|
| 386 | 387 |
|
| 387 | 388 |
foreach my $idx (@indices) {
|
| 389 |
if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
|
|
| 390 |
for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
|
|
| 391 |
$form->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $form->parse_amount(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i]);
|
|
| 392 |
} |
|
| 393 |
} |
|
| 394 |
|
|
| 388 | 395 |
next unless (defined($form->{$idx}));
|
| 389 | 396 |
|
| 390 | 397 |
if (!ref($form->{$idx})) {
|
| ... | ... | |
| 402 | 409 |
$myconfig{"numberformat"} = $numberformat;
|
| 403 | 410 |
|
| 404 | 411 |
foreach my $idx (@indices) {
|
| 412 |
if ($form->{TEMPLATE_ARRAYS} && (ref($form->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
|
|
| 413 |
for (my $i = 0; $i < scalar(@{$form->{TEMPLATE_ARRAYS}->{$idx}}); $i++) {
|
|
| 414 |
$form->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $form->format_amount(\%myconfig, $form->{TEMPLATE_ARRAYS}->{$idx}->[$i], $places);
|
|
| 415 |
} |
|
| 416 |
} |
|
| 417 |
|
|
| 405 | 418 |
next unless (defined($form->{$idx}));
|
| 406 | 419 |
|
| 407 | 420 |
if (!ref($form->{$idx})) {
|
Auch abrufbar als: Unified diff
Das Umformatieren der Daten und Zahlen beim Ausdruck wegen der Umstellung auf TEMPLATE_ARRAYS gefixt.