|
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: " . $@ ); |