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

(-)a/C4/Installer.pm (-1 / +26 lines)
Lines 279-285 sub load_db_schema { Link Here
279
    my $self = shift;
279
    my $self = shift;
280
280
281
    my $datadir = C4::Context->config('intranetdir') . "/installer/data/$self->{dbms}";
281
    my $datadir = C4::Context->config('intranetdir') . "/installer/data/$self->{dbms}";
282
283
    # Disable checks before load
284
    $self->{'dbh'}->do(q{SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT});
285
    $self->{'dbh'}->do(q{@OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS});
286
    $self->{'dbh'}->do(q{@OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION});
287
    $self->{'dbh'}->do(q{SET NAMES utf8mb4});
288
    $self->{'dbh'}->do(q{@OLD_TIME_ZONE=@@TIME_ZONE});
289
    $self->{'dbh'}->do(q{SET TIME_ZONE='+00:00'});
290
    $self->{'dbh'}->do(q{SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0});
291
    $self->{'dbh'}->do(q{SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0});
292
    $self->{'dbh'}->do(q{SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO'});
293
    $self->{'dbh'}->do(q{SET @OLD_SQL_NOTES=@@SQL_NOTES, SQL_NOTES=0});
294
295
    # Load kohastructure
282
    my $error = $self->load_sql("$datadir/kohastructure.sql");
296
    my $error = $self->load_sql("$datadir/kohastructure.sql");
297
298
    # Re-enable checks after load
299
    $self->{'dbh'}->do(q{SET character_set_client = @saved_cs_client});
300
    $self->{'dbh'}->do(q{SET TIME_ZONE=@OLD_TIME_ZONE});
301
    $self->{'dbh'}->do(q{SET SQL_MODE=@OLD_SQL_MODE});
302
    $self->{'dbh'}->do(q{SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS});
303
    $self->{'dbh'}->do(q{SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS});
304
    $self->{'dbh'}->do(q{SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT});
305
    $self->{'dbh'}->do(q{SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS});
306
    $self->{'dbh'}->do(q{SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION});
307
    $self->{'dbh'}->do(q{SET SQL_NOTES=@OLD_SQL_NOTES});
308
283
    return $error;
309
    return $error;
284
310
285
}
311
}
286
- 

Return to bug 26947