From 14a3396765df74f6259cbc2ab60e86b370af6d4d Mon Sep 17 00:00:00 2001 From: Marcel de Rooy 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 --- 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 b61086e..9fd413b 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 c199685..f883659 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 4f9ee41..b41b483 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.1.0