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 NAMES utf8mb4}); |
285 |
$self->{'dbh'}->do(q{SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0}); |
286 |
$self->{'dbh'}->do(q{SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0}); |
287 |
$self->{'dbh'}->do(q{SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO'}); |
288 |
$self->{'dbh'}->do(q{SET @OLD_SQL_NOTES=@@SQL_NOTES, SQL_NOTES=0}); |
289 |
|
290 |
# Load kohastructure |
282 |
my $error = $self->load_sql("$datadir/kohastructure.sql"); |
291 |
my $error = $self->load_sql("$datadir/kohastructure.sql"); |
|
|
292 |
|
293 |
# Re-enable checks after load |
294 |
$self->{'dbh'}->do(q{SET SQL_MODE=@OLD_SQL_MODE}); |
295 |
$self->{'dbh'}->do(q{SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS}); |
296 |
$self->{'dbh'}->do(q{SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS}); |
297 |
$self->{'dbh'}->do(q{SET SQL_NOTES=@OLD_SQL_NOTES}); |
298 |
|
283 |
return $error; |
299 |
return $error; |
284 |
|
300 |
|
285 |
} |
301 |
} |
286 |
- |
|
|