@@ -, +, @@ missing --- Koha/Template/Plugin/Koha.pm | 2 +- admin/aqplan.pl | 2 +- .../prog/en/modules/admin/preferences/admin.pref | 2 +- misc/cronjobs/fines.pl | 2 +- misc/export_borrowers.pl | 4 ++-- reports/bor_issues_top.pl | 2 +- reports/cash_register_stats.pl | 2 +- reports/guided_reports.pl | 2 +- reports/orders_by_fund.pl | 2 +- t/Koha_Template_Plugin_Koha.t | 8 ++++---- tools/viewlog.pl | 2 +- 11 files changed, 15 insertions(+), 15 deletions(-) --- a/Koha/Template/Plugin/Koha.pm +++ a/Koha/Template/Plugin/Koha.pm @@ -57,7 +57,7 @@ sub Preference { sub CSVDelimiter { my ( $self, $val ) = @_; - my $sep = $val || C4::Context->preference('CSVDelimiter') || ','; + my $sep = $val || C4::Context->preference('CSVDelimiter') || ';'; $sep = "\t" if $sep eq 'tabulation'; return $sep; } --- a/admin/aqplan.pl +++ a/admin/aqplan.pl @@ -303,7 +303,7 @@ foreach my $n (@names) { # DEFAULT DISPLAY BEGINS my $CGIextChoice = ( 'CSV' ); # FIXME translation -my $CGIsepChoice = ( C4::Context->preference("CSVDelimiter") ); +my $CGIsepChoice = ( C4::Context->preference("CSVDelimiter") || ';' ); my ( @budget_lines, %cell_hash ); --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/admin.pref @@ -44,7 +44,7 @@ Administration: - - "Default separator for columns in an exported CSV file: " - pref: CSVDelimiter - default: "," + default: ";" choices: ';': semicolons tabulation: tabs --- a/misc/cronjobs/fines.pl +++ a/misc/cronjobs/fines.pl @@ -99,7 +99,7 @@ my @other_fields = qw(days_overdue fine); my $libname = C4::Context->preference('LibraryName'); my $control = C4::Context->preference('CircControl'); my $mode = C4::Context->preference('finesMode'); -my $delim = "\t"; # ? C4::Context->preference('CSVDelimiter') || "\t"; +my $delim = "\t"; # ? C4::Context->preference('CSVDelimiter') || ';'; my %is_holiday; my $today = dt_from_string(); --- a/misc/export_borrowers.pl +++ a/misc/export_borrowers.pl @@ -49,7 +49,7 @@ $0 -h Some characters like | or ; will need to be escaped in the parameter setting, like -s=\\| or -s=\\; If no separator is specified, the CSVDelimiter pref - will be used (or a comma, if the pref is empty) + will be used (or a semicolon, if the pref is empty) -H, --show-header Print field names on first row -w, --where=CONDITION Condition to filter borrowers to export (SQL where clause). @@ -91,7 +91,7 @@ my $sth = $dbh->prepare($query); $sth->execute; unless ( $separator ) { - $separator = C4::Context->preference('CSVDelimiter') || ','; + $separator = C4::Context->preference('CSVDelimiter') || ';'; $separator = "\t" if ($separator eq 'tabulation'); } --- a/reports/bor_issues_top.pl +++ a/reports/bor_issues_top.pl @@ -61,7 +61,7 @@ my ($template, $borrowernumber, $cookie) flagsrequired => {reports => '*'}, debug => 1, }); -our $sep = $input->param("sep") || C4::Context->preference('CSVDelimiter') || ','; +our $sep = $input->param("sep") || C4::Context->preference('CSVDelimiter') || ';'; $sep = "\t" if ($sep eq 'tabulation'); $template->param(do_it => $do_it, ); --- a/reports/cash_register_stats.pl +++ a/reports/cash_register_stats.pl @@ -157,7 +157,7 @@ if ($do_it) { my $format = 'csv'; my $reportname = $input->param('basename'); my $reportfilename = $reportname ? "$reportname.$format" : "reportresults.$format" ; - my $delimiter = C4::Context->preference('CSVDelimiter') || ','; + my $delimiter = C4::Context->preference('CSVDelimiter') || ';'; $delimiter = "\t" if $delimiter eq 'tabulation'; my @rows; foreach my $row (@loopresult) { --- a/reports/guided_reports.pl +++ a/reports/guided_reports.pl @@ -898,7 +898,7 @@ elsif ($phase eq 'Export'){ $content .= join("\t", map { $_ // '' } @$row) . "\n"; } } else { - my $delimiter = C4::Context->preference('CSVDelimiter') || ','; + my $delimiter = C4::Context->preference('CSVDelimiter') || ';'; if ( $format eq 'csv' ) { $delimiter = "\t" if $delimiter eq 'tabulation'; $type = 'application/csv'; --- a/reports/orders_by_fund.pl +++ a/reports/orders_by_fund.pl @@ -209,7 +209,7 @@ else { $template->param( budgetsloop => \@{$budgetloop}, outputFormatloop => \@outputFormats, delimiterloop => \@CSVdelimiters, - delimiterPreference => C4::Context->preference('CSVDelimiter') + delimiterPreference => C4::Context->preference('CSVDelimiter') || ';' ); } --- a/t/Koha_Template_Plugin_Koha.t +++ a/t/Koha_Template_Plugin_Koha.t @@ -96,13 +96,13 @@ subtest "Koha::Template::Plugin::Koha::CSVDelimiter tests" => sub { my $plugin = Koha::Template::Plugin::Koha->new(); t::lib::Mocks::mock_preference('CSVDelimiter', ''); - is($plugin->CSVDelimiter(), ',', "CSVDelimiter() returns comma when preference is empty string"); + is($plugin->CSVDelimiter(), ';', "CSVDelimiter() returns semicolon when preference is empty string"); t::lib::Mocks::mock_preference('CSVDelimiter', undef); - is($plugin->CSVDelimiter(), ',', "CSVDelimiter() returns comma when preference is undefined"); + is($plugin->CSVDelimiter(), ';', "CSVDelimiter() returns semicolon when preference is undefined"); - t::lib::Mocks::mock_preference('CSVDelimiter', ';'); - is($plugin->CSVDelimiter(), ';', "CSVDelimiter() returns preference value when preference is not tabulation"); + t::lib::Mocks::mock_preference('CSVDelimiter', ','); + is($plugin->CSVDelimiter(), ',', "CSVDelimiter() returns preference value when preference is not tabulation"); t::lib::Mocks::mock_preference('CSVDelimiter', 'tabulation'); is($plugin->CSVDelimiter(), "\t", "CSVDelimiter() returns \\t when preference is tabulation"); --- a/tools/viewlog.pl +++ a/tools/viewlog.pl @@ -227,7 +227,7 @@ if ($do_it) { # Printing to a csv file my $content = q{}; if (@data) { - my $delimiter = C4::Context->preference('CSVDelimiter') || ','; + my $delimiter = C4::Context->preference('CSVDelimiter') || ';'; $delimiter = "\t" if $delimiter eq 'tabulation'; my $csv = Text::CSV::Encoded->new( { encoding_out => 'utf8', sep_char => $delimiter } ); $csv or die "Text::CSV::Encoded->new FAILED: " . Text::CSV::Encoded->error_diag(); --