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