Revision bc433711
Von Moritz Bunkus vor fast 14 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 3507 | 3507 |
$main::lxdebug->leave_sub(); |
| 3508 | 3508 |
} |
| 3509 | 3509 |
|
| 3510 |
sub format_dates {
|
|
| 3511 |
my ($self, $dateformat, $longformat, @indices) = @_; |
|
| 3512 |
|
|
| 3513 |
$dateformat ||= $::myconfig{dateformat};
|
|
| 3514 |
|
|
| 3515 |
foreach my $idx (@indices) {
|
|
| 3516 |
if ($self->{TEMPLATE_ARRAYS} && (ref($self->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
|
|
| 3517 |
for (my $i = 0; $i < scalar(@{ $self->{TEMPLATE_ARRAYS}->{$idx} }); $i++) {
|
|
| 3518 |
$self->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $::locale->reformat_date(\%::myconfig, $self->{TEMPLATE_ARRAYS}->{$idx}->[$i], $dateformat, $longformat);
|
|
| 3519 |
} |
|
| 3520 |
} |
|
| 3521 |
|
|
| 3522 |
next unless defined $self->{$idx};
|
|
| 3523 |
|
|
| 3524 |
if (!ref($self->{$idx})) {
|
|
| 3525 |
$self->{$idx} = $::locale->reformat_date(\%::myconfig, $self->{$idx}, $dateformat, $longformat);
|
|
| 3526 |
|
|
| 3527 |
} elsif (ref($self->{$idx}) eq "ARRAY") {
|
|
| 3528 |
for (my $i = 0; $i < scalar(@{ $self->{$idx} }); $i++) {
|
|
| 3529 |
$self->{$idx}->[$i] = $::locale->reformat_date(\%::myconfig, $self->{$idx}->[$i], $dateformat, $longformat);
|
|
| 3530 |
} |
|
| 3531 |
} |
|
| 3532 |
} |
|
| 3533 |
} |
|
| 3534 |
|
|
| 3535 |
sub reformat_numbers {
|
|
| 3536 |
my ($self, $numberformat, $places, @indices) = @_; |
|
| 3537 |
|
|
| 3538 |
return if !$numberformat || ($numberformat eq $::myconfig{numberformat});
|
|
| 3539 |
|
|
| 3540 |
foreach my $idx (@indices) {
|
|
| 3541 |
if ($self->{TEMPLATE_ARRAYS} && (ref($self->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
|
|
| 3542 |
for (my $i = 0; $i < scalar(@{ $self->{TEMPLATE_ARRAYS}->{$idx} }); $i++) {
|
|
| 3543 |
$self->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $self->parse_amount(\%::myconfig, $self->{TEMPLATE_ARRAYS}->{$idx}->[$i]);
|
|
| 3544 |
} |
|
| 3545 |
} |
|
| 3546 |
|
|
| 3547 |
next unless defined $self->{$idx};
|
|
| 3548 |
|
|
| 3549 |
if (!ref($self->{$idx})) {
|
|
| 3550 |
$self->{$idx} = $self->parse_amount(\%::myconfig, $self->{$idx});
|
|
| 3551 |
|
|
| 3552 |
} elsif (ref($self->{$idx}) eq "ARRAY") {
|
|
| 3553 |
for (my $i = 0; $i < scalar(@{ $self->{$idx} }); $i++) {
|
|
| 3554 |
$self->{$idx}->[$i] = $self->parse_amount(\%::myconfig, $self->{$idx}->[$i]);
|
|
| 3555 |
} |
|
| 3556 |
} |
|
| 3557 |
} |
|
| 3558 |
|
|
| 3559 |
my $saved_numberformat = $::myconfig{numberformat};
|
|
| 3560 |
$::myconfig{numberformat} = $numberformat;
|
|
| 3561 |
|
|
| 3562 |
foreach my $idx (@indices) {
|
|
| 3563 |
if ($self->{TEMPLATE_ARRAYS} && (ref($self->{TEMPLATE_ARRAYS}->{$idx}) eq "ARRAY")) {
|
|
| 3564 |
for (my $i = 0; $i < scalar(@{ $self->{TEMPLATE_ARRAYS}->{$idx} }); $i++) {
|
|
| 3565 |
$self->{TEMPLATE_ARRAYS}->{$idx}->[$i] = $self->format_amount(\%::myconfig, $self->{TEMPLATE_ARRAYS}->{$idx}->[$i], $places);
|
|
| 3566 |
} |
|
| 3567 |
} |
|
| 3568 |
|
|
| 3569 |
next unless defined $self->{$idx};
|
|
| 3570 |
|
|
| 3571 |
if (!ref($self->{$idx})) {
|
|
| 3572 |
$self->{$idx} = $self->format_amount(\%::myconfig, $self->{$idx}, $places);
|
|
| 3573 |
|
|
| 3574 |
} elsif (ref($self->{$idx}) eq "ARRAY") {
|
|
| 3575 |
for (my $i = 0; $i < scalar(@{ $self->{$idx} }); $i++) {
|
|
| 3576 |
$self->{$idx}->[$i] = $self->format_amount(\%::myconfig, $self->{$idx}->[$i], $places);
|
|
| 3577 |
} |
|
| 3578 |
} |
|
| 3579 |
} |
|
| 3580 |
|
|
| 3581 |
$::myconfig{numberformat} = $saved_numberformat;
|
|
| 3582 |
} |
|
| 3583 |
|
|
| 3510 | 3584 |
1; |
| 3511 | 3585 |
|
| 3512 | 3586 |
__END__ |
Auch abrufbar als: Unified diff
Funktionen format_dates und reformat_numbers von common.pl nach Form.pm verschoben