From e6810c5da4c55a0a64824a20b4944d792094211a Mon Sep 17 00:00:00 2001 From: Rogan Hamby Date: Thu, 7 May 2020 10:41:01 -0400 Subject: [PATCH] adjust -test components of kohacatalog.com domains in kmig import --- kmig.d/bin/mig-import | 11 +++++++++-- 1 files changed, 9 insertions(+), 2 deletions(-) diff --git a/kmig.d/bin/mig-import b/kmig.d/bin/mig-import index 6788d28..33302a7 100755 --- a/kmig.d/bin/mig-import +++ b/kmig.d/bin/mig-import @@ -438,8 +438,8 @@ sub restore_preferences { my $dom = $parser->parse_file($restore_file); foreach my $node ($dom->findnodes('//pref')) { - my $variable = sql_str($node->findvalue('./variable')); - my $value = sql_str($node->findvalue('./value')); + my $variable = domain_shift(sql_str($node->findvalue('./variable'))); + my $value = domain_shift(sql_str($node->findvalue('./value'))); my $query = "UPDATE systempreferences SET value = $value WHERE variable = $variable"; my $sth = $dbh->prepare($query); $sth->execute(); @@ -467,6 +467,13 @@ sub restore_smsproviders { return; } +sub domain_shift { + my $str = shift; + $str =~ s/-test.kohacatalog.com/.kohacatalog.com/g; + $str =~ s/-test-staff.kohacatalog.com/-staff.kohacatalog.com/g; + return $str; +} + sub sql_str { my $str = shift; if (!defined $str or $str eq '') { return 'NULL'; } -- 1.7.2.5