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

(-)a/admin/aqplan.pl (+1 lines)
Lines 98-103 my $show_percent = $input->param('show_percent'); Link Here
98
my $output       = $input->param("output") // q{};
98
my $output       = $input->param("output") // q{};
99
our $basename     = $input->param("basename");
99
our $basename     = $input->param("basename");
100
our $del          = $input->param("sep");
100
our $del          = $input->param("sep");
101
$del = "\t" if $del eq 'tabulation';
101
102
102
my $show_mine       = $input->param('show_mine') ;
103
my $show_mine       = $input->param('show_mine') ;
103
104
(-)a/misc/cronjobs/overdue_notices.pl (+1 lines)
Lines 842-847 END_SQL Link Here
842
        my $content;
842
        my $content;
843
        if ( defined $csvfilename ) {
843
        if ( defined $csvfilename ) {
844
            my $delimiter = C4::Context->preference('CSVDelimiter') || ';';
844
            my $delimiter = C4::Context->preference('CSVDelimiter') || ';';
845
            $delimiter = "\t" if $delimiter eq 'tabulation';
845
            $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n";
846
            $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n";
846
        }
847
        }
847
        else {
848
        else {
(-)a/reports/cash_register_stats.pl (+1 lines)
Lines 157-162 if ($do_it) { Link Here
157
        my $reportname = $input->param('basename');
157
        my $reportname = $input->param('basename');
158
        my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ;
158
        my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ;
159
        my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
159
        my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
160
        $delimiter = "\t" if $delimiter eq 'tabulation';
160
            my @rows;
161
            my @rows;
161
            foreach my $row (@loopresult) {
162
            foreach my $row (@loopresult) {
162
                my @rowValues;
163
                my @rowValues;
(-)a/tools/viewlog.pl (-2 / +2 lines)
Lines 219-226 if ($do_it) { Link Here
219
219
220
        # Printing to a csv file
220
        # Printing to a csv file
221
        my $content = q{};
221
        my $content = q{};
222
        my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
223
        if (@data) {
222
        if (@data) {
223
            my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
224
            $delimiter = "\t" if $delimiter eq 'tabulation';
224
            my $csv = Text::CSV::Encoded->new( { encoding_out => 'utf8', sep_char => $delimiter } );
225
            my $csv = Text::CSV::Encoded->new( { encoding_out => 'utf8', sep_char => $delimiter } );
225
            $csv or die "Text::CSV::Encoded->new FAILED: " . Text::CSV::Encoded->error_diag();
226
            $csv or die "Text::CSV::Encoded->new FAILED: " . Text::CSV::Encoded->error_diag();
226
227
227
- 

Return to bug 28327