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

(-)a/admin/aqplan.pl (+1 lines)
Lines 93-98 my $show_percent = $input->param('show_percent'); Link Here
93
my $output       = $input->param("output") // q{};
93
my $output       = $input->param("output") // q{};
94
our $basename     = $input->param("basename");
94
our $basename     = $input->param("basename");
95
our $del          = $input->param("sep");
95
our $del          = $input->param("sep");
96
$del = "\t" if $del eq 'tabulation';
96
97
97
my $show_mine       = $input->param('show_mine') ;
98
my $show_mine       = $input->param('show_mine') ;
98
99
(-)a/misc/cronjobs/overdue_notices.pl (+1 lines)
Lines 827-832 END_SQL Link Here
827
        my $content;
827
        my $content;
828
        if ( defined $csvfilename ) {
828
        if ( defined $csvfilename ) {
829
            my $delimiter = C4::Context->preference('CSVDelimiter') || ';';
829
            my $delimiter = C4::Context->preference('CSVDelimiter') || ';';
830
            $delimiter = "\t" if $del eq 'tabulation';
830
            $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n";
831
            $content = join($delimiter, qw(title name surname address1 address2 zipcode city country email itemcount itemsinfo due_date issue_date)) . "\n";
831
        }
832
        }
832
        else {
833
        else {
(-)a/reports/cash_register_stats.pl (+1 lines)
Lines 158-163 if ($do_it) { Link Here
158
        my $reportname = $input->param('basename');
158
        my $reportname = $input->param('basename');
159
        my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ;
159
        my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ;
160
        my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
160
        my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
161
        $delimiter = "\t" if $delimiter eq 'tabulation';
161
            my @rows;
162
            my @rows;
162
            foreach my $row (@loopresult) {
163
            foreach my $row (@loopresult) {
163
                my @rowValues;
164
                my @rowValues;
(-)a/tools/viewlog.pl (-2 / +2 lines)
Lines 226-233 if ($do_it) { Link Here
226
226
227
        # Printing to a csv file
227
        # Printing to a csv file
228
        my $content = q{};
228
        my $content = q{};
229
        my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
230
        if (@data) {
229
        if (@data) {
230
            my $delimiter = C4::Context->preference('CSVDelimiter') || ',';
231
            $delimiter = "\t" if $delimiter eq 'tabulation';
231
            my $csv = Text::CSV::Encoded->new( { encoding_out => 'utf8', sep_char => $delimiter } );
232
            my $csv = Text::CSV::Encoded->new( { encoding_out => 'utf8', sep_char => $delimiter } );
232
            $csv or die "Text::CSV::Encoded->new FAILED: " . Text::CSV::Encoded->error_diag();
233
            $csv or die "Text::CSV::Encoded->new FAILED: " . Text::CSV::Encoded->error_diag();
233
234
234
- 

Return to bug 28327