Revision d729e328
Von Sven Schöling vor etwa 13 Jahren hinzugefügt
| SL/CVar.pm | ||
|---|---|---|
| 716 | 716 |
return $value; |
| 717 | 717 |
} |
| 718 | 718 |
|
| 719 |
sub format_to_template {
|
|
| 720 |
my ($self, $value, $config) = @_; |
|
| 721 |
# stupid template expects everything formated. except objects |
|
| 722 |
# do not use outside of print routines for legacy templates |
|
| 723 |
|
|
| 724 |
return $::form->parse_amount(\%::myconfig, $value) if $config->{type} eq 'number';
|
|
| 725 |
return $value->to_lxoffice if $config->{type} eq 'date' && blessed $value && $value->can('to_lxoffice');
|
|
| 726 |
return $value; |
|
| 727 |
} |
|
| 728 |
|
|
| 719 | 729 |
1; |
| 720 | 730 |
|
| 721 | 731 |
__END__ |
| SL/DO.pm | ||
|---|---|---|
| 888 | 888 |
} |
| 889 | 889 |
} |
| 890 | 890 |
|
| 891 |
map { push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} }, $form->{"ic_cvar_$_->{name}_$i"} } @{ $ic_cvar_configs };
|
|
| 891 |
push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
|
|
| 892 |
CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
|
|
| 893 |
for @{ $ic_cvar_configs };
|
|
| 892 | 894 |
} |
| 893 | 895 |
|
| 894 | 896 |
$h_pg->finish(); |
| SL/IS.pm | ||
|---|---|---|
| 353 | 353 |
$sth->finish; |
| 354 | 354 |
} |
| 355 | 355 |
|
| 356 |
map { push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} }, $form->{"ic_cvar_$_->{name}_$i"} } @{ $ic_cvar_configs };
|
|
| 356 |
push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
|
|
| 357 |
CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
|
|
| 358 |
for @{ $ic_cvar_configs };
|
|
| 357 | 359 |
} |
| 358 | 360 |
} |
| 359 | 361 |
|
| ... | ... | |
| 877 | 879 |
# record payments and offsetting AR |
| 878 | 880 |
if (!$form->{storno}) {
|
| 879 | 881 |
for my $i (1 .. $form->{paidaccounts}) {
|
| 880 |
|
|
| 882 |
|
|
| 881 | 883 |
if ($form->{"acc_trans_id_$i"}
|
| 882 | 884 |
&& $payments_only |
| 883 | 885 |
&& ($::lx_office_conf{features}->{payments_changeable} == 0)) {
|
| SL/OE.pm | ||
|---|---|---|
| 1293 | 1293 |
$sth->finish; |
| 1294 | 1294 |
} |
| 1295 | 1295 |
|
| 1296 |
map { push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} }, $form->{"ic_cvar_$_->{name}_$i"} } @{ $ic_cvar_configs };
|
|
| 1296 |
push @{ $form->{TEMPLATE_ARRAYS}->{"ic_cvar_$_->{name}"} },
|
|
| 1297 |
CVar->format_to_template(CVar->parse($form->{"ic_cvar_$_->{name}_$i"}, $_), $_)
|
|
| 1298 |
for @{ $ic_cvar_configs };
|
|
| 1297 | 1299 |
} |
| 1298 | 1300 |
} |
| 1299 | 1301 |
|
Auch abrufbar als: Unified diff
typ customer korrekt ans template system übergeben