1 package SL::ReportGenerator;
5 use List::Util qw(max);
7 #use PDF::API2; # these two eat up to .75s on startup. only load them if we actually need them
14 # Cause locales.pl to parse these files:
15 # parse_html_template('report_generator/html_report')
22 $self->{myconfig} = shift;
23 $self->{form} = shift;
27 'std_column_visibility' => 0,
28 'output_format' => 'HTML',
29 'allow_pdf_export' => 1,
30 'allow_csv_export' => 1,
31 'html_template' => 'report_generator/html_report',
34 'orientation' => 'landscape',
35 'font_name' => 'Verdana',
39 'margin_bottom' => 1.5,
40 'margin_right' => 1.5,
50 'eol_style' => 'Unix',
56 'variable_list' => [],
59 $self->{data_present} = 0;
63 $self->set_options(@_) if (@_);
72 $self->{columns} = \%columns;
74 foreach my $column (values %{ $self->{columns} }) {
75 $column->{visible} = $self->{options}->{std_column_visibility} unless defined $column->{visible};
78 $self->set_column_order(sort keys %{ $self->{columns} });
81 sub set_column_order {
84 $self->{column_order} = [ grep { !$seen{$_}++ } @_, sort keys %{ $self->{columns} } ];
87 sub set_sort_indicator {
90 $self->{options}->{sort_indicator_column} = shift;
91 $self->{options}->{sort_indicator_direction} = shift;
99 while (my $arg = shift) {
102 if ('ARRAY' eq ref $arg) {
105 } elsif ('HASH' eq ref $arg) {
109 $self->{form}->error('Incorrect usage -- expecting hash or array ref');
112 my @columns_with_default_alignment = grep { defined $self->{columns}->{$_}->{align} } keys %{ $self->{columns} };
114 foreach my $row (@{ $row_set }) {
115 foreach my $column (@columns_with_default_alignment) {
116 $row->{$column} ||= { };
117 $row->{$column}->{align} = $self->{columns}->{$column}->{align} unless (defined $row->{$column}->{align});
120 foreach my $field (qw(data link)) {
121 map { $row->{$_}->{$field} = [ $row->{$_}->{$field} ] if (ref $row->{$_}->{$field} ne 'ARRAY') } keys %{ $row };
125 push @{ $self->{data} }, $row_set;
126 $last_row_set = $row_set;
128 $self->{data_present} = 1;
131 return $last_row_set;
137 push @{ $self->{data} }, { 'type' => 'separator' };
144 push @{ $self->{data} }, $data;
151 $self->{data_present} = 0;
158 while (my ($key, $value) = each %options) {
159 if ($key eq 'pdf_export') {
160 map { $self->{options}->{pdf_export}->{$_} = $value->{$_} } keys %{ $value };
162 $self->{options}->{$key} = $value;
167 sub set_options_from_form {
170 my $form = $self->{form};
171 my $myconfig = $self->{myconfig};
173 foreach my $key (qw(output_format)) {
174 my $full_key = "report_generator_${key}";
175 $self->{options}->{$key} = $form->{$full_key} if (defined $form->{$full_key});
178 foreach my $format (qw(pdf csv)) {
179 my $opts = $self->{options}->{"${format}_export"};
180 foreach my $key (keys %{ $opts }) {
181 my $full_key = "report_generator_${format}_options_${key}";
182 $opts->{$key} = $key =~ /^margin/ ? $form->parse_amount($myconfig, $form->{$full_key}) : $form->{$full_key};
187 sub set_export_options {
192 'variable_list' => [ @_ ],
196 sub set_custom_headers {
200 $self->{custom_headers} = [ @_ ];
202 delete $self->{custom_headers};
206 sub get_attachment_basename {
208 my $filename = $self->{options}->{attachment_basename} || 'report';
209 $filename =~ s|.*\\||;
210 $filename =~ s|.*/||;
215 sub generate_with_headers {
217 my $format = lc $self->{options}->{output_format};
218 my $form = $self->{form};
220 if (!$self->{columns}) {
221 $form->error('Incorrect usage -- no columns specified');
224 if ($format eq 'html') {
225 my $title = $form->{title};
226 $form->{title} = $self->{title} if ($self->{title});
228 $form->{title} = $title;
230 print $self->generate_html_content();
232 } elsif ($format eq 'csv') {
233 my $filename = $self->get_attachment_basename();
234 print qq|content-type: text/csv\n|;
235 print qq|content-disposition: attachment; filename=${filename}.csv\n\n|;
236 $::locale->with_raw_io(\*STDOUT, sub {
237 $self->generate_csv_content();
240 } elsif ($format eq 'pdf') {
241 $self->generate_pdf_content();
244 $form->error('Incorrect usage -- unknown format (supported are HTML, CSV, PDF)');
248 sub get_visible_columns {
252 return grep { my $c = $self->{columns}->{$_}; $c && $c->{visible} && (($c->{visible} == 1) || ($c->{visible} =~ /\Q${format}\E/i)) } @{ $self->{column_order} };
259 $value = $main::locale->quote_special_chars('HTML', $value);
261 $value =~ s/\n/<br>/g;
266 sub prepare_html_content {
269 my ($column, $name, @column_headers);
271 my $opts = $self->{options};
272 my @visible_columns = $self->get_visible_columns('HTML');
274 foreach $name (@visible_columns) {
275 $column = $self->{columns}->{$name};
279 'align' => $column->{align},
280 'link' => $column->{link},
281 'text' => $column->{text},
282 'show_sort_indicator' => $name eq $opts->{sort_indicator_column},
283 'sort_indicator_direction' => $opts->{sort_indicator_direction},
286 push @column_headers, $header;
290 if ($self->{custom_headers}) {
291 $header_rows = $self->{custom_headers};
293 $header_rows = [ \@column_headers ];
296 my ($outer_idx, $inner_idx) = (0, 0);
300 foreach my $row_set (@{ $self->{data} }) {
301 if ('HASH' eq ref $row_set) {
302 if ($row_set->{type} eq 'separator') {
303 if (! scalar @rows) {
304 $next_border_top = 1;
306 $rows[-1]->{BORDER_BOTTOM} = 1;
314 'IS_COLSPAN_DATA' => $row_set->{type} eq 'colspan_data',
315 'NUM_COLUMNS' => scalar @visible_columns,
316 'BORDER_TOP' => $next_border_top,
317 'data' => $row_set->{data},
320 push @rows, $row_data;
322 $next_border_top = 0;
329 foreach my $row (@{ $row_set }) {
332 my $output_columns = [ ];
334 foreach my $col_name (@visible_columns) {
340 my $col = $row->{$col_name} || { data => [] };
341 $col->{CELL_ROWS} = [ ];
342 foreach my $i (0 .. scalar(@{ $col->{data} }) - 1) {
343 push @{ $col->{CELL_ROWS} }, {
344 'data' => $self->html_format($col->{data}->[$i]),
345 'link' => $col->{link}->[$i],
349 # Force at least a to be displayed so that browsers
350 # will format the table cell (e.g. borders etc).
351 if (!scalar @{ $col->{CELL_ROWS} }) {
352 push @{ $col->{CELL_ROWS} }, { 'data' => ' ' };
353 } elsif ((1 == scalar @{ $col->{CELL_ROWS} }) && (!defined $col->{CELL_ROWS}->[0]->{data} || ($col->{CELL_ROWS}->[0]->{data} eq ''))) {
354 $col->{CELL_ROWS}->[0]->{data} = ' ';
357 push @{ $output_columns }, $col;
358 $skip_next = $col->{colspan} ? $col->{colspan} - 1 : 0;
362 'COLUMNS' => $output_columns,
363 'outer_idx' => $outer_idx,
364 'outer_idx_odd' => $outer_idx % 2,
365 'inner_idx' => $inner_idx,
366 'BORDER_TOP' => $next_border_top,
369 push @rows, $row_data;
371 $next_border_top = 0;
375 my @export_variables = $self->{form}->flatten_variables(@{ $self->{export}->{variable_list} });
377 my $allow_pdf_export = $opts->{allow_pdf_export};
380 'TITLE' => $opts->{title},
381 'TOP_INFO_TEXT' => $self->html_format($opts->{top_info_text}),
382 'RAW_TOP_INFO_TEXT' => $opts->{raw_top_info_text},
383 'BOTTOM_INFO_TEXT' => $self->html_format($opts->{bottom_info_text}),
384 'RAW_BOTTOM_INFO_TEXT' => $opts->{raw_bottom_info_text},
385 'ALLOW_PDF_EXPORT' => $allow_pdf_export,
386 'ALLOW_CSV_EXPORT' => $opts->{allow_csv_export},
387 'SHOW_EXPORT_BUTTONS' => ($allow_pdf_export || $opts->{allow_csv_export}) && $self->{data_present},
388 'HEADER_ROWS' => $header_rows,
389 'NUM_COLUMNS' => scalar @column_headers,
391 'EXPORT_VARIABLES' => \@export_variables,
392 'EXPORT_VARIABLE_LIST' => join(' ', @{ $self->{export}->{variable_list} }),
393 'EXPORT_NEXTSUB' => $self->{export}->{nextsub},
394 'DATA_PRESENT' => $self->{data_present},
400 sub generate_html_content {
402 my $variables = $self->prepare_html_content();
404 return $self->{form}->parse_html_template($self->{options}->{html_template}, $variables);
410 return $_[0] * 72 / 2.54;
413 sub generate_pdf_content {
420 my $variables = $self->prepare_html_content();
421 my $form = $self->{form};
422 my $myconfig = $self->{myconfig};
424 my $opts = $self->{options};
425 my $pdfopts = $opts->{pdf_export};
427 my (@data, @column_props, @cell_props);
429 my ($data_row, $cell_props_row);
430 my @visible_columns = $self->get_visible_columns('HTML');
431 my $num_columns = scalar @visible_columns;
432 my $num_header_rows = 1;
434 my $font_encoding = $main::dbcharset || 'ISO-8859-15';
436 foreach my $name (@visible_columns) {
437 push @column_props, { 'justify' => $self->{columns}->{$name}->{align} eq 'right' ? 'right' : 'left' };
440 if (!$self->{custom_headers}) {
442 $cell_props_row = [];
443 push @data, $data_row;
444 push @cell_props, $cell_props_row;
446 foreach my $name (@visible_columns) {
447 my $column = $self->{columns}->{$name};
449 push @{ $data_row }, $column->{text};
450 push @{ $cell_props_row }, {};
454 $num_header_rows = scalar @{ $self->{custom_headers} };
456 foreach my $custom_header_row (@{ $self->{custom_headers} }) {
458 $cell_props_row = [];
459 push @data, $data_row;
460 push @cell_props, $cell_props_row;
462 foreach my $custom_header_col (@{ $custom_header_row }) {
463 push @{ $data_row }, $custom_header_col->{text};
465 my $num_output = ($custom_header_col->{colspan} * 1 > 1) ? $custom_header_col->{colspan} : 1;
466 if ($num_output > 1) {
467 push @{ $data_row }, ('') x ($num_output - 1);
468 push @{ $cell_props_row }, { 'colspan' => $num_output };
469 push @{ $cell_props_row }, ({ }) x ($num_output - 1);
472 push @{ $cell_props_row }, {};
478 foreach my $row_set (@{ $self->{data} }) {
479 if ('HASH' eq ref $row_set) {
480 if ($row_set->{type} eq 'colspan_data') {
481 push @data, [ $row_set->{data} ];
483 $cell_props_row = [];
484 push @cell_props, $cell_props_row;
486 foreach (0 .. $num_columns - 1) {
487 push @{ $cell_props_row }, { 'background_color' => '#666666',
488 'font_color' => '#ffffff',
489 'colspan' => $_ == 0 ? -1 : undef, };
495 foreach my $row (@{ $row_set }) {
497 $cell_props_row = [];
499 push @data, $data_row;
500 push @cell_props, $cell_props_row;
503 foreach my $col_name (@visible_columns) {
504 my $col = $row->{$col_name};
505 push @{ $data_row }, join("\n", @{ $col->{data} || [] });
507 $column_props[$col_idx]->{justify} = 'right' if ($col->{align} eq 'right');
509 my $cell_props = { };
510 push @{ $cell_props_row }, $cell_props;
512 if ($col->{colspan} && $col->{colspan} > 1) {
513 $cell_props->{colspan} = $col->{colspan};
521 foreach my $i (0 .. scalar(@data) - 1) {
522 my $aref = $data[$i];
523 my $num_columns_here = scalar @{ $aref };
525 if ($num_columns_here < $num_columns) {
526 push @{ $aref }, ('') x ($num_columns - $num_columns_here);
527 } elsif ($num_columns_here > $num_columns) {
528 splice @{ $aref }, $num_columns;
533 'a3' => [ 842, 1190 ],
534 'a4' => [ 595, 842 ],
535 'a5' => [ 420, 595 ],
536 'letter' => [ 612, 792 ],
537 'legal' => [ 612, 1008 ],
540 my %supported_fonts = map { $_ => 1 } qw(courier georgia helvetica times verdana);
542 my $paper_size = defined $pdfopts->{paper_size} && defined $papersizes->{lc $pdfopts->{paper_size}} ? lc $pdfopts->{paper_size} : 'a4';
543 my ($paper_width, $paper_height);
545 if (lc $pdfopts->{orientation} eq 'landscape') {
546 ($paper_width, $paper_height) = @{$papersizes->{$paper_size}}[1, 0];
548 ($paper_width, $paper_height) = @{$papersizes->{$paper_size}}[0, 1];
551 my $margin_top = _cm2bp($pdfopts->{margin_top} || 1.5);
552 my $margin_bottom = _cm2bp($pdfopts->{margin_bottom} || 1.5);
553 my $margin_left = _cm2bp($pdfopts->{margin_left} || 1.5);
554 my $margin_right = _cm2bp($pdfopts->{margin_right} || 1.5);
556 my $table = PDF::Table->new();
557 my $pdf = PDF::API2->new();
558 my $page = $pdf->page();
560 $pdf->mediabox($paper_width, $paper_height);
562 my $font = $pdf->corefont(defined $pdfopts->{font_name} && $supported_fonts{lc $pdfopts->{font_name}} ? ucfirst $pdfopts->{font_name} : 'Verdana',
563 '-encoding' => $font_encoding);
564 my $font_size = $pdfopts->{font_size} || 7;
565 my $title_font_size = $font_size + 1;
567 my $font_height = $font_size + 2 * $padding;
568 my $title_font_height = $font_size + 2 * $padding;
570 my $header_height = 2 * $title_font_height if ($opts->{title});
571 my $footer_height = 2 * $font_height if ($pdfopts->{number});
573 my $top_text_height = 0;
575 if ($self->{options}->{top_info_text}) {
576 my $top_text = $self->{options}->{top_info_text};
577 $top_text =~ s/\r//g;
578 $top_text =~ s/\n+$//;
580 my @lines = split m/\n/, $top_text;
581 $top_text_height = $font_height * scalar @lines;
583 foreach my $line_no (0 .. scalar(@lines) - 1) {
584 my $y_pos = $paper_height - $margin_top - $header_height - $line_no * $font_height;
585 my $text_obj = $page->text();
587 $text_obj->font($font, $font_size);
588 $text_obj->translate($margin_left, $y_pos);
589 $text_obj->text($lines[$line_no]);
597 'w' => $paper_width - $margin_left - $margin_right,
598 'start_y' => $paper_height - $margin_top - $header_height - $top_text_height,
599 'next_y' => $paper_height - $margin_top - $header_height,
600 'start_h' => $paper_height - $margin_top - $margin_bottom - $header_height - $footer_height - $top_text_height,
601 'next_h' => $paper_height - $margin_top - $margin_bottom - $header_height - $footer_height,
603 'background_color_odd' => '#ffffff',
604 'background_color_even' => '#eeeeee',
606 'font_size' => $font_size,
607 'font_color' => '#000000',
608 'num_header_rows' => $num_header_rows,
610 'bg_color' => '#ffffff',
612 'font_color' => '#000000',
614 'column_props' => \@column_props,
615 'cell_props' => \@cell_props,
616 'max_word_length' => 60,
620 foreach my $page_num (1..$pdf->pages()) {
621 my $curpage = $pdf->openpage($page_num);
623 if ($pdfopts->{number}) {
624 my $label = $main::locale->text("Page #1/#2", $page_num, $pdf->pages());
625 my $text_obj = $curpage->text();
627 $text_obj->font($font, $font_size);
628 $text_obj->translate(($paper_width - $margin_left - $margin_right) / 2 + $margin_left - $text_obj->advancewidth($label) / 2, $margin_bottom);
629 $text_obj->text($label);
632 if ($opts->{title}) {
633 my $title = $opts->{title};
634 my $text_obj = $curpage->text();
636 $text_obj->font($font, $title_font_size);
637 $text_obj->translate(($paper_width - $margin_left - $margin_right) / 2 + $margin_left - $text_obj->advancewidth($title) / 2,
638 $paper_height - $margin_top);
639 $text_obj->text($title, '-underline' => 1);
643 my $content = $pdf->stringify();
646 if ($pdfopts->{print} && $pdfopts->{printer_id}) {
647 $form->{printer_id} = $pdfopts->{printer_id};
648 $form->get_printer_code($myconfig);
649 $printer_command = $form->{printer_command};
652 if ($printer_command) {
653 $self->_print_content('printer_command' => $printer_command,
654 'content' => $content,
655 'copies' => $pdfopts->{copies});
656 $form->{report_generator_printed} = 1;
659 my $filename = $self->get_attachment_basename();
661 print qq|content-type: application/pdf\n|;
662 print qq|content-disposition: attachment; filename=${filename}.pdf\n\n|;
664 $::locale->with_raw_io(\*STDOUT, sub {
670 sub verify_paper_size {
672 my $requested_paper_size = lc shift;
673 my $default_paper_size = shift;
675 my %allowed_paper_sizes = map { $_ => 1 } qw(a3 a4 a5 letter legal);
677 return $allowed_paper_sizes{$requested_paper_size} ? $requested_paper_size : $default_paper_size;
684 foreach my $i (1 .. max $params{copies}, 1) {
685 my $printer = IO::File->new("| $params{printer_command}");
686 $main::form->error($main::locale->text('Could not spawn the printer command.')) if (!$printer);
687 $printer->print($params{content});
692 sub unescape_string {
696 $text = $main::locale->unquote_special_chars('HTML', $text);
697 $text = $::locale->{iconv}->convert($text);
702 sub generate_csv_content {
705 my %valid_sep_chars = (';' => ';', ',' => ',', ':' => ':', 'TAB' => "\t");
706 my %valid_escape_chars = ('"' => 1, "'" => 1);
707 my %valid_quote_chars = ('"' => 1, "'" => 1);
709 my $opts = $self->{options}->{csv_export};
710 my $eol = $opts->{eol_style} eq 'DOS' ? "\r\n" : "\n";
711 my $sep_char = $valid_sep_chars{$opts->{sep_char}} ? $valid_sep_chars{$opts->{sep_char}} : ';';
712 my $escape_char = $valid_escape_chars{$opts->{escape_char}} ? $opts->{escape_char} : '"';
713 my $quote_char = $valid_quote_chars{$opts->{quote_char}} ? $opts->{quote_char} : '"';
715 $escape_char = $quote_char if ($opts->{escape_char} eq 'QUOTE_CHAR');
717 my $csv = Text::CSV_XS->new({ 'binary' => 1,
718 'sep_char' => $sep_char,
719 'escape_char' => $escape_char,
720 'quote_char' => $quote_char,
723 my $stdout = wraphandle(\*STDOUT);
724 my @visible_columns = $self->get_visible_columns('CSV');
726 if ($opts->{headers}) {
727 if (!$self->{custom_headers}) {
728 $csv->print($stdout, [ map { $self->unescape_string($self->{columns}->{$_}->{text}) } @visible_columns ]);
731 foreach my $row (@{ $self->{custom_headers} }) {
734 foreach my $col (@{ $row }) {
735 my $num_output = ($col->{colspan} && ($col->{colspan} > 1)) ? $col->{colspan} : 1;
736 push @{ $fields }, ($self->unescape_string($col->{text})) x $num_output;
739 $csv->print($stdout, $fields);
744 foreach my $row_set (@{ $self->{data} }) {
745 next if ('ARRAY' ne ref $row_set);
746 foreach my $row (@{ $row_set }) {
749 foreach my $col (@visible_columns) {
755 my $num_output = ($row->{$col}{colspan} && ($row->{$col}->{colspan} > 1)) ? $row->{$col}->{colspan} : 1;
756 $skip_next = $num_output - 1;
758 push @data, join($eol, map { s/\r?\n/$eol/g; $_ } @{ $row->{$col}->{data} });
759 push @data, ('') x $skip_next if ($skip_next);
762 $csv->print($stdout, \@data);
773 SL::ReportGenerator.pm: the Lx-Office way of getting data in shape
777 my $report = SL::ReportGenerator->new(\%myconfig, $form);
778 $report->set_options(%options); # optional
779 $report->set_columns(%column_defs);
780 $report->set_sort_indicator($column, $direction); # optional
781 $report->add_data($row1, $row2, @more_rows);
782 $report->generate_with_headers();
784 This creates a report object, sets a few columns, adds some data and generates a standard report.
785 Sorting of columns will be alphabetic, and options will be set to their defaults.
786 The report will be printed including table headers, html headers and http headers.
790 Imagine the following scenario:
791 There's a simple form, which loads some data from the database, and needs to print it out. You write a template for it.
792 Then there may be more than one line. You add a loop in the template.
793 Then there are some options made by the user, such as hidden columns. You add more to the template.
794 Then it lacks usability. You want it to be able to sort the data. You add code for that.
795 Then there are too many results, you need pagination, you want to print or export that data..... and so on.
797 The ReportGenerator class was designed because this exact scenario happened about half a dozen times in Lx-Office.
798 It's purpose is to manage all those formating, culling, sorting, and templating.
799 Which makes it almost as complicated to use as doing the work for yourself.
805 =item new \%myconfig,$form,%options
807 Creates a new ReportGenerator object, sets all given options, and returns it.
809 =item set_columns %columns
811 Sets the columns available to this report.
813 =item set_column_order @columns
815 Sets the order of columns. Any columns not present here are appended in alphabetic order.
817 =item set_sort_indicator $column,$direction
819 Sets sorting ot the table by specifying a column and a direction, where the direction will be evaluated to ascending if true.
820 Note that this is only for displaying. The data has to be presented already sorted.
822 =item add_data \@data
824 =item add_data \%data
826 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.
827 Every line will be expected to be in a kay => value format. Note that the rows have to be already sorted.
828 ReportGenerator does only colum sorting on its own, and provides links to sorting and visual cue as to which column was sorted by.
832 Adds a separator line to the report.
834 =item add_control \%data
836 Adds a control element to the data. Control elements are an experimental feature to add functionality to a report the regular data cannot.
837 Every control element needs to set IS_CONTROL_DATA, in order to be recongnized by the template.
838 Currently the only control element is a colspan element, which can be used as a mini header further down the report.
842 Deletes all data filled into the report, but keeps options set.
844 =item set_options %options
846 Sets options. For an incomplete list of options, see section configuration.
848 =item set_options_from_form
850 Tries to import options from the $form object given at creation
852 =item set_export_options $next_sub,@variable_list
854 Sets next_sub and additional variables needed for export.
856 =item get_attachment_basename
858 Returns the set attachment_basename option, or 'report' if nothing was set. See configuration for the option.
860 =item generate_with_headers
862 Parses the report, adds headers and prints it out. Headers depend on the option 'output_format',
863 for example 'HTML' will add proper table headers, html headers and http headers. See configuration for this option.
865 =item get_visible_columns $format
867 Returns a list of columns that will be visible in the report after considering all options or match the given format.
869 =item html_format $value
871 Escapes HTML characters in $value and substitutes newlines with '<br>'. Returns the escaped $value.
873 =item prepare_html_content $column,$name,@column_headers
875 Parses the data, and sets internal data needed for certain output format. Must be called once before the template is invoked.
876 Should not be called extrenally, since all render and generate functions invoke it anyway.
878 =item generate_html_content
880 The html generation function. Is invoked by generate_with_headers.
882 =item generate_pdf_content
884 The PDF generation function. It is invoked by generate_with_headers and renders the PDF with the PDF::API2 library.
886 =item generate_csv_content
888 The CSV generation function. Uses XS_CSV to parse the information into csv.
894 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.
896 =head2 General Options
900 =item std_column_visibility
902 Standard column visibility. Used if no visibility is set. Use this to save the trouble of enabling every column. Default is no.
906 Output format. Used by generate_with_headers to determine the format. Supported options are HTML, CSV, and PDF. Default is HTML.
908 =item allow_pdf_export
910 Used to determine if a button for PDF export should be displayed. Default is yes.
912 =item allow_csv_export
914 Used to determine if a button for CSV export should be displayed. Default is yes.
918 The template to be used for HTML reports. Default is 'report_generator/html_report'.
928 Paper size. Default is a4. Supported paper sizes are a3, a4, a5, letter and legal.
930 =item orientation (landscape)
932 Landscape or portrait. Default is landscape.
936 Default is Verdana. Supported font names are Courier, Georgia, Helvetica, Times and Verdana. This option only affects the rendering with PDF::API2.
940 Default is 7. This option only affects the rendering with PDF::API2.
950 The paper margins in cm. They all default to 1.5.
954 Set to a true value if the pages should be numbered. Default is 1.
958 If set then the resulting PDF will be output to a printer. If not it will be downloaded by the user. Default is no.
976 Character to enclose entries. Default is double quote (").
980 Character to separate entries. Default is semicolon (;).
984 Character to escape the quote_char. Default is double quote (").
988 End of line style. Default is Unix.
992 Include headers? Default is yes.
1000 =head1 MODULE AUTHORS
1002 Moritz Bunkus E<lt>mbunkus@linet-services.deE<gt>
1004 L<http://linet-services.de>