diff --git a/Koha/Object.pm b/Koha/Object.pm index b1895c060e..c05a923cfe 100644 --- a/Koha/Object.pm +++ b/Koha/Object.pm @@ -896,19 +896,6 @@ sub _get_object_class { return ${type}; } -sub _get_objects_class { - my ( $self ) = @_; - return unless $self; - - if ( $self->_result->can('koha_objects_class') ) { - return $self->_result->koha_objects_class; - } - my $type = ref($self); - - $type =~ s|Schema::Result::||; - return $type . "s"; -} - =head3 AUTOLOAD The autoload method is used only to get and set values for an objects properties. diff --git a/Koha/Objects.pm b/Koha/Objects.pm index 706ddba69e..dc3d044bd3 100644 --- a/Koha/Objects.pm +++ b/Koha/Objects.pm @@ -142,21 +142,6 @@ sub search { return $class->_new_from_dbic($rs); } -=head3 search_limited - - my $rs = $self->search_limited - -Generic method that is just a pass through for I. It is expected to be overloaded -locally on classes. It's main purpose is to avoid the need to check if the class implements -the method locally. - -=cut - -sub search_limited { - my ( $self, $params, $attributes ) = @_; - return $self->search( $params, $attributes ); -} - =head3 search_related my $objects = Koha::Objects->search_related( $rel_name, $cond?, \%attrs? );