Attachment 37619 Details for Bug 9892 – Bug 9892: MAke export_borrowers.pl using the delimiter pref

[patch] Bug 9892: MAke export_borrowers.pl using the delimiter pref

Bug-9892-MAke-exportborrowerspl-using-the-delimite.patch (text/plain), 1.31 KB, created by Jonathan Druart on 2015-04-09 13:53:40 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jonathan Druart

Created: 2015-04-09 13:53:40 UTC

Size: 1.31 KB

patch

obsolete

>From bea5706a4d9391148157c2b77bb264ef79fdd51c Mon Sep 17 00:00:00 2001
>From: Jonathan Druart <jonathan.druart@biblibre.com>
>Date: Thu, 9 Apr 2015 15:49:14 +0200
>Subject: [PATCH] Bug 9892: MAke export_borrowers.pl using the delimiter pref
>
>The original concern of bug 9892 was that this borrowers export script
>cannot handle tabulation to separate columns.
>
>With this patch, the delimiter preference is used as separator for the
>output, to be consistent with others scripts.
>
>This should be highlighted on the release, it can produce change in
>behaviors.
>
>Test plan:
>Confirm that the 'delimiter' pref is used for the output, but you are able
>to overwrite it with the 'separator' parameter
>---
> misc/export_borrowers.pl | 5 +++++
> 1 file changed, 5 insertions(+)
>
>diff --git a/misc/export_borrowers.pl b/misc/export_borrowers.pl
>index 7d3ce47..719d789 100755
>--- a/misc/export_borrowers.pl
>+++ b/misc/export_borrowers.pl
>@@ -87,6 +87,11 @@ $query .= " ORDER BY borrowernumber";
> my $sth   = $dbh->prepare($query);
> $sth->execute;
> 
>+unless ( $separator ) {
>+    $separator = C4::Context->preference('delimiter') || ',';
>+    $separator = "\t" if ($separator eq 'tabulation');
>+}
>+
> my $csv = Text::CSV->new( { sep_char => $separator, binary => 1 } );
> 
> # If the user did not specify any field to export, we assume he wants them all
>-- 
>2.1.0

Actions: View | Diff | Splinter Review

Attachments on bug 9892: 37619 | 38895 | 38967 | 38968 | 38969 | 38970