| 
      
            Lines 21-27
          package Koha::Patron;
      
      
        Link Here
      
     | 
  
        
          | 21 | 
          use Modern::Perl;  | 
          21 | 
          use Modern::Perl;  | 
        
        
          | 22 | 
           | 
          22 | 
           | 
        
        
          | 23 | 
          use Carp;  | 
          23 | 
          use Carp;  | 
        
          
            
              | 24 | 
              use List::MoreUtils qw( uniq );  | 
              24 | 
              use List::MoreUtils qw( any uniq );  | 
            
        
          | 25 | 
          use JSON qw( to_json );  | 
          25 | 
          use JSON qw( to_json );  | 
        
        
          | 26 | 
          use Text::Unaccent qw( unac_string );  | 
          26 | 
          use Text::Unaccent qw( unac_string );  | 
        
        
          | 27 | 
           | 
          27 | 
           | 
        
  
    | 
      
            Lines 260-266
          sub store {
      
      
        Link Here
      
     | 
  
        
          | 260 | 
                              my $info;  | 
          260 | 
                              my $info;  | 
        
        
          | 261 | 
                              my $from_storage = $self_from_storage->unblessed;  | 
          261 | 
                              my $from_storage = $self_from_storage->unblessed;  | 
        
        
          | 262 | 
                              my $from_object  = $self->unblessed;  | 
          262 | 
                              my $from_object  = $self->unblessed;  | 
        
            
               | 
               | 
              263 | 
                                  my @skip_fields  = (qw/lastseen/);  | 
            
        
          | 263 | 
                              for my $key ( keys %{$from_storage} ) { | 
          264 | 
                              for my $key ( keys %{$from_storage} ) { | 
        
            
               | 
               | 
              265 | 
                                      next if any { /$key/ } @skip_fields; | 
            
        
          | 264 | 
                                  if (  | 
          266 | 
                                  if (  | 
        
        
          | 265 | 
                                      (  | 
          267 | 
                                      (  | 
        
        
          | 266 | 
                                            !defined( $from_storage->{$key} ) | 
          268 | 
                                            !defined( $from_storage->{$key} ) | 
        
  
    | 
      
            Lines 294-304
          sub store {
      
      
        Link Here
      
     | 
  
        
          | 294 | 
                                      )  | 
          296 | 
                                      )  | 
        
        
          | 295 | 
                                  );  | 
          297 | 
                                  );  | 
        
        
          | 296 | 
                              }  | 
          298 | 
                              }  | 
        
            
              | 297 | 
                                  else { | 
               | 
               | 
            
            
              | 298 | 
                                      logaction( "MEMBERS", "MODIFY", $self->borrowernumber,  | 
            
            
              | 299 | 
                                          "NON-STANDARD FIELD CHANGED" );  | 
            
            
              | 300 | 
               | 
            
            
              | 301 | 
                                  }  | 
            
        
          | 302 | 
                          }  | 
          299 | 
                          }  | 
        
        
          | 303 | 
           | 
          300 | 
           | 
        
        
          | 304 | 
                          # Final store  | 
          301 | 
                          # Final store  | 
        
            
              | 305 | 
              -   | 
               | 
               |