From 997094cc38a46372777f39f0bfa249b87fe76d58 Mon Sep 17 00:00:00 2001
From: Martin Renvoize <martin.renvoize@ptfs-europe.com>
Date: Fri, 17 Jul 2020 07:44:45 +0100
Subject: [PATCH] Bug 25998: (QA follow-up) Add DBIC level relation

Signed-off-by: Tomas Cohen Arazi <tomascohen@theke.io>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 Koha/Account/Line.pm              |  2 +-
 Koha/Schema/Result/Accountline.pm | 20 ++++++++++++++++++++
 2 files changed, 21 insertions(+), 1 deletion(-)

diff --git a/Koha/Account/Line.pm b/Koha/Account/Line.pm
index ce00de0623..7ed59a9ed0 100644
--- a/Koha/Account/Line.pm
+++ b/Koha/Account/Line.pm
@@ -93,7 +93,7 @@ Returns a Koha::Library object representing where the accountline was recorded
 
 sub library {
     my ( $self ) = @_;
-    my $rs = $self->_result->branchcode;
+    my $rs = $self->_result->library;
     return unless $rs;
     return Koha::Library->_new_from_dbic($rs);
 }
diff --git a/Koha/Schema/Result/Accountline.pm b/Koha/Schema/Result/Accountline.pm
index 12bb08c17e..2b14943d34 100644
--- a/Koha/Schema/Result/Accountline.pm
+++ b/Koha/Schema/Result/Accountline.pm
@@ -370,6 +370,26 @@ __PACKAGE__->belongs_to(
 # Created by DBIx::Class::Schema::Loader v0.07046 @ 2020-03-19 09:20:20
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:BuE4CYsSH4BwXZoQKE2MWw
 
+=head2 library
+
+Type: belongs_to
+
+Related object: L<Koha::Schema::Result::Branch>
+
+=cut
+
+__PACKAGE__->belongs_to(
+  "library",
+  "Koha::Schema::Result::Branch",
+  { branchcode => "branchcode" },
+  {
+    is_deferrable => 1,
+    join_type     => "LEFT",
+    on_delete     => "SET NULL",
+    on_update     => "CASCADE",
+  },
+);
+
 sub koha_objects_class {
     'Koha::Account::Lines';
 }
-- 
2.11.4.GIT