Revision b30b38df
Von Bernd Bleßmann vor mehr als 2 Jahren hinzugefügt
| SL/ReportGenerator.pm | ||
|---|---|---|
|
use strict;
|
||
|
use SL::Helper::GlAttachments qw(append_gl_pdf_attachments);
|
||
|
use SL::Helper::CreatePDF qw(merge_pdfs);
|
||
|
use SL::JSON qw(to_json);
|
||
|
|
||
|
# Cause locales.pl to parse these files:
|
||
|
# parse_html_template('report_generator/html_report')
|
||
| ... | ... | |
|
'controller_class ' => '',
|
||
|
'allow_pdf_export' => 1,
|
||
|
'allow_csv_export' => 1,
|
||
|
'allow_chart_export' => 1,
|
||
|
'html_template' => 'report_generator/html_report',
|
||
|
'pdf_export' => {
|
||
|
'paper_size' => 'a4',
|
||
| ... | ... | |
|
'headers' => 1,
|
||
|
'encoding' => 'UTF-8',
|
||
|
},
|
||
|
'chart_export' => {
|
||
|
'assignment_x' => 'x',
|
||
|
'assignment_y' => 'y1',
|
||
|
},
|
||
|
};
|
||
|
$self->{export} = {
|
||
|
'nextsub' => '',
|
||
| ... | ... | |
|
$self->{options}->{pdf_export}->{$_} = $value->{$_} for keys %{ $value };
|
||
|
} elsif ($key eq 'csv_export') {
|
||
|
$self->{options}->{csv_export}->{$_} = $value->{$_} for keys %{ $value };
|
||
|
} elsif ($key eq 'chart_export') {
|
||
|
$self->{options}->{chart_export}->{$_} = $value->{$_} for keys %{ $value };
|
||
|
} else {
|
||
|
$self->{options}->{$key} = $value;
|
||
|
}
|
||
| ... | ... | |
|
$self->{options}->{$key} = $form->{$full_key} if (defined $form->{$full_key});
|
||
|
}
|
||
|
|
||
|
foreach my $format (qw(pdf csv)) {
|
||
|
foreach my $format (qw(pdf csv chart)) {
|
||
|
my $opts = $self->{options}->{"${format}_export"};
|
||
|
foreach my $key (keys %{ $opts }) {
|
||
|
my $full_key = "report_generator_${format}_options_${key}";
|
||
| ... | ... | |
|
} elsif ($format eq 'pdf') {
|
||
|
$self->generate_pdf_content();
|
||
|
|
||
|
} elsif ($format eq 'chart') {
|
||
|
$self->generate_chart_content();
|
||
|
|
||
|
} else {
|
||
|
$form->error('Incorrect usage -- unknown format (supported are HTML, CSV, PDF)');
|
||
|
$form->error('Incorrect usage -- unknown format (supported are HTML, CSV, PDF, Chart)');
|
||
|
}
|
||
|
}
|
||
|
|
||
| ... | ... | |
|
'RAW_BOTTOM_INFO_TEXT' => $opts->{raw_bottom_info_text},
|
||
|
'ALLOW_PDF_EXPORT' => $allow_pdf_export,
|
||
|
'ALLOW_CSV_EXPORT' => $opts->{allow_csv_export},
|
||
|
'SHOW_EXPORT_BUTTONS' => ($allow_pdf_export || $opts->{allow_csv_export}) && $self->{data_present},
|
||
|
'ALLOW_CHART_EXPORT' => $opts->{allow_chart_export},
|
||
|
'SHOW_EXPORT_BUTTONS' => ($allow_pdf_export || $opts->{allow_csv_export} || $opts->{allow_chart_export}) && $self->{data_present},
|
||
|
'HEADER_ROWS' => $header_rows,
|
||
|
'NUM_COLUMNS' => scalar @column_headers,
|
||
|
'ROWS' => \@rows,
|
||
| ... | ... | |
|
my ($self, $variables, %params) = @_;
|
||
|
|
||
|
my @actions;
|
||
|
foreach my $type (qw(pdf csv)) {
|
||
|
foreach my $type (qw(pdf csv chart)) {
|
||
|
next unless $variables->{"ALLOW_" . uc($type) . "_EXPORT"};
|
||
|
|
||
|
my $key = $variables->{CONTROLLER_DISPATCH} ? 'action' : 'report_generator_dispatch_to';
|
||
| ... | ... | |
|
$value = $variables->{CONTROLLER_DISPATCH} . "/${value}" if $variables->{CONTROLLER_DISPATCH};
|
||
|
|
||
|
push @actions, action => [
|
||
|
$type eq 'pdf' ? $::locale->text('PDF export') : $::locale->text('CSV export'),
|
||
|
$type eq 'pdf' ? $::locale->text('PDF export') : $type eq 'csv' ? $::locale->text('CSV export') : $::locale->text('Chart export'),
|
||
|
submit => [ '#report_generator_form', {(
|
||
|
$key => $value,
|
||
|
defined $params{action_bar_additional_submit_values}
|
||
| ... | ... | |
|
$params{action_bar} //= 1;
|
||
|
|
||
|
my $variables = $self->prepare_html_content(%params);
|
||
|
|
||
|
$self->setup_action_bar($variables, %params) if $params{action_bar};
|
||
|
|
||
|
my $stuff = $self->{form}->parse_html_template($self->{options}->{html_template}, $variables);
|
||
| ... | ... | |
|
}
|
||
|
}
|
||
|
|
||
|
sub generate_chart_content {
|
||
|
my ($self, %params) = @_;
|
||
|
|
||
|
$params{action_bar} //= 1;
|
||
|
|
||
|
my $opts = $self->{options};
|
||
|
|
||
|
my $assignment_x = $opts->{chart_export}->{assignment_x};
|
||
|
my $assignment_y = $opts->{chart_export}->{assignment_y};
|
||
|
|
||
|
my @data_x;
|
||
|
my @data_y;
|
||
|
foreach my $row_set (@{ $self->{data} }) {
|
||
|
next if ('ARRAY' ne ref $row_set);
|
||
|
foreach my $row (@{ $row_set }) {
|
||
|
my $x = $row->{$assignment_x}->{data}->[0];
|
||
|
my $y = $row->{$assignment_y}->{data}->[0];
|
||
|
if ($x) {
|
||
|
push @data_x, $x;
|
||
|
push @data_y, $y//0;
|
||
|
}
|
||
|
}
|
||
|
}
|
||
|
|
||
|
my $variables = {
|
||
|
'TITLE' => $opts->{title},
|
||
|
'TOP_INFO_TEXT' => $self->html_format($opts->{top_info_text}),
|
||
|
'RAW_TOP_INFO_TEXT' => $opts->{raw_top_info_text},
|
||
|
'BOTTOM_INFO_TEXT' => $self->html_format($opts->{bottom_info_text}),
|
||
|
'RAW_BOTTOM_INFO_TEXT' => $opts->{raw_bottom_info_text},
|
||
|
'EXPORT_VARIABLE_LIST' => join(' ', @{ $self->{export}->{variable_list} }),
|
||
|
'EXPORT_NEXTSUB' => $self->{export}->{nextsub},
|
||
|
'DATA_PRESENT' => $self->{data_present},
|
||
|
'CONTROLLER_DISPATCH' => $opts->{controller_class},
|
||
|
'TABLE_CLASS' => $opts->{table_class},
|
||
|
'SKIP_BUTTONS' => !!$params{action_bar},
|
||
|
};
|
||
|
|
||
|
$::request->layout->add_javascripts('chart.js', 'kivi.ChartReport.js');
|
||
|
|
||
|
$::form->header;
|
||
|
print $::form->parse_html_template('report_generator/chart_report',
|
||
|
{
|
||
|
data_x => to_json(\@data_x),
|
||
|
data_y => to_json(\@data_y),
|
||
|
label_x => $assignment_x,
|
||
|
label_y => $assignment_y,
|
||
|
%$variables,
|
||
|
}
|
||
|
);
|
||
|
}
|
||
|
|
||
|
sub check_for_pdf_api {
|
||
|
return eval { require PDF::API2; 1; } ? 1 : 0;
|
||
|
}
|
||
Auch abrufbar als: Unified diff
Reports als Chart exportieren können