@@ -, +, @@ tabulation in perl --- admin/aqplan.pl | 1 + misc/cronjobs/overdue_notices.pl | 1 + reports/cash_register_stats.pl | 1 + tools/viewlog.pl | 3 ++- 4 files changed, 5 insertions(+), 1 deletion(-) --- a/admin/aqplan.pl +++ a/admin/aqplan.pl @@ -93,6 +93,7 @@ my $show_percent = $input->param('show_percent'); my $output = $input->param("output") // q{}; our $basename = $input->param("basename"); our $del = $input->param("sep"); +$del = "\t" if $del eq 'tabulation'; my $show_mine = $input->param('show_mine') ; --- a/misc/cronjobs/overdue_notices.pl +++ a/misc/cronjobs/overdue_notices.pl @@ -827,6 +827,7 @@ END_SQL my $content; if ( defined $csvfilename ) { my $delimiter = C4::Context->preference('CSVDelimiter') || ';'; + $delimiter = "\t" if $del eq 'tabulation'; $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n"; } else { --- a/reports/cash_register_stats.pl +++ a/reports/cash_register_stats.pl @@ -158,6 +158,7 @@ if ($do_it) { my $reportname = $input->param('basename'); my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ; my $delimiter = C4::Context->preference('CSVDelimiter') || ','; + $delimiter = "\t" if $delimiter eq 'tabulation'; my @rows; foreach my $row (@loopresult) { my @rowValues; --- a/tools/viewlog.pl +++ a/tools/viewlog.pl @@ -226,8 +226,9 @@ if ($do_it) { # Printing to a csv file my $content = q{}; - my $delimiter = C4::Context->preference('CSVDelimiter') || ','; if (@data) { + my $delimiter = C4::Context->preference('CSVDelimiter') || ','; + $delimiter = "\t" if $delimiter eq 'tabulation'; my $csv = Text::CSV::Encoded->new( { encoding_out => 'utf8', sep_char => $delimiter } ); $csv or die "Text::CSV::Encoded->new FAILED: " . Text::CSV::Encoded->error_diag(); --