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

(-)a/Koha/Object.pm (+8 lines)
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: " . $@ );
(-)a/Koha/Objects.pm (-2 / +4 lines)
Lines 589-595 sub AUTOLOAD { Link Here
589
    my $method = our $AUTOLOAD;
589
    my $method = our $AUTOLOAD;
590
    $method =~ s/.*:://;
590
    $method =~ s/.*:://;
591
591
592
593
    unless ( grep { $_ eq $method } @known_methods ) {
592
    unless ( grep { $_ eq $method } @known_methods ) {
594
        my $class = ref($self) ? ref($self) : $self;
593
        my $class = ref($self) ? ref($self) : $self;
595
        Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
594
        Koha::Exceptions::Object::MethodNotCoveredByTests->throw(
Lines 598-603 sub AUTOLOAD { Link Here
598
        );
597
        );
599
    }
598
    }
600
599
600
    if ( $method eq 'update' || $method eq 'delete' ) {
601
        return $self if ( ( caller() )[0] eq 'Template::Document' );
602
    }
603
601
    my $r = eval { $self->_resultset->$method(@params) };
604
    my $r = eval { $self->_resultset->$method(@params) };
602
    if ( $@ ) {
605
    if ( $@ ) {
603
        carp "No method $method found for " . ref($self) . " " . $@;
606
        carp "No method $method found for " . ref($self) . " " . $@;
604
- 

Return to bug 28739