|
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 |
- |
|
|