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

(-)a/Koha/BackgroundJob/PseudonymizeStatistic.pm (-1 / +1 lines)
Lines 52-58 sub process { Link Here
52
    $self->start;
52
    $self->start;
53
    my $statistic   = $args->{statistic};
53
    my $statistic   = $args->{statistic};
54
    my $stat_object = Koha::Statistic->new($statistic);
54
    my $stat_object = Koha::Statistic->new($statistic);
55
    Koha::PseudonymizedTransaction->new_from_statistic($stat_object)->store();
55
    Koha::PseudonymizedTransaction->new_from_statistic($stat_object);
56
    $self->finish( { data => "" } );    # We want to clear the job data to avoid storing patron information
56
    $self->finish( { data => "" } );    # We want to clear the job data to avoid storing patron information
57
57
58
}
58
}
(-)a/Koha/PseudonymizedTransaction.pm (+2 lines)
Lines 96-101 sub new_from_statistic { Link Here
96
96
97
    my $self = $class->SUPER::new($values);
97
    my $self = $class->SUPER::new($values);
98
98
99
    $self->store();
100
99
    if ($patron) {
101
    if ($patron) {
100
        my $extended_attributes = $patron->extended_attributes->unblessed;
102
        my $extended_attributes = $patron->extended_attributes->unblessed;
101
        for my $attribute (@$extended_attributes) {
103
        for my $attribute (@$extended_attributes) {
(-)a/t/db_dependent/Koha/Pseudonymization.t (-4 / +3 lines)
Lines 135-141 subtest 'Koha::Anonymized::Transactions tests' => sub { Link Here
135
    is( $pseudonymized->itemcallnumber,         $item->itemcallnumber,     'itemcallnumber copied correctly' );
135
    is( $pseudonymized->itemcallnumber,         $item->itemcallnumber,     'itemcallnumber copied correctly' );
136
    is( $pseudonymized->ccode,                  $item->ccode,              'ccode copied correctly' );
136
    is( $pseudonymized->ccode,                  $item->ccode,              'ccode copied correctly' );
137
137
138
    my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store;
138
    my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($statistic);
139
139
140
    isnt(
140
    isnt(
141
        $pseudonymized->id,
141
        $pseudonymized->id,
Lines 223-229 subtest 'PseudonymizedBorrowerAttributes tests' => sub { Link Here
223
        }
223
        }
224
    );
224
    );
225
225
226
    my $p = Koha::PseudonymizedTransaction->new_from_statistic($statistic)->store;
226
    my $p = Koha::PseudonymizedTransaction->new_from_statistic($statistic);
227
    my $attributes =
227
    my $attributes =
228
        Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute')
228
        Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute')
229
        ->search( { transaction_id => $p->id }, { order_by => 'attribute' } );
229
        ->search( { transaction_id => $p->id }, { order_by => 'attribute' } );
Lines 258-264 subtest 'PseudonymizedBorrowerAttributes tests' => sub { Link Here
258
        }
258
        }
259
    );
259
    );
260
260
261
    my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($second_statistic)->store;
261
    my $next_p = Koha::PseudonymizedTransaction->new_from_statistic($second_statistic);
262
    my $next_attributes =
262
    my $next_attributes =
263
        Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute')
263
        Koha::Database->new->schema->resultset('PseudonymizedBorrowerAttribute')
264
        ->search( { transaction_id => $next_p->id }, { order_by => 'attribute' } );
264
        ->search( { transaction_id => $next_p->id }, { order_by => 'attribute' } );
265
- 

Return to bug 39652