X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FController%2FHelper%2FReportGenerator.pm;h=0cf376df4ed9d0ca56690e851ae8e2cfee83fafa;hb=a615812c73cf5b07005b4f56aae5aa1da8357ee9;hp=34553752905a2666e83b0b9c038f8b69db9a2e2a;hpb=c8bdac22de4fbd63c974d76a23fe3393cdc551ed;p=kivitendo-erp.git diff --git a/SL/Controller/Helper/ReportGenerator.pm b/SL/Controller/Helper/ReportGenerator.pm index 345537529..0cf376df4 100644 --- a/SL/Controller/Helper/ReportGenerator.pm +++ b/SL/Controller/Helper/ReportGenerator.pm @@ -1,16 +1,8 @@ -#===================================================================== -# LX-Office ERP -# Copyright (C) 2004 -# Based on SQL-Ledger Version 2.1.9 -# Web http://www.lx-office.org -###################################################################### -# -# Mixin for controllers to use ReportGenerator things -# -###################################################################### +package SL::Controller::Helper::ReportGenerator; use strict; +use Carp; use List::Util qw(max); use SL::Form; @@ -22,6 +14,7 @@ use Exporter 'import'; our @EXPORT = qw( action_report_generator_export_as_pdf action_report_generator_export_as_csv action_report_generator_back report_generator_do + report_generator_list_objects ); sub action_report_generator_export_as_pdf { @@ -71,14 +64,6 @@ sub action_report_generator_back { $_[0]->report_generator_do('HTML'); } -sub report_generator_set_default_sort { - my ($default_sortorder, $default_sortdir) = @_; - - $::form->{sort} ||= $default_sortorder; - $::form->{sortdir} = $default_sortdir unless (defined $::form->{sortdir}); - $::form->{sortdir} = $::form->{sortdir} ? 1 : 0; -} - sub report_generator_do { my ($self, $format) = @_; @@ -98,4 +83,163 @@ sub report_generator_do { $self->_run_action($nextsub); } +sub report_generator_list_objects { + my ($self, %params) = @_; + + 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; + + for my $obj (@{ $params{objects} || [] }) { + my %data = map { + my $def = $column_defs->{$_}; + $_ => { + raw_data => $def->{raw_data} ? $def->{raw_data}->($obj) : '', + data => $def->{sub} ? $def->{sub}->($obj) + : $obj->can($_) ? $obj->$_ + : $obj->{$_}, + link => $def->{obj_link} ? $def->{obj_link}->($obj) : '', + }, + } @columns; + + $params{data_callback}->(\%data) if $params{data_callback}; + + $params{report}->add_data(\%data); + } + + 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; +__END__ + +=pod + +=encoding utf8 + +=head1 NAME + +SL::Controller::Helper::ReportGenerator - Mixin for controllers that +use the L class + +=head1 SYNOPSIS + + package SL::Controller::Unicorn; + + use SL::Controller::Helper::ReportGenerator; + + sub action_list { + my ($self) = @_; + + # Set up the report generator instance. In this example this is + # hidden in "prepare_report". + my $report = $self->prepare_report; + + # Get objects from database. + my $orders = SL::DB::Manager::Order->get_all(...); + + # Let report generator create the output. + $self->report_generator_list_objects( + report => $report, + objects => $orders, + ); + } + +=head1 FUNCTIONS + +=over 4 + +=item C + +This is the controller action that's called from the one of the report +generator's 'export options' pages when the user clicks on the 'back' +button. + +It is never called from a controller manually and should just work +as-is. + +=item C + +This is the controller action that's called from the generated report +when the user wants to export as CSV. First the CSV export options are +shown and afterwards the CSV file is generated and offered for +download. + +It is never called from a controller manually and should just work +as-is. + +=item C + +This is the controller action that's called from the generated report +when the user wants to export as PDF. First the PDF export options are +shown and afterwards the PDF file is generated and offered for +download. + +It is never called from a controller manually and should just work +as-is. + +=item C + +This is a common function that's called from +L, +L and +L. It handles common options +and report generation after options have been set. + +It is never called from a controller manually and should just work +as-is. + +=item C + +Iterates over all objects, creates the actual rows of data, hands them +over to the report generator and lets the report generator create the +output. + +C<%params> can contain the following values: + +=over 2 + +=item C + +Mandatory. An instance of L that has been set up +already (column definitions, title, sort handling etc). + +=item C + +Mandatory. An array reference of RDBO models to output. + +=item C + +Optional. A callback handler (code reference) that gets called for +each row before it is passed to the report generator. The row passed +will be the handler's first and only argument (a hash reference). It's +the same hash reference that's passed to +L. + +=item C + +An optional hash reference that's passed verbatim to the function +L. + +=back + +=back + +=head1 BUGS + +Nothing here yet. + +=head1 AUTHOR + +Moritz Bunkus Em.bunkus@linet-services.deE + +=cut