Lines 125-130
Returns:
Link Here
|
125 |
sub store { |
125 |
sub store { |
126 |
my ($self) = @_; |
126 |
my ($self) = @_; |
127 |
|
127 |
|
|
|
128 |
return $self if ( ( caller() )[0] eq 'Template::Document' ); |
129 |
|
128 |
my $columns_info = $self->_result->result_source->columns_info; |
130 |
my $columns_info = $self->_result->result_source->columns_info; |
129 |
|
131 |
|
130 |
# Handle not null and default values for integers and dates |
132 |
# Handle not null and default values for integers and dates |
Lines 230-235
Returns:
Link Here
|
230 |
sub delete { |
232 |
sub delete { |
231 |
my ($self) = @_; |
233 |
my ($self) = @_; |
232 |
|
234 |
|
|
|
235 |
return $self if ( ( caller() )[0] eq 'Template::Document' ); |
236 |
|
233 |
my $deleted = $self->_result()->delete; |
237 |
my $deleted = $self->_result()->delete; |
234 |
if ( ref $deleted ) { |
238 |
if ( ref $deleted ) { |
235 |
my $object_class = Koha::Object::_get_object_class( $self->_result->result_class ); |
239 |
my $object_class = Koha::Object::_get_object_class( $self->_result->result_class ); |
Lines 826-831
sub AUTOLOAD {
Link Here
|
826 |
) unless grep { $_ eq $method } @known_methods; |
830 |
) unless grep { $_ eq $method } @known_methods; |
827 |
|
831 |
|
828 |
|
832 |
|
|
|
833 |
if ( $method eq 'update' ) { |
834 |
return $self if ( ( caller() )[0] eq 'Template::Document' ); |
835 |
} |
836 |
|
829 |
my $r = eval { $self->_result->$method(@_) }; |
837 |
my $r = eval { $self->_result->$method(@_) }; |
830 |
if ( $@ ) { |
838 |
if ( $@ ) { |
831 |
Koha::Exceptions::Object->throw( ref($self) . "::$method generated this error: " . $@ ); |
839 |
Koha::Exceptions::Object->throw( ref($self) . "::$method generated this error: " . $@ ); |