Attachment 57342 Details for Bug 17590 – Bug 17590 - Exporting reports as CSV with 'delimiter' SysPref set to 'tabulation' creates files with 't' as separator

[patch] Bug 17590 - Exporting reports as CSV with 'delimiter' SysPref set to 'tabulation' creates files with 't' as separator

Bug-17590---Exporting-reports-as-CSV-with-delimite.patch (text/plain), 1.26 KB, created by Nick Clemens (kidclamp) on 2016-11-08 17:31:35 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Nick Clemens (kidclamp)

Created: 2016-11-08 17:31:35 UTC

Size: 1.26 KB

patch

obsolete

>From d7702fe4a0826ff5727809ae5cd1769e85ef1833 Mon Sep 17 00:00:00 2001
>From: Nick Clemens <nick@bywatersolutions.com>
>Date: Tue, 8 Nov 2016 17:26:36 +0000
>Subject: [PATCH] Bug 17590 - Exporting reports as CSV with 'delimiter' SysPref
> set to 'tabulation' creates files with 't' as separator
>
>To test:
>Set 'delimiter' system preference to 'tabs'
>Export a report as csv
>Open the file in text editor and note fields separated by character 't'
>Apply patch
>Export report as CSV
>Open file in text editor and note tabs are used to separate fields
>---
> reports/guided_reports.pl | 1 +
> 1 file changed, 1 insertion(+)
>
>diff --git a/reports/guided_reports.pl b/reports/guided_reports.pl
>index 9c42863..a5e15be 100755
>--- a/reports/guided_reports.pl
>+++ b/reports/guided_reports.pl
>@@ -830,6 +830,7 @@ elsif ($phase eq 'Export'){
>         } else {
>             my $delimiter = C4::Context->preference('delimiter') || ',';
>             if ( $format eq 'csv' ) {
>+                $delimiter = "\t" if $delimiter eq 'tabulation';
>                 $type = 'application/csv';
>                 my $csv = Text::CSV::Encoded->new({ encoding_out => 'UTF-8', sep_char => $delimiter});
>                 $csv or die "Text::CSV::Encoded->new({binary => 1}) FAILED: " . Text::CSV::Encoded->error_diag();
>-- 
>2.1.4

Actions: View | Diff | Splinter Review

Attachments on bug 17590: 57342 | 57407 | 57625