|
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 |
- |
|
|