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

(-)a/Koha/PseudonymizedTransaction.pm (-1 / +35 lines)
Lines 22-27 use List::MoreUtils qw(any); Link Here
22
use Koha::Database;
22
use Koha::Database;
23
use Koha::Exceptions::Config;
23
use Koha::Exceptions::Config;
24
use Koha::Patrons;
24
use Koha::Patrons;
25
use Koha::ILL::Requests;
25
26
26
use base qw(Koha::Object);
27
use base qw(Koha::Object);
27
28
Lines 120-125 sub create_from_statistic { Link Here
120
        }
121
        }
121
    }
122
    }
122
123
124
    if ( $statistic->illrequest_id ) {
125
        my $illrequest = Koha::ILL::Requests->find( $statistic->illrequest_id );
126
        if ($illrequest) {
127
            my @illattributes_to_pseudonymize = qw(
128
                type
129
            );
130
131
            my $extended_attributes_to_pseudonymize =
132
                $illrequest->extended_attributes->search( { type => { -in => \@illattributes_to_pseudonymize } } );
133
134
            while ( my $attribute = $extended_attributes_to_pseudonymize->next ) {
135
                $self->_result->create_related(
136
                    'pseudonymized_metadata_values',
137
                    {
138
                        key       => $attribute->type,
139
                        value     => $attribute->value,
140
                        tablename => 'illrequestattributes',
141
                    }
142
                );
143
            }
144
145
            if ( $illrequest->backend ) {
146
                $self->_result->create_related(
147
                    'pseudonymized_metadata_values',
148
                    {
149
                        key       => 'backend',
150
                        value     => $illrequest->backend,
151
                        tablename => 'illrequestattributes',
152
                    }
153
                );
154
            }
155
        }
156
    }
157
123
    return $self;
158
    return $self;
124
}
159
}
125
160
126
- 

Return to bug 37901