@@ -, +, @@ --- Koha/Object.pm | 13 ------------- Koha/Objects.pm | 15 --------------- 2 files changed, 28 deletions(-) --- a/Koha/Object.pm +++ a/Koha/Object.pm @@ -846,19 +846,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. --- a/Koha/Objects.pm +++ a/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? ); --