1 package SL::ReportGenerator;
4 use List::Util qw(max);
6 #use PDF::API2; # these two eat up to .75s on startup. only load them if we actually need them
11 # Cause locales.pl to parse these files:
12 # parse_html_template('report_generator/html_report')
19 $self->{myconfig} = shift;
20 $self->{form} = shift;
24 'std_column_visibility' => 0,
25 'output_format' => 'HTML',
26 'allow_pdf_export' => 1,
27 'allow_csv_export' => 1,
28 'html_template' => 'report_generator/html_report',
31 'orientation' => 'landscape',
32 'font_name' => 'Verdana',
36 'margin_bottom' => 1.5,
37 'margin_right' => 1.5,
47 'eol_style' => 'Unix',
53 'variable_list' => [],
56 $self->{data_present} = 0;
60 $self->set_options(@_) if (@_);
69 $self->{columns} = \%columns;
71 foreach my $column (values %{ $self->{columns} }) {
72 $column->{visible} = $self->{options}->{std_column_visibility} unless defined $column->{visible};
75 $self->set_column_order(sort keys %{ $self->{columns} });
78 sub set_column_order {
81 $self->{column_order} = [ grep { !$seen{$_}++ } @_, sort keys %{ $self->{columns} } ];
84 sub set_sort_indicator {
87 $self->{options}->{sort_indicator_column} = shift;
88 $self->{options}->{sort_indicator_direction} = shift;
96 while (my $arg = shift) {
99 if ('ARRAY' eq ref $arg) {
102 } elsif ('HASH' eq ref $arg) {
106 $self->{form}->error('Incorrect usage -- expecting hash or array ref');
109 my @columns_with_default_alignment = grep { defined $self->{columns}->{$_}->{align} } keys %{ $self->{columns} };
111 foreach my $row (@{ $row_set }) {
112 foreach my $column (@columns_with_default_alignment) {
113 $row->{$column} ||= { };
114 $row->{$column}->{align} = $self->{columns}->{$column}->{align} unless (defined $row->{$column}->{align});
117 foreach my $field (qw(data link)) {
118 map { $row->{$_}->{$field} = [ $row->{$_}->{$field} ] if (ref $row->{$_}->{$field} ne 'ARRAY') } keys %{ $row };
122 push @{ $self->{data} }, $row_set;
123 $last_row_set = $row_set;
125 $self->{data_present} = 1;
128 return $last_row_set;
134 push @{ $self->{data} }, { 'type' => 'separator' };
141 push @{ $self->{data} }, $data;
148 $self->{data_present} = 0;
155 while (my ($key, $value) = each %options) {
156 if ($key eq 'pdf_export') {
157 map { $self->{options}->{pdf_export}->{$_} = $value->{$_} } keys %{ $value };
159 $self->{options}->{$key} = $value;
164 sub set_options_from_form {
167 my $form = $self->{form};
168 my $myconfig = $self->{myconfig};
170 foreach my $key (qw(output_format)) {
171 my $full_key = "report_generator_${key}";
172 $self->{options}->{$key} = $form->{$full_key} if (defined $form->{$full_key});
175 foreach my $format (qw(pdf csv)) {
176 my $opts = $self->{options}->{"${format}_export"};
177 foreach my $key (keys %{ $opts }) {
178 my $full_key = "report_generator_${format}_options_${key}";
179 $opts->{$key} = $key =~ /^margin/ ? $form->parse_amount($myconfig, $form->{$full_key}) : $form->{$full_key};
184 sub set_export_options {
189 'variable_list' => [ @_ ],
193 sub set_custom_headers {
197 $self->{custom_headers} = [ @_ ];
199 delete $self->{custom_headers};
203 sub get_attachment_basename {
205 my $filename = $self->{options}->{attachment_basename} || 'report';
206 $filename =~ s|.*\\||;
207 $filename =~ s|.*/||;
212 sub generate_with_headers {
214 my $format = lc $self->{options}->{output_format};
215 my $form = $self->{form};
217 if (!$self->{columns}) {
218 $form->error('Incorrect usage -- no columns specified');
221 if ($format eq 'html') {
222 my $title = $form->{title};
223 $form->{title} = $self->{title} if ($self->{title});
225 $form->{title} = $title;
227 print $self->generate_html_content();
229 } elsif ($format eq 'csv') {
230 my $filename = $self->get_attachment_basename();
231 print qq|content-type: text/csv\n|;
232 print qq|content-disposition: attachment; filename=${filename}.csv\n\n|;
233 $::locale->with_raw_io(\*STDOUT, sub {
234 $self->generate_csv_content();
237 } elsif ($format eq 'pdf') {
238 $self->generate_pdf_content();
241 $form->error('Incorrect usage -- unknown format (supported are HTML, CSV, PDF)');
245 sub get_visible_columns {
249 return grep { my $c = $self->{columns}->{$_}; $c && $c->{visible} && (($c->{visible} == 1) || ($c->{visible} =~ /\Q${format}\E/i)) } @{ $self->{column_order} };
256 $value = $main::locale->quote_special_chars('HTML', $value);
258 $value =~ s/\n/<br>/g;
263 sub prepare_html_content {
266 my ($column, $name, @column_headers);
268 my $opts = $self->{options};
269 my @visible_columns = $self->get_visible_columns('HTML');
271 foreach $name (@visible_columns) {
272 $column = $self->{columns}->{$name};
276 'align' => $column->{align},
277 'link' => $column->{link},
278 'text' => $column->{text},
279 'show_sort_indicator' => $name eq $opts->{sort_indicator_column},
280 'sort_indicator_direction' => $opts->{sort_indicator_direction},
283 push @column_headers, $header;
287 if ($self->{custom_headers}) {
288 $header_rows = $self->{custom_headers};
290 $header_rows = [ \@column_headers ];
293 my ($outer_idx, $inner_idx) = (0, 0);
297 foreach my $row_set (@{ $self->{data} }) {
298 if ('HASH' eq ref $row_set) {
299 if ($row_set->{type} eq 'separator') {
300 if (! scalar @rows) {
301 $next_border_top = 1;
303 $rows[-1]->{BORDER_BOTTOM} = 1;
311 'IS_COLSPAN_DATA' => $row_set->{type} eq 'colspan_data',
312 'NUM_COLUMNS' => scalar @visible_columns,
313 'BORDER_TOP' => $next_border_top,
314 'data' => $row_set->{data},
317 push @rows, $row_data;
319 $next_border_top = 0;
326 foreach my $row (@{ $row_set }) {
329 my $output_columns = [ ];
331 foreach my $col_name (@visible_columns) {
337 my $col = $row->{$col_name} || { data => [] };
338 $col->{CELL_ROWS} = [ ];
339 foreach my $i (0 .. scalar(@{ $col->{data} }) - 1) {
340 push @{ $col->{CELL_ROWS} }, {
341 'data' => $self->html_format($col->{data}->[$i]),
342 'link' => $col->{link}->[$i],
346 # Force at least a to be displayed so that browsers
347 # will format the table cell (e.g. borders etc).
348 if (!scalar @{ $col->{CELL_ROWS} }) {
349 push @{ $col->{CELL_ROWS} }, { 'data' => ' ' };
350 } elsif ((1 == scalar @{ $col->{CELL_ROWS} }) && (!defined $col->{CELL_ROWS}->[0]->{data} || ($col->{CELL_ROWS}->[0]->{data} eq ''))) {
351 $col->{CELL_ROWS}->[0]->{data} = ' ';
354 push @{ $output_columns }, $col;
355 $skip_next = $col->{colspan} ? $col->{colspan} - 1 : 0;
359 'COLUMNS' => $output_columns,
360 'outer_idx' => $outer_idx,
361 'outer_idx_odd' => $outer_idx % 2,
362 'inner_idx' => $inner_idx,
363 'BORDER_TOP' => $next_border_top,
366 push @rows, $row_data;
368 $next_border_top = 0;
372 my @export_variables = $self->{form}->flatten_variables(@{ $self->{export}->{variable_list} });
374 my $allow_pdf_export = $opts->{allow_pdf_export};
377 'TITLE' => $opts->{title},
378 'TOP_INFO_TEXT' => $self->html_format($opts->{top_info_text}),
379 'RAW_TOP_INFO_TEXT' => $opts->{raw_top_info_text},
380 'BOTTOM_INFO_TEXT' => $self->html_format($opts->{bottom_info_text}),
381 'RAW_BOTTOM_INFO_TEXT' => $opts->{raw_bottom_info_text},
382 'ALLOW_PDF_EXPORT' => $allow_pdf_export,
383 'ALLOW_CSV_EXPORT' => $opts->{allow_csv_export},
384 'SHOW_EXPORT_BUTTONS' => ($allow_pdf_export || $opts->{allow_csv_export}) && $self->{data_present},
385 'HEADER_ROWS' => $header_rows,
386 'NUM_COLUMNS' => scalar @column_headers,
388 'EXPORT_VARIABLES' => \@export_variables,
389 'EXPORT_VARIABLE_LIST' => join(' ', @{ $self->{export}->{variable_list} }),
390 'EXPORT_NEXTSUB' => $self->{export}->{nextsub},
391 'DATA_PRESENT' => $self->{data_present},
397 sub generate_html_content {
399 my $variables = $self->prepare_html_content();
401 return $self->{form}->parse_html_template($self->{options}->{html_template}, $variables);
407 return $_[0] * 72 / 2.54;
410 sub generate_pdf_content {
417 my $variables = $self->prepare_html_content();
418 my $form = $self->{form};
419 my $myconfig = $self->{myconfig};
421 my $opts = $self->{options};
422 my $pdfopts = $opts->{pdf_export};
424 my (@data, @column_props, @cell_props);
426 my ($data_row, $cell_props_row);
427 my @visible_columns = $self->get_visible_columns('PDF');
428 my $num_columns = scalar @visible_columns;
429 my $num_header_rows = 1;
431 my $font_encoding = $main::dbcharset || 'ISO-8859-15';
433 foreach my $name (@visible_columns) {
434 push @column_props, { 'justify' => $self->{columns}->{$name}->{align} eq 'right' ? 'right' : 'left' };
437 if (!$self->{custom_headers}) {
439 $cell_props_row = [];
440 push @data, $data_row;
441 push @cell_props, $cell_props_row;
443 foreach my $name (@visible_columns) {
444 my $column = $self->{columns}->{$name};
446 push @{ $data_row }, $column->{text};
447 push @{ $cell_props_row }, {};
451 $num_header_rows = scalar @{ $self->{custom_headers} };
453 foreach my $custom_header_row (@{ $self->{custom_headers} }) {
455 $cell_props_row = [];
456 push @data, $data_row;
457 push @cell_props, $cell_props_row;
459 foreach my $custom_header_col (@{ $custom_header_row }) {
460 push @{ $data_row }, $custom_header_col->{text};
462 my $num_output = ($custom_header_col->{colspan} * 1 > 1) ? $custom_header_col->{colspan} : 1;
463 if ($num_output > 1) {
464 push @{ $data_row }, ('') x ($num_output - 1);
465 push @{ $cell_props_row }, { 'colspan' => $num_output };
466 push @{ $cell_props_row }, ({ }) x ($num_output - 1);
469 push @{ $cell_props_row }, {};
475 foreach my $row_set (@{ $self->{data} }) {
476 if ('HASH' eq ref $row_set) {
477 if ($row_set->{type} eq 'colspan_data') {
478 push @data, [ $row_set->{data} ];
480 $cell_props_row = [];
481 push @cell_props, $cell_props_row;
483 foreach (0 .. $num_columns - 1) {
484 push @{ $cell_props_row }, { 'background_color' => '#666666',
485 'font_color' => '#ffffff',
486 'colspan' => $_ == 0 ? -1 : undef, };
492 foreach my $row (@{ $row_set }) {
494 $cell_props_row = [];
496 push @data, $data_row;
497 push @cell_props, $cell_props_row;
500 foreach my $col_name (@visible_columns) {
501 my $col = $row->{$col_name};
502 push @{ $data_row }, join("\n", @{ $col->{data} || [] });
504 $column_props[$col_idx]->{justify} = 'right' if ($col->{align} eq 'right');
506 my $cell_props = { };
507 push @{ $cell_props_row }, $cell_props;
509 if ($col->{colspan} && $col->{colspan} > 1) {
510 $cell_props->{colspan} = $col->{colspan};
518 foreach my $i (0 .. scalar(@data) - 1) {
519 my $aref = $data[$i];
520 my $num_columns_here = scalar @{ $aref };
522 if ($num_columns_here < $num_columns) {
523 push @{ $aref }, ('') x ($num_columns - $num_columns_here);
524 } elsif ($num_columns_here > $num_columns) {
525 splice @{ $aref }, $num_columns;
530 'a3' => [ 842, 1190 ],
531 'a4' => [ 595, 842 ],
532 'a5' => [ 420, 595 ],
533 'letter' => [ 612, 792 ],
534 'legal' => [ 612, 1008 ],
537 my %supported_fonts = map { $_ => 1 } qw(courier georgia helvetica times verdana);
539 my $paper_size = defined $pdfopts->{paper_size} && defined $papersizes->{lc $pdfopts->{paper_size}} ? lc $pdfopts->{paper_size} : 'a4';
540 my ($paper_width, $paper_height);
542 if (lc $pdfopts->{orientation} eq 'landscape') {
543 ($paper_width, $paper_height) = @{$papersizes->{$paper_size}}[1, 0];
545 ($paper_width, $paper_height) = @{$papersizes->{$paper_size}}[0, 1];
548 my $margin_top = _cm2bp($pdfopts->{margin_top} || 1.5);
549 my $margin_bottom = _cm2bp($pdfopts->{margin_bottom} || 1.5);
550 my $margin_left = _cm2bp($pdfopts->{margin_left} || 1.5);
551 my $margin_right = _cm2bp($pdfopts->{margin_right} || 1.5);
553 my $table = PDF::Table->new();
554 my $pdf = PDF::API2->new();
555 my $page = $pdf->page();
557 $pdf->mediabox($paper_width, $paper_height);
559 my $font = $pdf->corefont(defined $pdfopts->{font_name} && $supported_fonts{lc $pdfopts->{font_name}} ? ucfirst $pdfopts->{font_name} : 'Verdana',
560 '-encoding' => $font_encoding);
561 my $font_size = $pdfopts->{font_size} || 7;
562 my $title_font_size = $font_size + 1;
564 my $font_height = $font_size + 2 * $padding;
565 my $title_font_height = $font_size + 2 * $padding;
567 my $header_height = 2 * $title_font_height if ($opts->{title});
568 my $footer_height = 2 * $font_height if ($pdfopts->{number});
570 my $top_text_height = 0;
572 if ($self->{options}->{top_info_text}) {
573 my $top_text = $self->{options}->{top_info_text};
574 $top_text =~ s/\r//g;
575 $top_text =~ s/\n+$//;
577 my @lines = split m/\n/, $top_text;
578 $top_text_height = $font_height * scalar @lines;
580 foreach my $line_no (0 .. scalar(@lines) - 1) {
581 my $y_pos = $paper_height - $margin_top - $header_height - $line_no * $font_height;
582 my $text_obj = $page->text();
584 $text_obj->font($font, $font_size);
585 $text_obj->translate($margin_left, $y_pos);
586 $text_obj->text($lines[$line_no]);
594 'w' => $paper_width - $margin_left - $margin_right,
595 'start_y' => $paper_height - $margin_top - $header_height - $top_text_height,
596 'next_y' => $paper_height - $margin_top - $header_height,
597 'start_h' => $paper_height - $margin_top - $margin_bottom - $header_height - $footer_height - $top_text_height,
598 'next_h' => $paper_height - $margin_top - $margin_bottom - $header_height - $footer_height,
600 'background_color_odd' => '#ffffff',
601 'background_color_even' => '#eeeeee',
603 'font_size' => $font_size,
604 'font_color' => '#000000',
605 'num_header_rows' => $num_header_rows,
607 'bg_color' => '#ffffff',
609 'font_color' => '#000000',
611 'column_props' => \@column_props,
612 'cell_props' => \@cell_props,
613 'max_word_length' => 60,
617 foreach my $page_num (1..$pdf->pages()) {
618 my $curpage = $pdf->openpage($page_num);
620 if ($pdfopts->{number}) {
621 my $label = $main::locale->text("Page #1/#2", $page_num, $pdf->pages());
622 my $text_obj = $curpage->text();
624 $text_obj->font($font, $font_size);
625 $text_obj->translate(($paper_width - $margin_left - $margin_right) / 2 + $margin_left - $text_obj->advancewidth($label) / 2, $margin_bottom);
626 $text_obj->text($label);
629 if ($opts->{title}) {
630 my $title = $opts->{title};
631 my $text_obj = $curpage->text();
633 $text_obj->font($font, $title_font_size);
634 $text_obj->translate(($paper_width - $margin_left - $margin_right) / 2 + $margin_left - $text_obj->advancewidth($title) / 2,
635 $paper_height - $margin_top);
636 $text_obj->text($title, '-underline' => 1);
640 my $content = $pdf->stringify();
643 if ($pdfopts->{print} && $pdfopts->{printer_id}) {
644 $form->{printer_id} = $pdfopts->{printer_id};
645 $form->get_printer_code($myconfig);
646 $printer_command = $form->{printer_command};
649 if ($printer_command) {
650 $self->_print_content('printer_command' => $printer_command,
651 'content' => $content,
652 'copies' => $pdfopts->{copies});
653 $form->{report_generator_printed} = 1;
656 my $filename = $self->get_attachment_basename();
658 print qq|content-type: application/pdf\n|;
659 print qq|content-disposition: attachment; filename=${filename}.pdf\n\n|;
661 $::locale->with_raw_io(\*STDOUT, sub {
667 sub verify_paper_size {
669 my $requested_paper_size = lc shift;
670 my $default_paper_size = shift;
672 my %allowed_paper_sizes = map { $_ => 1 } qw(a3 a4 a5 letter legal);
674 return $allowed_paper_sizes{$requested_paper_size} ? $requested_paper_size : $default_paper_size;
681 foreach my $i (1 .. max $params{copies}, 1) {
682 my $printer = IO::File->new("| $params{printer_command}");
683 $main::form->error($main::locale->text('Could not spawn the printer command.')) if (!$printer);
684 $printer->print($params{content});
689 sub unescape_string {
690 my ($self, $text, $do_iconv) = @_;
692 $text = $main::locale->unquote_special_chars('HTML', $text);
693 $text = $::locale->{iconv}->convert($text) if $do_iconv;
698 sub generate_csv_content {
701 my %valid_sep_chars = (';' => ';', ',' => ',', ':' => ':', 'TAB' => "\t");
702 my %valid_escape_chars = ('"' => 1, "'" => 1);
703 my %valid_quote_chars = ('"' => 1, "'" => 1);
705 my $opts = $self->{options}->{csv_export};
706 my $eol = $opts->{eol_style} eq 'DOS' ? "\r\n" : "\n";
707 my $sep_char = $valid_sep_chars{$opts->{sep_char}} ? $valid_sep_chars{$opts->{sep_char}} : ';';
708 my $escape_char = $valid_escape_chars{$opts->{escape_char}} ? $opts->{escape_char} : '"';
709 my $quote_char = $valid_quote_chars{$opts->{quote_char}} ? $opts->{quote_char} : '"';
711 $escape_char = $quote_char if ($opts->{escape_char} eq 'QUOTE_CHAR');
713 my $csv = Text::CSV_XS->new({ 'binary' => 1,
714 'sep_char' => $sep_char,
715 'escape_char' => $escape_char,
716 'quote_char' => $quote_char,
719 my @visible_columns = $self->get_visible_columns('CSV');
723 binmode $stdout, ':encoding(utf8)' if $::locale->is_utf8;
725 if ($opts->{headers}) {
726 if (!$self->{custom_headers}) {
727 $csv->print($stdout, [ map { $self->unescape_string($self->{columns}->{$_}->{text}, 1) } @visible_columns ]);
730 foreach my $row (@{ $self->{custom_headers} }) {
733 foreach my $col (@{ $row }) {
734 my $num_output = ($col->{colspan} && ($col->{colspan} > 1)) ? $col->{colspan} : 1;
735 push @{ $fields }, ($self->unescape_string($col->{text})) x $num_output;
738 $csv->print($stdout, $fields);
743 foreach my $row_set (@{ $self->{data} }) {
744 next if ('ARRAY' ne ref $row_set);
745 foreach my $row (@{ $row_set }) {
748 foreach my $col (@visible_columns) {
754 my $num_output = ($row->{$col}{colspan} && ($row->{$col}->{colspan} > 1)) ? $row->{$col}->{colspan} : 1;
755 $skip_next = $num_output - 1;
757 push @data, join($eol, map { s/\r?\n/$eol/g; $_ } @{ $row->{$col}->{data} });
758 push @data, ('') x $skip_next if ($skip_next);
761 $csv->print($stdout, \@data);
772 SL::ReportGenerator.pm: the Lx-Office way of getting data in shape
776 my $report = SL::ReportGenerator->new(\%myconfig, $form);
777 $report->set_options(%options); # optional
778 $report->set_columns(%column_defs);
779 $report->set_sort_indicator($column, $direction); # optional
780 $report->add_data($row1, $row2, @more_rows);
781 $report->generate_with_headers();
783 This creates a report object, sets a few columns, adds some data and generates a standard report.
784 Sorting of columns will be alphabetic, and options will be set to their defaults.
785 The report will be printed including table headers, html headers and http headers.
789 Imagine the following scenario:
790 There's a simple form, which loads some data from the database, and needs to print it out. You write a template for it.
791 Then there may be more than one line. You add a loop in the template.
792 Then there are some options made by the user, such as hidden columns. You add more to the template.
793 Then it lacks usability. You want it to be able to sort the data. You add code for that.
794 Then there are too many results, you need pagination, you want to print or export that data..... and so on.
796 The ReportGenerator class was designed because this exact scenario happened about half a dozen times in Lx-Office.
797 It's purpose is to manage all those formating, culling, sorting, and templating.
798 Which makes it almost as complicated to use as doing the work for yourself.
804 =item new \%myconfig,$form,%options
806 Creates a new ReportGenerator object, sets all given options, and returns it.
808 =item set_columns %columns
810 Sets the columns available to this report.
812 =item set_column_order @columns
814 Sets the order of columns. Any columns not present here are appended in alphabetic order.
816 =item set_sort_indicator $column,$direction
818 Sets sorting ot the table by specifying a column and a direction, where the direction will be evaluated to ascending if true.
819 Note that this is only for displaying. The data has to be presented already sorted.
821 =item add_data \@data
823 =item add_data \%data
825 Adds data to the report. A given hash_ref is interpreted as a single line of data, every array_ref as a collection of lines.
826 Every line will be expected to be in a kay => value format. Note that the rows have to be already sorted.
827 ReportGenerator does only colum sorting on its own, and provides links to sorting and visual cue as to which column was sorted by.
831 Adds a separator line to the report.
833 =item add_control \%data
835 Adds a control element to the data. Control elements are an experimental feature to add functionality to a report the regular data cannot.
836 Every control element needs to set IS_CONTROL_DATA, in order to be recongnized by the template.
837 Currently the only control element is a colspan element, which can be used as a mini header further down the report.
841 Deletes all data filled into the report, but keeps options set.
843 =item set_options %options
845 Sets options. For an incomplete list of options, see section configuration.
847 =item set_options_from_form
849 Tries to import options from the $form object given at creation
851 =item set_export_options $next_sub,@variable_list
853 Sets next_sub and additional variables needed for export.
855 =item get_attachment_basename
857 Returns the set attachment_basename option, or 'report' if nothing was set. See configuration for the option.
859 =item generate_with_headers
861 Parses the report, adds headers and prints it out. Headers depend on the option 'output_format',
862 for example 'HTML' will add proper table headers, html headers and http headers. See configuration for this option.
864 =item get_visible_columns $format
866 Returns a list of columns that will be visible in the report after considering all options or match the given format.
868 =item html_format $value
870 Escapes HTML characters in $value and substitutes newlines with '<br>'. Returns the escaped $value.
872 =item prepare_html_content $column,$name,@column_headers
874 Parses the data, and sets internal data needed for certain output format. Must be called once before the template is invoked.
875 Should not be called extrenally, since all render and generate functions invoke it anyway.
877 =item generate_html_content
879 The html generation function. Is invoked by generate_with_headers.
881 =item generate_pdf_content
883 The PDF generation function. It is invoked by generate_with_headers and renders the PDF with the PDF::API2 library.
885 =item generate_csv_content
887 The CSV generation function. Uses XS_CSV to parse the information into csv.
893 These are known options and their defaults. Options for pdf export and csv export need to be set as a hashref inside the export option.
895 =head2 General Options
899 =item std_column_visibility
901 Standard column visibility. Used if no visibility is set. Use this to save the trouble of enabling every column. Default is no.
905 Output format. Used by generate_with_headers to determine the format. Supported options are HTML, CSV, and PDF. Default is HTML.
907 =item allow_pdf_export
909 Used to determine if a button for PDF export should be displayed. Default is yes.
911 =item allow_csv_export
913 Used to determine if a button for CSV export should be displayed. Default is yes.
917 The template to be used for HTML reports. Default is 'report_generator/html_report'.
927 Paper size. Default is a4. Supported paper sizes are a3, a4, a5, letter and legal.
929 =item orientation (landscape)
931 Landscape or portrait. Default is landscape.
935 Default is Verdana. Supported font names are Courier, Georgia, Helvetica, Times and Verdana. This option only affects the rendering with PDF::API2.
939 Default is 7. This option only affects the rendering with PDF::API2.
949 The paper margins in cm. They all default to 1.5.
953 Set to a true value if the pages should be numbered. Default is 1.
957 If set then the resulting PDF will be output to a printer. If not it will be downloaded by the user. Default is no.
975 Character to enclose entries. Default is double quote (").
979 Character to separate entries. Default is semicolon (;).
983 Character to escape the quote_char. Default is double quote (").
987 End of line style. Default is Unix.
991 Include headers? Default is yes.
999 =head1 MODULE AUTHORS
1001 Moritz Bunkus E<lt>mbunkus@linet-services.deE<gt>
1003 L<http://linet-services.de>