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