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

(-)a/Koha/Object.pm (-3 / +11 lines)
Lines 318-325 Returns an unblessed representation of object. Link Here
318
318
319
sub unblessed {
319
sub unblessed {
320
    my ($self) = @_;
320
    my ($self) = @_;
321
321
    my %res = $self->_result->get_columns;
322
    return { $self->_result->get_columns };
322
    for my $k (keys %res) {
323
        my $reftype = ref $res{$k};
324
        # overwrite current object-vaule with it's unblessed value
325
        if( $reftype eq 'DateTime' ) {
326
            $res{$k} = $res{$k}->stringify;
327
        } elsif( $reftype ne '' ) {
328
            warn "Don't know how to unbless ref '$reftype'";
329
        }
330
    }
331
    return \%res;
323
}
332
}
324
333
325
=head3 $object->get_from_storage;
334
=head3 $object->get_from_storage;
326
- 

Return to bug 28700