| 686 |
686 |
}
|
| 687 |
687 |
}
|
| 688 |
688 |
|
| 689 |
|
sub unescape_string {
|
| 690 |
|
my ($self, $text, $do_iconv) = @_;
|
|
689 |
sub _handle_quoting_and_encoding {
|
|
690 |
my ($self, $text, $do_unquote) = @_;
|
| 691 |
691 |
|
| 692 |
|
$text = $main::locale->unquote_special_chars('HTML', $text);
|
| 693 |
|
$text = $::locale->{iconv}->convert($text) if $do_iconv;
|
|
692 |
$text = $main::locale->unquote_special_chars('HTML', $text) if $do_unquote;
|
|
693 |
$text = Encode::encode('UTF-8', $text) if $::locale->is_utf8;
|
| 694 |
694 |
|
| 695 |
695 |
return $text;
|
| 696 |
696 |
}
|
| 697 |
697 |
|
| 698 |
698 |
sub generate_csv_content {
|
| 699 |
|
my $self = shift;
|
|
699 |
my $self = shift;
|
|
700 |
my $stdout = ($::dispatcher->get_standard_filehandles)[1];
|
|
701 |
|
|
702 |
# Text::CSV_XS seems to downgrade to bytes already (see
|
|
703 |
# SL/FCGIFixes.pm). Therefore don't let FCGI do that again.
|
|
704 |
$::locale->with_raw_io($stdout, sub { $self->_generate_csv_content($stdout) });
|
|
705 |
}
|
|
706 |
|
|
707 |
sub _generate_csv_content {
|
|
708 |
my ($self, $stdout) = @_;
|
| 700 |
709 |
|
| 701 |
710 |
my %valid_sep_chars = (';' => ';', ',' => ',', ':' => ':', 'TAB' => "\t");
|
| 702 |
711 |
my %valid_escape_chars = ('"' => 1, "'" => 1);
|
| ... | ... | |
| 718 |
727 |
|
| 719 |
728 |
my @visible_columns = $self->get_visible_columns('CSV');
|
| 720 |
729 |
|
| 721 |
|
my $stdout;
|
| 722 |
|
open $stdout, '>-';
|
| 723 |
|
binmode $stdout, ':encoding(utf8)' if $::locale->is_utf8;
|
| 724 |
|
|
| 725 |
730 |
if ($opts->{headers}) {
|
| 726 |
731 |
if (!$self->{custom_headers}) {
|
| 727 |
|
$csv->print($stdout, [ map { $self->unescape_string($self->{columns}->{$_}->{text}, 1) } @visible_columns ]);
|
|
732 |
$csv->print($stdout, [ map { $self->_handle_quoting_and_encoding($self->{columns}->{$_}->{text}, 1) } @visible_columns ]);
|
| 728 |
733 |
|
| 729 |
734 |
} else {
|
| 730 |
735 |
foreach my $row (@{ $self->{custom_headers} }) {
|
| ... | ... | |
| 732 |
737 |
|
| 733 |
738 |
foreach my $col (@{ $row }) {
|
| 734 |
739 |
my $num_output = ($col->{colspan} && ($col->{colspan} > 1)) ? $col->{colspan} : 1;
|
| 735 |
|
push @{ $fields }, ($self->unescape_string($col->{text})) x $num_output;
|
|
740 |
push @{ $fields }, ($self->_handle_quoting_and_encoding($col->{text}, 1)) x $num_output;
|
| 736 |
741 |
}
|
| 737 |
742 |
|
| 738 |
743 |
$csv->print($stdout, $fields);
|
| ... | ... | |
| 754 |
759 |
my $num_output = ($row->{$col}{colspan} && ($row->{$col}->{colspan} > 1)) ? $row->{$col}->{colspan} : 1;
|
| 755 |
760 |
$skip_next = $num_output - 1;
|
| 756 |
761 |
|
| 757 |
|
push @data, join($eol, map { s/\r?\n/$eol/g; $_ } @{ $row->{$col}->{data} });
|
|
762 |
push @data, join($eol, map { s/\r?\n/$eol/g; $self->_handle_quoting_and_encoding($_, 0) } @{ $row->{$col}->{data} });
|
| 758 |
763 |
push @data, ('') x $skip_next if ($skip_next);
|
| 759 |
764 |
}
|
| 760 |
765 |
|
CSV-Export für ISO- und UTF-8, mit und ohne FastCGI gefixt
Fix für Bug 1535.