Bugzilla – Attachment 97705 Details for
Bug 24397
populate_db.pl is out of sync and must be removed
Home
|
New
|
Browse
|
Search
|
[?]
|
Reports
|
Help
|
New Account
|
Log In
[x]
|
Forgot Password
Login:
[x]
[patch]
Bug 24397: Remove out of sync script populate_db.pl
Bug-24397-Remove-out-of-sync-script-populatedbpl.patch (text/plain), 6.50 KB, created by
Marcel de Rooy
on 2020-01-22 12:40:42 UTC
(
hide
)
Description:
Bug 24397: Remove out of sync script populate_db.pl
Filename:
MIME Type:
Creator:
Marcel de Rooy
Created:
2020-01-22 12:40:42 UTC
Size:
6.50 KB
patch
obsolete
>From 816b58d0584203755f75a76ae1a05b3126db40ee Mon Sep 17 00:00:00 2001 >From: Jonathan Druart <jonathan.druart@bugs.koha-community.org> >Date: Fri, 10 Jan 2020 14:16:56 +0100 >Subject: [PATCH] Bug 24397: Remove out of sync script populate_db.pl >Content-Type: text/plain; charset=utf-8 > >populate_db.pl from koha-misc4dev must be used instead. >This script existed before the creation of koha-misc4dev, it does no >longer make sense to have it in Koha. > >Signed-off-by: David Nind <david@davidnind.com> > >Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl> >--- > misc/devel/populate_db.pl | 200 ---------------------------------------------- > 1 file changed, 200 deletions(-) > delete mode 100755 misc/devel/populate_db.pl > >diff --git a/misc/devel/populate_db.pl b/misc/devel/populate_db.pl >deleted file mode 100755 >index 341c53008f..0000000000 >--- a/misc/devel/populate_db.pl >+++ /dev/null >@@ -1,200 +0,0 @@ >-#!/usr/bin/perl >- >-# This file is part of Koha. >-# >-# Copyright 2016 Koha Development Team >-# >-# Koha is free software; you can redistribute it and/or modify it >-# under the terms of the GNU General Public License as published by >-# the Free Software Foundation; either version 3 of the License, or >-# (at your option) any later version. >-# >-# Koha is distributed in the hope that it will be useful, but >-# WITHOUT ANY WARRANTY; without even the implied warranty of >-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the >-# GNU General Public License for more details. >-# >-# You should have received a copy of the GNU General Public License >-# along with Koha; if not, see <http://www.gnu.org/licenses>. >- >-use Modern::Perl; >- >-use Getopt::Long; >-use Pod::Usage; >- >-use Koha::Script; >-use C4::Installer; >-use C4::Context; >- >-use Koha::SearchEngine::Elasticsearch; >- >-=head1 NAME >- >-populate_db.pl - Load included sample data into the DB >- >-=head1 SYNOPSIS >- >-populate_db.pl [--marcflavour MARCFLAVOUR] >- >- Options: >- --help Brief help message >- --marcflavour m Specify the MARC flavour to use (MARC21|UNIMARC). Defaults >- to MARC21. >- -v Be verbose. >- >-=head1 OPTIONS >- >-=over 8 >- >-=item B<--help> >- >-Prints a brief help message and exits. >- >-=item B<--marcflavour> >- >-Lets you choose the desired MARC flavour for the sample data. Valid options are MARC21 and UNIMARC. >-It defaults to MARC21. >- >-=item B<--verbose> >- >-Make the output more verbose. >- >-=back >- >-=cut >- >-my $help; >-my $verbose; >-my $marcflavour = 'MARC21'; >- >-GetOptions( >- 'help|?' => \$help, >- 'verbose' => \$verbose, >- 'marcflavour=s' => \$marcflavour >-) or pod2usage; >- >-if ( $help ) { >- pod2usage; >-} >- >-$marcflavour = uc($marcflavour); >- >-if ( $marcflavour ne 'MARC21' >- and $marcflavour ne 'UNIMARC' ) { >- say "Invalid MARC flavour '$marcflavour' passed."; >- pod2usage; >-} >- >-$ENV{KOHA_DB_DO_NOT_RAISE_OR_PRINT_ERROR} = 1; >-my $dbh = C4::Context->dbh; # At the beginning to die if DB does not exist. >- >-my ( $prefs_count ) = $dbh->selectrow_array(q|SELECT COUNT(*) FROM systempreferences|); >-my ( $patrons_count ) = $dbh->selectrow_array(q|SELECT COUNT(*) FROM borrowers|); >-if ( $prefs_count or $patrons_count ) { >- die "Database is not empty!"; >-} >-$dbh->disconnect; >-$ENV{KOHA_DB_DO_NOT_RAISE_OR_PRINT_ERROR} = 0; >- >-our $root = C4::Context->config('intranetdir'); >-our $data_dir = "$root/installer/data/mysql"; >-our $installer = C4::Installer->new; >-my $lang = 'en'; >-my $koha_structure_file = "$data_dir/kohastructure.sql"; >-my @sample_files_mandatory = ( >- glob("$data_dir/mandatory/*.sql"), >- "$data_dir/audio_alerts.sql", >- "$data_dir/sysprefs.sql", >- "$data_dir/userflags.sql", >- "$data_dir/userpermissions.sql", >- "$data_dir/account_offset_types.sql", >- "$data_dir/account_debit_types.sql", >-); >-my @sample_lang_files_mandatory = ( glob $root . "/installer/data/mysql/$lang/mandatory/*.sql" ); >-my @sample_lang_files_optional = ( glob $root . "/installer/data/mysql/$lang/optional/*.sql" ); >-my @marc21_sample_files_mandatory = ( glob $root . "/installer/data/mysql/$lang/marcflavour/marc21/*/*.sql" ); >-my @unimarc_sample_files_mandatory = ( glob $root . "/installer/data/mysql/$lang/marcflavour/unimarc/*/*.sql" ); >- >-my $version = get_version(); >- >-initialize_data(); >-update_database(); >- >-sub initialize_data { >- say "Inserting koha db structure..." >- if $verbose; >- my $error = $installer->load_db_schema; >- die $error if $error; >- >- for my $f (@sample_files_mandatory) { >- execute_sqlfile($f); >- } >- >- for my $f (@sample_lang_files_mandatory) { >- execute_sqlfile($f); >- } >- >- for my $f (@sample_lang_files_optional) { >- execute_sqlfile($f); >- } >- >- if ( $marcflavour eq 'UNIMARC' ) { >- for my $f (@unimarc_sample_files_mandatory) { >- execute_sqlfile($f); >- } >- } else { >- for my $f (@marc21_sample_files_mandatory) { >- execute_sqlfile($f); >- } >- } >- >- # set marcflavour (MARC21) >- my $dbh = C4::Context->dbh; >- >- say "Setting the MARC flavour on the sysprefs..." >- if $verbose; >- $dbh->do(qq{ >- INSERT INTO `systempreferences` (variable,value,explanation,options,type) >- VALUES ('marcflavour',?,'Define global MARC flavor (MARC21 or UNIMARC) used for character encoding','MARC21|UNIMARC','Choice') >- },undef,$marcflavour); >- >- # set version >- say "Setting Koha version to $version..." >- if $verbose; >- $dbh->do(qq{ >- INSERT INTO systempreferences(variable, value, options, explanation, type) >- VALUES ('Version', '$version', NULL, 'The Koha database version. WARNING: Do not change this value manually, it is maintained by the webinstaller', NULL) >- }); >- >- # Initialize ES mappings >- Koha::SearchEngine::Elasticsearch->reset_elasticsearch_mappings; >-} >- >-sub execute_sqlfile { >- my ($filepath) = @_; >- say "Inserting $filepath..." >- if $verbose; >- my $error = $installer->load_sql($filepath); >- die $error if $error; >-} >- >-sub get_version { >- do $root . '/kohaversion.pl'; >- my $version = kohaversion(); >- $version =~ s/(\d)\.(\d{2})\.(\d{2})\.(\d{3})/$1.$2$3$4/; >- return $version; >-} >- >-sub update_database { >- my $update_db_path = $root . '/installer/data/mysql/updatedatabase.pl'; >- say "Updating database..." >- if $verbose; >- my $file = `cat $update_db_path`; >- $file =~ s/exit;//; >- eval $file; >- if ($@) { >- die "updatedatabase.pl process failed: $@"; >- } else { >- say "updatedatabase.pl process succeeded."; >- } >-} >-- >2.11.0
You cannot view the attachment while viewing its details because your browser does not support IFRAMEs.
View the attachment on a separate page
.
View Attachment As Diff
View Attachment As Raw
Actions:
View
|
Diff
|
Splinter Review
Attachments on
bug 24397
:
97199
|
97238
| 97705