Revision dba493ac
Von Moritz Bunkus vor mehr als 17 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
| 107 | 107 |
$self->{form}->error('Incorrect usage -- expecting hash or array ref');
|
| 108 | 108 |
} |
| 109 | 109 |
|
| 110 |
my @columns_with_default_alignment = grep { defined $self->{columns}->{$_}->{align} } keys %{ $self->{columns} };
|
|
| 111 |
|
|
| 110 | 112 |
foreach my $row (@{ $row_set }) {
|
| 113 |
foreach my $column (@columns_with_default_alignment) {
|
|
| 114 |
$row->{$column} ||= { };
|
|
| 115 |
$row->{$column}->{align} = $self->{columns}->{$column}->{align} unless (defined $row->{$column}->{align});
|
|
| 116 |
} |
|
| 117 |
|
|
| 111 | 118 |
foreach my $field (qw(data link)) {
|
| 112 | 119 |
map { $row->{$_}->{$field} = [ $row->{$_}->{$field} ] if (ref $row->{$_}->{$field} ne 'ARRAY') } keys %{ $row };
|
| 113 | 120 |
} |
Auch abrufbar als: Unified diff
ReportGenerator: Man kann jetzt die Standardanordnung (align) in den Spalten angegeben werden.