X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fgl.pl;h=5069cefa7f89fd26cfbab3999b07fa99c7fd153b;hb=4cedba163990bd449e05da972691ebf035d61de3;hp=0fd863e514d7a91079c82572a364c0cd49a985f7;hpb=7a1f60ec2df4d0d0a1b546f186df7bb968b8f498;p=kivitendo-erp.git
diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index 0fd863e51..5069cefa7 100644
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -40,7 +40,7 @@ use SL::ReportGenerator;
require "bin/mozilla/arap.pl";
require "bin/mozilla/common.pl";
-require "bin/mozilla/report_generator.pl";
+require "bin/mozilla/reportgenerator.pl";
1;
@@ -580,18 +580,14 @@ sub generate_report {
map { $row->{$_}->{data} = $ref->{$_} } qw(id reference description source notes);
- map { $row->{$_}->{data} = join "\n", @{ $rows{$_} }; } qw(transdate debit credit);
-
- map { $row->{$_}->{data} = join "\n", @{ $rows{$_} } if ($ref->{"${_}_accno"} ne "") } qw(debit_tax credit_tax);
+ map { $row->{$_}->{data} = \@{ $rows{$_} }; } qw(transdate debit credit debit_accno credit_accno debit_tax_accno credit_tax_accno);
foreach my $col (qw(debit_accno credit_accno debit_tax_accno credit_tax_accno)) {
- if (lc $report->{options}->{output_format} eq 'html') {
- $row->{$col}->{raw_data} = join "
", map { "$_" } @{ $rows{$col} };
- } else {
- $row->{$col}->{data} = join "\n", @{ $rows{$col} };
- }
+ $row->{$col}->{link} = [ map { "${callback}&accno=" . E($_) } @{ $rows{$col} } ];
}
+ map { $row->{$_}->{data} = \@{ $rows{$_} } if ($ref->{"${_}_accno"} ne "") } qw(debit_tax credit_tax);
+
$row->{reference}->{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'id=' . E($ref->{id}), 'callback');
my $row_set = [ $row ];