From c2a86a4ee0003ae6f1f9fb5f265821cfbcb3350e Mon Sep 17 00:00:00 2001
From: Jonathan Druart <jonathan.druart@biblibre.com>
Date: Mon, 7 Jul 2014 14:57:25 +0200
Subject: [PATCH] Bug 13713: Remove useless constraints previously added

This patch removes the 3 constraints added by patch from bug 11518.
Having 1-n + 1-1 relations for the same field is a non-sense.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Added a follow-up for removing some unneeded code.

Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 Koha/Schema/Result/Biblio.pm | 10 +++++-----
 Koha/Schema/Result/Item.pm   | 16 +++++-----------
 t/db_dependent/Items.t       |  3 +--
 3 files changed, 11 insertions(+), 18 deletions(-)

diff --git a/Koha/Schema/Result/Biblio.pm b/Koha/Schema/Result/Biblio.pm
index 5f2e39930c..b61086e26f 100644
--- a/Koha/Schema/Result/Biblio.pm
+++ b/Koha/Schema/Result/Biblio.pm
@@ -331,10 +331,10 @@ __PACKAGE__->many_to_many("sets", "oai_sets_biblios", "set");
 # Created by DBIx::Class::Schema::Loader v0.07025 @ 2013-10-14 20:56:21
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:0//8OGf7OteNnwT03g4QsA
 
-__PACKAGE__->belongs_to(
-    "biblioitem",
-    "Koha::Schema::Result::Biblioitem",
-    { "foreign.biblionumber" => "self.biblionumber" }
-);
+sub biblioitem {
+    my ( $self ) = @_;
+    my @biblioitems = $self->biblioitems;
+    return $biblioitems[0];
+}
 
 1;
diff --git a/Koha/Schema/Result/Item.pm b/Koha/Schema/Result/Item.pm
index 8ea22e36b5..c199685f9f 100644
--- a/Koha/Schema/Result/Item.pm
+++ b/Koha/Schema/Result/Item.pm
@@ -612,17 +612,11 @@ __PACKAGE__->might_have(
 # Created by DBIx::Class::Schema::Loader v0.07039 @ 2014-10-24 09:58:16
 # DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:2slVK/FjcRDiYLeufoOFQQ
 
-__PACKAGE__->belongs_to(
-    "biblio",
-    "Koha::Schema::Result::Biblio",
-    { "foreign.biblionumber" => "self.biblionumber" }
-);
-
-__PACKAGE__->belongs_to(
-  "biblioitem",
-  "Koha::Schema::Result::Biblioitem",
-  { biblioitemnumber => "biblioitemnumber" },
-);
+sub biblioitem {
+    my ( $self ) = @_;
+    my @biblioitems = $self->biblioitemnumber;
+    return $biblioitems[0];
+}
 
 sub effective_itemtype {
     my ( $self ) = @_;
diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t
index dfb165416f..4f9ee41bc1 100755
--- a/t/db_dependent/Items.t
+++ b/t/db_dependent/Items.t
@@ -215,8 +215,7 @@ subtest q{Test Koha::Database->schema()->resultset('Item')->itemtype()} => sub {
         }
     );
 
-    my $biblioitem = $biblio->biblioitem();
-    my ( $item ) = $biblioitem->items();
+    my ( $item ) = $biblio->biblioitem->items();
 
     C4::Context->set_preference( 'item-level_itypes', 0 );
     ok( $item->effective_itemtype() eq 'BIB_LEVEL', '$item->itemtype() returns biblioitem.itemtype when item-level_itypes is disabled' );
-- 
2.39.5