View | Details | Raw Unified | Return to bug 9892
Collapse All | Expand All

(-)a/misc/export_borrowers.pl (-1 / +5 lines)
Lines 87-92 $query .= " ORDER BY borrowernumber"; Link Here
87
my $sth   = $dbh->prepare($query);
87
my $sth   = $dbh->prepare($query);
88
$sth->execute;
88
$sth->execute;
89
89
90
unless ( $separator ) {
91
    $separator = C4::Context->preference('delimiter') || ',';
92
    $separator = "\t" if ($separator eq 'tabulation');
93
}
94
90
my $csv = Text::CSV->new( { sep_char => $separator, binary => 1 } );
95
my $csv = Text::CSV->new( { sep_char => $separator, binary => 1 } );
91
96
92
# If the user did not specify any field to export, we assume he wants them all
97
# If the user did not specify any field to export, we assume he wants them all
93
- 

Return to bug 9892