Revision 526173c2
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| SL/Template.pm | ||
|---|---|---|
| 223 | 223 |
$sum += $form->parse_amount($self->{"myconfig"},
|
| 224 | 224 |
$form->{"linetotal"}->[$i]);
|
| 225 | 225 |
} |
| 226 |
|
|
| 226 |
|
|
| 227 | 227 |
$form->{"cumulatelinetotal"}[$i] = $form->format_amount($self->{"myconfig"}, $sum, 2);
|
| 228 |
|
|
| 228 |
|
|
| 229 | 229 |
my $new_text = $self->parse_block($text, (@indices, $i)); |
| 230 | 230 |
return undef unless (defined($new_text)); |
| 231 | 231 |
$new_contents .= $start_tag . $new_text . $end_tag; |
| ... | ... | |
| 350 | 350 |
return undef; |
| 351 | 351 |
} |
| 352 | 352 |
|
| 353 |
my $value = $self->{"form"}->{$var};
|
|
| 353 |
my $form = $self->{form};
|
|
| 354 |
$form = $form->{TEMPLATE_ARRAYS} if @indices
|
|
| 355 |
&& ref $form->{TEMPLATE_ARRAYS} eq 'HASH'
|
|
| 356 |
&& ref $form->{TEMPLATE_ARRAYS}->{$var} eq 'ARRAY';
|
|
| 357 |
my $value = $form->{$var};
|
|
| 354 | 358 |
for (my $i = 0; $i < scalar(@indices); $i++) {
|
| 355 | 359 |
last unless (ref($value) eq "ARRAY"); |
| 356 | 360 |
$value = $value->[$indices[$i]]; |
| ... | ... | |
| 1365 | 1369 |
#### |
| 1366 | 1370 |
########################################################## |
| 1367 | 1371 |
|
| 1368 |
package XMLTemplate;
|
|
| 1372 |
package XMLTemplate; |
|
| 1369 | 1373 |
|
| 1370 | 1374 |
use vars qw(@ISA); |
| 1371 | 1375 |
|
Auch abrufbar als: Unified diff
Latex Parser:
if innerhalb von foreach schlägt fehl, wenn die Variable im neuen TEMPLATE_ARRAY Format abgelegt ist.
if muss also auch dort suchen.
Fix für Bug 992.