Bug 28572: Fix Search.t

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
This commit is contained in:
Jonathan Druart 2021-06-22 16:57:50 +02:00
parent 438cfbe1fc
commit 3d1a92b6e1

View file

@ -48,8 +48,10 @@ $ENV{'__DB_PORT__'} = C4::Context->config('port') // '3306';
$ENV{'__DB_USER__'} = C4::Context->config('user') // 'kohaadmin'; $ENV{'__DB_USER__'} = C4::Context->config('user') // 'kohaadmin';
$ENV{'__DB_PASS__'} = C4::Context->config('pass') // 'katikoan'; $ENV{'__DB_PASS__'} = C4::Context->config('pass') // 'katikoan';
my @files = ( "$source/etc/koha-conf.xml", my @files = (
); "$source/etc/koha-conf.xml",
"$source/etc/log4perl.conf",
);
find(sub { push @files, $File::Find::name if ( -f $File::Find::name ); }, "$source/etc/zebradb"); find(sub { push @files, $File::Find::name if ( -f $File::Find::name ); }, "$source/etc/zebradb");
@ -57,6 +59,7 @@ foreach my $file (@files) {
my $target = "$file"; my $target = "$file";
$target =~ s#$source#$destination#; $target =~ s#$source#$destination#;
$target =~ s#etc/zebradb#etc/koha/zebradb#; $target =~ s#etc/zebradb#etc/koha/zebradb#;
$target =~ s#etc/log4perl\.conf#etc/koha/log4perl.conf#;
unlink($target); unlink($target);
make_path(dirname($target)); make_path(dirname($target));
copy("$file", "$target"); copy("$file", "$target");