|
Lines 279-284
sub unblessed {
Link Here
|
| 279 |
sub get_from_storage { |
279 |
sub get_from_storage { |
| 280 |
my ( $self, $attrs ) = @_; |
280 |
my ( $self, $attrs ) = @_; |
| 281 |
my $stored_object = $self->_result->get_from_storage($attrs); |
281 |
my $stored_object = $self->_result->get_from_storage($attrs); |
|
|
282 |
return unless $stored_object; |
| 282 |
my $object_class = Koha::Object::_get_object_class( $self->_result->result_class ); |
283 |
my $object_class = Koha::Object::_get_object_class( $self->_result->result_class ); |
| 283 |
return $object_class->_new_from_dbic($stored_object); |
284 |
return $object_class->_new_from_dbic($stored_object); |
| 284 |
} |
285 |
} |
| 285 |
- |
|
|