View | Details | Raw Unified | Return to bug 22033
Collapse All | Expand All

(-)a/Koha/Object.pm (-3 / +2 lines)
Lines 321-327 sub unblessed_all_relateds { Link Here
321
321
322
    my %data;
322
    my %data;
323
    my $related_resultsets = $self->_result->{related_resultsets} || {};
323
    my $related_resultsets = $self->_result->{related_resultsets} || {};
324
    my $rs = $self;
324
    my $rs = $self->_result;
325
    while ( $related_resultsets and %$related_resultsets ) {
325
    while ( $related_resultsets and %$related_resultsets ) {
326
        my @relations = keys %{ $related_resultsets };
326
        my @relations = keys %{ $related_resultsets };
327
        if ( @relations ) {
327
        if ( @relations ) {
Lines 404-410 sub AUTOLOAD { Link Here
404
        }
404
        }
405
    }
405
    }
406
406
407
    my @known_methods = qw( is_changed id in_storage get_column discard_changes update related_resultset make_column_dirty );
407
    my @known_methods = qw( is_changed id in_storage get_column discard_changes update make_column_dirty );
408
408
409
    Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
409
    Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
410
        error      => sprintf("The method %s->%s is not covered by tests!", ref($self), $method),
410
        error      => sprintf("The method %s->%s is not covered by tests!", ref($self), $method),
411
- 

Return to bug 22033