split /\s*\|\s*/, C4::Context->preference('BorrowerMandatoryField') };
$mandatory->{userid} = 1; # needed since sub store does not clear field
my @columns = $self->_result->result_source->columns;
- @columns = grep { !/borrowernumber|branchcode|categorycode|^date|password|flags|updated_on|lastseen|lang|login_attempts|flgAnonymized/ } @columns;
+ @columns = grep { !/borrowernumber|branchcode|categorycode|^date|password|flags|updated_on|lastseen|lang|login_attempts|anonymized/ } @columns;
push @columns, 'dateofbirth'; # add this date back in
foreach my $col (@columns) {
$self->_anonymize_column($col, $mandatory->{lc $col} );
}
- $self->flgAnonymized(1)->store;
+ $self->anonymized(1)->store;
}
sub _anonymize_column {
my $dt = dt_from_string()->subtract( days => $delay );
my $str = $parser->format_datetime($dt);
$cond->{dateexpiry} = { '<=' => $str };
- $cond->{flgAnonymized} = [ undef, 0 ]; # not yet done
+ $cond->{anonymized} = 0; # not yet done
if( $params->{locked} ) {
my $fails = C4::Context->preference('FailedLoginAttempts');
$cond->{login_attempts} = [ -and => { '!=' => undef }, { -not_in => [0, 1..$fails-1 ] } ]; # -not_in does not like undef
my $dt = dt_from_string()->subtract( days => $delay );
my $str = $parser->format_datetime($dt);
$cond->{dateexpiry} = { '<=' => $str };
- $cond->{flgAnonymized} = 1;
+ $cond->{anonymized} = 1;
return $class->search( $cond );
}
plan tests => 5;
my $patron1 = $builder->build_object({ class => 'Koha::Patrons' });
my $patron2 = $builder->build_object({ class => 'Koha::Patrons' });
- $patron1->flgAnonymized(0);
+ $patron1->anonymized(0);
$patron1->dateexpiry( dt_from_string->add(days => 1) )->store;
- $patron2->flgAnonymized(undef);
+ $patron2->anonymized(0);
$patron2->dateexpiry( dt_from_string->add(days => 1) )->store;
t::lib::Mocks::mock_preference( 'PatronAnonymizeDelay', q{} );
t::lib::Mocks::mock_preference( 'PatronRemovalDelay', 1 );
$patron1->dateexpiry( dt_from_string );
- $patron1->flgAnonymized(0)->store;
+ $patron1->anonymized(0)->store;
my $cnt = Koha::Patrons->search_anonymized->count;
- $patron1->flgAnonymized(1)->store;
+ $patron1->anonymized(1)->store;
is( Koha::Patrons->search_anonymized->count, $cnt, 'Number unchanged' );
$patron1->dateexpiry( dt_from_string->subtract(days => 1) )->store;
is( Koha::Patrons->search_anonymized->count, $cnt+1, 'Found patron1' );
my $surname = $patron1->surname; # expect change, no clear
my $branchcode = $patron1->branchcode; # expect skip
$patron1->anonymize;
- is($patron1->flgAnonymized, 1, 'Check flag' );
+ is($patron1->anonymized, 1, 'Check flag' );
is( $patron1->dateofbirth, undef, 'Birth date cleared' );
is( $patron1->firstname, undef, 'First name cleared' );