From 7cc2560d2f1833d9b00b4cdc9d2d724813000407 Mon Sep 17 00:00:00 2001
From: Emmi Takkinen <emmi.takkinen@koha-suomi.fi>
Date: Tue, 3 May 2022 13:23:43 +0300
Subject: [PATCH] Bug 23681: DBIC Schema

To be able to delete and pass tests we need to declare
koha_object[s]_class to DebarmentType.pm. Otherwise
following error is raised:

"Can't locate object method "_new_from_dbic" via package
"Koha::DebarmentType" (perhaps you forgot to load "Koha::DebarmentType"?)
at /kohadevbox/koha/Koha/Object.pm line 237"

Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>
---
 Koha/Schema/Result/BorrowerDebarment.pm |  34 +++++---
 Koha/Schema/Result/DebarmentType.pm     | 102 ++++++++++++++++++++++++
 2 files changed, 124 insertions(+), 12 deletions(-)
 create mode 100644 Koha/Schema/Result/DebarmentType.pm

diff --git a/Koha/Schema/Result/BorrowerDebarment.pm b/Koha/Schema/Result/BorrowerDebarment.pm
index 4f1921b5dd..7c27d56d30 100644
--- a/Koha/Schema/Result/BorrowerDebarment.pm
+++ b/Koha/Schema/Result/BorrowerDebarment.pm
@@ -49,12 +49,12 @@ expiration date of the restriction
 
 =head2 type
 
-  data_type: 'enum'
-  default_value: 'MANUAL'
-  extra: {list => ["SUSPENSION","OVERDUES","MANUAL","DISCHARGE"]}
+  data_type: 'varchar'
+  is_foreign_key: 1
   is_nullable: 0
+  size: 50
 
-type of restriction
+type of restriction, FK to debarment_types.code
 
 =head2 comment
 
@@ -97,12 +97,7 @@ __PACKAGE__->add_columns(
   "expiration",
   { data_type => "date", datetime_undef_if_invalid => 1, is_nullable => 1 },
   "type",
-  {
-    data_type => "enum",
-    default_value => "MANUAL",
-    extra => { list => ["SUSPENSION", "OVERDUES", "MANUAL", "DISCHARGE"] },
-    is_nullable => 0,
-  },
+  { data_type => "varchar", is_foreign_key => 1, is_nullable => 0, size => 50 },
   "comment",
   { data_type => "mediumtext", is_nullable => 1 },
   "manager_id",
@@ -151,9 +146,24 @@ __PACKAGE__->belongs_to(
   { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
 );
 
+=head2 type
+
+Type: belongs_to
+
+Related object: L<Koha::Schema::Result::DebarmentType>
+
+=cut
+
+__PACKAGE__->belongs_to(
+  "type",
+  "Koha::Schema::Result::DebarmentType",
+  { code => "type" },
+  { is_deferrable => 1, on_delete => "NO ACTION", on_update => "CASCADE" },
+);
+
 
-# Created by DBIx::Class::Schema::Loader v0.07049 @ 2021-01-21 13:39:29
-# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:vQL2xYGB5GI//2l4FdIR9w
+# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-04 11:05:19
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:bxRDwUTv9cZVpDfNDatosQ
 
 
 # You can replace this text with custom code or comments, and it will be preserved on regeneration
diff --git a/Koha/Schema/Result/DebarmentType.pm b/Koha/Schema/Result/DebarmentType.pm
new file mode 100644
index 0000000000..0f83c3c92b
--- /dev/null
+++ b/Koha/Schema/Result/DebarmentType.pm
@@ -0,0 +1,102 @@
+use utf8;
+package Koha::Schema::Result::DebarmentType;
+
+# Created by DBIx::Class::Schema::Loader
+# DO NOT MODIFY THE FIRST PART OF THIS FILE
+
+=head1 NAME
+
+Koha::Schema::Result::DebarmentType
+
+=cut
+
+use strict;
+use warnings;
+
+use base 'DBIx::Class::Core';
+
+=head1 TABLE: C<debarment_types>
+
+=cut
+
+__PACKAGE__->table("debarment_types");
+
+=head1 ACCESSORS
+
+=head2 code
+
+  data_type: 'varchar'
+  is_nullable: 0
+  size: 50
+
+=head2 display_text
+
+  data_type: 'text'
+  is_nullable: 0
+
+=head2 is_system
+
+  data_type: 'tinyint'
+  default_value: 0
+  is_nullable: 0
+
+=head2 is_default
+
+  data_type: 'tinyint'
+  default_value: 0
+  is_nullable: 0
+
+=cut
+
+__PACKAGE__->add_columns(
+  "code",
+  { data_type => "varchar", is_nullable => 0, size => 50 },
+  "display_text",
+  { data_type => "text", is_nullable => 0 },
+  "is_system",
+  { data_type => "tinyint", default_value => 0, is_nullable => 0 },
+  "is_default",
+  { data_type => "tinyint", default_value => 0, is_nullable => 0 },
+);
+
+=head1 PRIMARY KEY
+
+=over 4
+
+=item * L</code>
+
+=back
+
+=cut
+
+__PACKAGE__->set_primary_key("code");
+
+=head1 RELATIONS
+
+=head2 borrower_debarments
+
+Type: has_many
+
+Related object: L<Koha::Schema::Result::BorrowerDebarment>
+
+=cut
+
+__PACKAGE__->has_many(
+  "borrower_debarments",
+  "Koha::Schema::Result::BorrowerDebarment",
+  { "foreign.type" => "self.code" },
+  { cascade_copy => 0, cascade_delete => 0 },
+);
+
+
+# Created by DBIx::Class::Schema::Loader v0.07049 @ 2022-05-04 11:05:19
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:cRSViJItfpT3mxCX82/9eQ
+
+sub koha_object_class {
+    'Koha::RestrictionType';
+}
+sub koha_objects_class {
+    'Koha::RestrictionTypes';
+}
+
+1;
-- 
2.39.5