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

(-)a/Koha/Object.pm (-2 / +2 lines)
Lines 106-112 Returns: Link Here
106
sub store {
106
sub store {
107
    my ($self) = @_;
107
    my ($self) = @_;
108
108
109
    return $self->_result()->update_or_insert() ? 1 : 0;
109
    return $self->_result()->update_or_insert() ? $self : undef;
110
}
110
}
111
111
112
=head3 $object->in_storage();
112
=head3 $object->in_storage();
Lines 190-196 sub set { Link Here
190
        }
190
        }
191
    }
191
    }
192
192
193
    return $self->_result()->set_columns($properties) ? 1 : undef;
193
    return $self->_result()->set_columns($properties) ? $self : undef;
194
}
194
}
195
195
196
=head3 $object->id();
196
=head3 $object->id();
(-)a/Koha/Objects.pm (-1 / +2 lines)
Lines 80-85 my $object = Koha::Objects->find( { keypart1 => $keypart1, keypart2 => $keypart2 Link Here
80
sub find {
80
sub find {
81
    my ( $self, $id ) = @_;
81
    my ( $self, $id ) = @_;
82
82
83
    return unless $id;
84
83
    my $result = $self->_resultset()->find($id);
85
    my $result = $self->_resultset()->find($id);
84
86
85
    my $object = $self->object_class()->_new_from_dbic( $result );
87
    my $object = $self->object_class()->_new_from_dbic( $result );
86
- 

Return to bug 13019