Revision 3286128e
Von Jan Büren vor etwa 13 Jahren hinzugefügt
| bin/mozilla/gl.pl | ||
|---|---|---|
| 511 | 511 |
gldate transdate id reference description |
| 512 | 512 |
notes source debit debit_accno |
| 513 | 513 |
credit credit_accno debit_tax debit_tax_accno |
| 514 |
credit_tax credit_tax_accno projectnumbers balance |
|
| 514 |
credit_tax credit_tax_accno projectnumbers balance employee
|
|
| 515 | 515 |
); |
| 516 | 516 |
|
| 517 | 517 |
# add employee here, so that variable is still known and passed in url when choosing a different sort order in resulting table |
| ... | ... | |
| 658 | 658 |
$row->{balance}->{data} = $data;
|
| 659 | 659 |
$row->{projectnumbers}->{data} = join ", ", sort { lc($a) cmp lc($b) } keys %{ $ref->{projectnumbers} };
|
| 660 | 660 |
|
| 661 |
map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description notes);
|
|
| 661 |
map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description notes gldate employee);
|
|
| 662 | 662 |
|
| 663 |
map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate gldate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno source);
|
|
| 663 |
map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno source);
|
|
| 664 | 664 |
|
| 665 | 665 |
foreach my $col (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno)) {
|
| 666 | 666 |
$row->{$col}->{link} = [ map { "${callback}&accno=" . E($_) } @{ $rows{$col} } ];
|
Auch abrufbar als: Unified diff
Zum commit von gerade noch entsprechend employee korrekt ausgelesen und gldate vom richtigen Datensatz