|
Lines 76-82
sub _new_schema {
Link Here
|
| 76 |
%encoding_attr = ( mysql_enable_utf8 => 1 ); |
76 |
%encoding_attr = ( mysql_enable_utf8 => 1 ); |
| 77 |
$encoding_query = "set NAMES 'utf8mb4'"; |
77 |
$encoding_query = "set NAMES 'utf8mb4'"; |
| 78 |
$tz_query = qq(SET time_zone = "$tz") if $tz; |
78 |
$tz_query = qq(SET time_zone = "$tz") if $tz; |
| 79 |
if ( ( exists $ENV{_} && $ENV{_} =~ m|prove| ) or C4::Context->config('strict_sql_modes') ) { |
79 |
if ( C4::Context->config('strict_sql_modes') |
|
|
80 |
|| ( exists $ENV{_} && $ENV{_} =~ m|prove| ) |
| 81 |
|| $ENV{KOHA_TESTING} |
| 82 |
) { |
| 80 |
$sql_mode_query = q{SET sql_mode = 'ONLY_FULL_GROUP_BY,STRICT_TRANS_TABLES,NO_ZERO_IN_DATE,NO_ZERO_DATE,ERROR_FOR_DIVISION_BY_ZERO,NO_ENGINE_SUBSTITUTION'}; |
83 |
$sql_mode_query = q{SET sql_mode = 'ONLY_FULL_GROUP_BY,STRICT_TRANS_TABLES,NO_ZERO_IN_DATE,NO_ZERO_DATE,ERROR_FOR_DIVISION_BY_ZERO,NO_ENGINE_SUBSTITUTION'}; |
| 81 |
} else { |
84 |
} else { |
| 82 |
$sql_mode_query = q{SET sql_mode = 'IGNORE_SPACE,NO_ZERO_IN_DATE,NO_ZERO_DATE,ERROR_FOR_DIVISION_BY_ZERO,NO_ENGINE_SUBSTITUTION'}; |
85 |
$sql_mode_query = q{SET sql_mode = 'IGNORE_SPACE,NO_ZERO_IN_DATE,NO_ZERO_DATE,ERROR_FOR_DIVISION_BY_ZERO,NO_ENGINE_SUBSTITUTION'}; |
|
Lines 87-93
sub _new_schema {
Link Here
|
| 87 |
$tz_query = qq(SET TIME ZONE = "$tz") if $tz; |
90 |
$tz_query = qq(SET TIME ZONE = "$tz") if $tz; |
| 88 |
} |
91 |
} |
| 89 |
|
92 |
|
| 90 |
my $RaiseError = ( $ENV{DEBUG} || exists $ENV{_} && $ENV{_} =~ m|prove| ) ? 1 : 0; |
93 |
my $RaiseError = ( |
|
|
94 |
$ENV{DEBUG} |
| 95 |
|| $ENV{KOHA_TESTING} |
| 96 |
|| exists $ENV{_} && $ENV{_} =~ m|prove| |
| 97 |
) ? 1 : 0; |
| 91 |
my $schema = Koha::Schema->connect( |
98 |
my $schema = Koha::Schema->connect( |
| 92 |
{ |
99 |
{ |
| 93 |
dsn => "dbi:$db_driver:database=$db_name;host=$db_host;port=$db_port".($tls_options? $tls_options : ""), |
100 |
dsn => "dbi:$db_driver:database=$db_name;host=$db_host;port=$db_port".($tls_options? $tls_options : ""), |
| 94 |
- |
|
|