From 1d0143641fd27e36353653933e4b78643393a592 Mon Sep 17 00:00:00 2001
From: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>
Date: Thu, 28 Aug 2014 11:58:10 +0200
Subject: [PATCH] Bug 13713: Follow-up removing biblioitem routines

There is no need to define biblioitem routines, if we can access them
via biblioitemnumber.
Note that we actually need a FK for biblio in the items table. Now we do
need the intermediate level via biblioitems in the Items.t code. Even better,
we should move biblioitem to biblio. Formally it is 1-n, but in reality it
is 1-1.

Signed-off-by: Marcel de Rooy <m.de.rooy@rijksmuseum.nl>

Signed-off-by: Kyle M Hall <kyle@bywatersolutions.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@gmail.com>
---
 Koha/Schema/Result/Biblio.pm | 6 ------
 Koha/Schema/Result/Item.pm   | 8 +-------
 t/db_dependent/Items.t       | 3 ++-
 3 files changed, 3 insertions(+), 14 deletions(-)

diff --git a/Koha/Schema/Result/Biblio.pm b/Koha/Schema/Result/Biblio.pm
index b61086e26f..9fd413b663 100644
--- a/Koha/Schema/Result/Biblio.pm
+++ b/Koha/Schema/Result/Biblio.pm
@@ -331,10 +331,4 @@ __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
 
-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 c199685f9f..f883659184 100644
--- a/Koha/Schema/Result/Item.pm
+++ b/Koha/Schema/Result/Item.pm
@@ -612,12 +612,6 @@ __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
 
-sub biblioitem {
-    my ( $self ) = @_;
-    my @biblioitems = $self->biblioitemnumber;
-    return $biblioitems[0];
-}
-
 sub effective_itemtype {
     my ( $self ) = @_;
 
@@ -625,7 +619,7 @@ sub effective_itemtype {
     if ( $pref->value() ) {
         return $self->itype();
     } else {
-        return $self->biblioitem()->itemtype();
+        return $self->biblioitemnumber()->itemtype();
     }
 }
 
diff --git a/t/db_dependent/Items.t b/t/db_dependent/Items.t
index 4f9ee41bc1..b41b483897 100755
--- a/t/db_dependent/Items.t
+++ b/t/db_dependent/Items.t
@@ -215,7 +215,8 @@ subtest q{Test Koha::Database->schema()->resultset('Item')->itemtype()} => sub {
         }
     );
 
-    my ( $item ) = $biblio->biblioitem->items();
+    my @bi = $biblio->biblioitems();
+    my ( $item ) = $bi[0]->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