X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FReportGenerator.pm;h=3ea62f9cc1f29563833a1850736e597bad201d53;hb=ca5da06dad2c1e16b148440042157e3628b4599e;hp=2b37e78f54bdae86d7da44fb9a2328c5a29fcfbd;hpb=7ecdb94715674d62df85fc746fe06db10c7ade9b;p=kivitendo-erp.git diff --git a/SL/ReportGenerator.pm b/SL/ReportGenerator.pm index 2b37e78f5..3ea62f9cc 100644 --- a/SL/ReportGenerator.pm +++ b/SL/ReportGenerator.pm @@ -23,6 +23,7 @@ sub new { $self->{options} = { 'std_column_visibility' => 0, 'output_format' => 'HTML', + 'controller_class ' => '', 'allow_pdf_export' => 1, 'allow_csv_export' => 1, 'html_template' => 'report_generator/html_report', @@ -72,6 +73,12 @@ sub set_columns { $column->{visible} = $self->{options}->{std_column_visibility} unless defined $column->{visible}; } + if( $::form->{report_generator_csv_options_for_import} ) { + foreach my $key (keys %{ $self->{columns} }) { + $self->{columns}{$key}{text} = $key; + } + } + $self->set_column_order(sort keys %{ $self->{columns} }); } @@ -203,14 +210,17 @@ sub set_custom_headers { sub get_attachment_basename { my $self = shift; my $filename = $self->{options}->{attachment_basename} || 'report'; + + # FIXME: this is bonkers. add a real sluggify method somewhere or import one. $filename =~ s|.*\\||; $filename =~ s|.*/||; + $filename =~ s| |_|g; return $filename; } sub generate_with_headers { - my $self = shift; + my ($self, %params) = @_; my $format = lc $self->{options}->{output_format}; my $form = $self->{form}; @@ -221,12 +231,13 @@ sub generate_with_headers { if ($format eq 'html') { my $title = $form->{title}; $form->{title} = $self->{title} if ($self->{title}); - $form->header(); + $form->header(no_layout => $params{no_layout}); $form->{title} = $title; print $self->generate_html_content(); } elsif ($format eq 'csv') { + # FIXME: don't do mini http in here my $filename = $self->get_attachment_basename(); print qq|content-type: text/csv\n|; print qq|content-disposition: attachment; filename=${filename}.csv\n\n|; @@ -389,6 +400,7 @@ sub prepare_html_content { 'EXPORT_VARIABLE_LIST' => join(' ', @{ $self->{export}->{variable_list} }), 'EXPORT_NEXTSUB' => $self->{export}->{nextsub}, 'DATA_PRESENT' => $self->{data_present}, + 'CONTROLLER_DISPATCH' => $opts->{controller_class}, }; return $variables; @@ -398,7 +410,9 @@ sub generate_html_content { my $self = shift; my $variables = $self->prepare_html_content(); - return $self->{form}->parse_html_template($self->{options}->{html_template}, $variables); + my $stuff = $self->{form}->parse_html_template($self->{options}->{html_template}, $variables); + $::lxdebug->dump(0, "stuff", $stuff); + return $stuff; } sub _cm2bp { @@ -428,7 +442,7 @@ sub generate_pdf_content { my $num_columns = scalar @visible_columns; my $num_header_rows = 1; - my $font_encoding = $main::dbcharset || 'ISO-8859-15'; + my $font_encoding = $::lx_office_conf{system}->{dbcharset} || 'ISO-8859-15'; foreach my $name (@visible_columns) { push @column_props, { 'justify' => $self->{columns}->{$name}->{align} eq 'right' ? 'right' : 'left' }; @@ -564,8 +578,8 @@ sub generate_pdf_content { my $font_height = $font_size + 2 * $padding; my $title_font_height = $font_size + 2 * $padding; - my $header_height = 2 * $title_font_height if ($opts->{title}); - my $footer_height = 2 * $font_height if ($pdfopts->{number}); + my $header_height = $opts->{title} ? 2 * $title_font_height : undef; + my $footer_height = $pdfopts->{number} ? 2 * $font_height : undef; my $top_text_height = 0; @@ -686,17 +700,26 @@ sub _print_content { } } -sub unescape_string { - my ($self, $text, $do_iconv) = @_; +sub _handle_quoting_and_encoding { + my ($self, $text, $do_unquote) = @_; - $text = $main::locale->unquote_special_chars('HTML', $text); - $text = $::locale->{iconv}->convert($text) if $do_iconv; + $text = $main::locale->unquote_special_chars('HTML', $text) if $do_unquote; + $text = Encode::encode('UTF-8', $text) if $::locale->is_utf8; return $text; } sub generate_csv_content { - my $self = shift; + my $self = shift; + my $stdout = ($::dispatcher->get_standard_filehandles)[1]; + + # Text::CSV_XS seems to downgrade to bytes already (see + # SL/FCGIFixes.pm). Therefore don't let FCGI do that again. + $::locale->with_raw_io($stdout, sub { $self->_generate_csv_content($stdout) }); +} + +sub _generate_csv_content { + my ($self, $stdout) = @_; my %valid_sep_chars = (';' => ';', ',' => ',', ':' => ':', 'TAB' => "\t"); my %valid_escape_chars = ('"' => 1, "'" => 1); @@ -718,13 +741,9 @@ sub generate_csv_content { my @visible_columns = $self->get_visible_columns('CSV'); - my $stdout; - open $stdout, '>-'; - binmode $stdout, ':encoding(utf8)' if $::locale->is_utf8; - if ($opts->{headers}) { if (!$self->{custom_headers}) { - $csv->print($stdout, [ map { $self->unescape_string($self->{columns}->{$_}->{text}, 1) } @visible_columns ]); + $csv->print($stdout, [ map { $self->_handle_quoting_and_encoding($self->{columns}->{$_}->{text}, 1) } @visible_columns ]); } else { foreach my $row (@{ $self->{custom_headers} }) { @@ -732,7 +751,7 @@ sub generate_csv_content { foreach my $col (@{ $row }) { my $num_output = ($col->{colspan} && ($col->{colspan} > 1)) ? $col->{colspan} : 1; - push @{ $fields }, ($self->unescape_string($col->{text})) x $num_output; + push @{ $fields }, ($self->_handle_quoting_and_encoding($col->{text}, 1)) x $num_output; } $csv->print($stdout, $fields); @@ -754,7 +773,7 @@ sub generate_csv_content { my $num_output = ($row->{$col}{colspan} && ($row->{$col}->{colspan} > 1)) ? $row->{$col}->{colspan} : 1; $skip_next = $num_output - 1; - push @data, join($eol, map { s/\r?\n/$eol/g; $_ } @{ $row->{$col}->{data} }); + push @data, join($eol, map { s/\r?\n/$eol/g; $self->_handle_quoting_and_encoding($_, 0) } @{ $row->{$col}->{data} }); push @data, ('') x $skip_next if ($skip_next); } @@ -763,6 +782,10 @@ sub generate_csv_content { } } +sub check_for_pdf_api { + return eval { require PDF::API2; 1; } ? 1 : 0; +} + 1; __END__ @@ -916,6 +939,12 @@ Used to determine if a button for CSV export should be displayed. Default is yes The template to be used for HTML reports. Default is 'report_generator/html_report'. +=item controller_class + +If this is used from a C based controller class, pass the +class name here and make sure C is +used in the controller. That way the exports stay functional. + =back =head2 PDF Options