Revision e81efe40
Von Sven Schöling vor mehr als 13 Jahren hinzugefügt
| SL/Template/OpenDocument.pm | ||
|---|---|---|
| 37 | 37 |
|
| 38 | 38 |
my $ary = $self->_get_loop_variable($var, 1, @indices); |
| 39 | 39 |
|
| 40 |
for (my $i = 0; $i < scalar(@{$ary}); $i++) {
|
|
| 40 |
for (my $i = 0; $i < scalar(@{$ary || []}); $i++) {
|
|
| 41 | 41 |
$form->{"__first__"} = $i == 0;
|
| 42 | 42 |
$form->{"__last__"} = ($i + 1) == scalar(@{$ary});
|
| 43 | 43 |
$form->{"__odd__"} = (($i + 1) % 2) == 1;
|
Auch abrufbar als: Unified diff
Ein strict Problem beheben.