From 82e81221963ba106bbd3e871f53fad3147c7ff84 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 15 May 2020 10:51:46 +0100
Subject: [PATCH] Bug 25511: Add --force option to update_dbix_class_files.pl

This adds a --force option to the aforementioned script allowing those
in the know to overwrite the schema when changes above the found are
detected.
---
 misc/devel/update_dbix_class_files.pl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/misc/devel/update_dbix_class_files.pl b/misc/devel/update_dbix_class_files.pl
index 0c4a88eb64..f062612c39 100755
--- a/misc/devel/update_dbix_class_files.pl
+++ b/misc/devel/update_dbix_class_files.pl
@@ -38,6 +38,7 @@ my $db_name;
 my $db_user;
 my $db_passwd;
 my $koha_conf;
+my $force;
 my $help;
 
 GetOptions(
@@ -49,6 +50,7 @@ GetOptions(
     "db_user=s"   => \$db_user,
     "db_passwd=s" => \$db_passwd,
     "koha-conf:s" => \$koha_conf,
+    "force:s"     => \$force,
     "h|help"      => \$help
 );
 
@@ -95,9 +97,11 @@ if (! defined $db_name ) {
     pod2usage(1);
 } else {
 
+    $force //= 0;
+
     make_schema_at(
         "Koha::Schema",
-        { debug => 1, dump_directory => $path, preserve_case => 1 },
+        { debug => 1, dump_directory => $path, preserve_case => 1, overwrite_modifications => $force },
         [
             "DBI:$db_driver:dbname=$db_name;host=$db_host;port=$db_port",
             $db_user,
-- 
2.20.1