sub action_report_generator_export_as_pdf {
my ($self) = @_;
+
+ delete $::form->{action_report_generator_export_as_pdf};
+
if ($::form->{report_generator_pdf_options_set}) {
my $saved_form = save_form();
sub action_report_generator_export_as_csv {
my ($self) = @_;
+
+ delete $::form->{action_report_generator_export_as_csv};
+
if ($::form->{report_generator_csv_options_set}) {
$self->report_generator_do('CSV');
return;
croak "Parameter 'objects' must exist and be an array reference" if ref($params{objects}) ne 'ARRAY';
croak "Parameter 'report' must exist and be an instance of SL::ReportGenerator" if ref($params{report}) ne 'SL::ReportGenerator';
croak "Parameter 'options', if exists, must be a hash reference" if $params{options} && (ref($params{options}) ne 'HASH');
+ $params{layout} //= 1;
my $column_defs = $params{report}->{columns};
- my @columns = $params{report}->get_visible_columns;
+ my @columns = $params{report}->get_visible_columns('HTML');
for my $obj (@{ $params{objects} || [] }) {
my %data = map {
$params{report}->add_data(\%data);
}
- return $params{report}->generate_with_headers(%{ $params{options} || {}});
+ if ($params{layout}) {
+ return $params{report}->generate_with_headers(%{ $params{options} || {}});
+ } else {
+ my $html = $params{report}->generate_html_content(%{ $params{options} || {}});
+ $self->render(\$html , { layout => 0, process => 0 });
+ }
}
1;