Koha/BackgroundJob/PseudonymizeStatistic.pm

   1 package Koha::BackgroundJob::PseudonymizeStatistic;
   2
   3 # This file is part of Koha.
   4 #
   5 # Koha is free software; you can redistribute it and/or modify it
   6 # under the terms of the GNU General Public License as published by
   7 # the Free Software Foundation; either version 3 of the License, or
   8 # (at your option) any later version.
   9 #
  10 # Koha is distributed in the hope that it will be useful, but
  11 # WITHOUT ANY WARRANTY; without even the implied warranty of
  12 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  13 # GNU General Public License for more details.
  14 #
  15 # You should have received a copy of the GNU General Public License
  16 # along with Koha; if not, see <http://www.gnu.org/licenses>.
  17
  18 use Modern::Perl;
  19
  20 use Koha::PseudonymizedTransactions;
  21
  22 use base 'Koha::BackgroundJob';
  23
  24 =head1 NAME
  25
  26 Koha::BackgroundJob::PseudonymizeStatistic - Pseudonymize statistics background job
  27
  28 This is a subclass of Koha::BackgroundJob.
  29
  30 =head1 API
  31
  32 =head2 Class methods
  33
  34 =head3 job_type
  35
  36 Define the job type of this job: pseudonymize_statistic
  37
  38 =cut
  39
  40 sub job_type {
  41     return 'pseudonymize_statistic';
  42 }
  43
  44 =head3 process
  45
  46 Process the modification.
  47
  48 =cut
  49
  50 sub process {
  51     my ( $self, $args ) = @_;
  52     $self->start;
  53     my $statistic   = $args->{statistic};
  54     my $stat_object = Koha::Statistic->new($statistic);
  55     Koha::PseudonymizedTransaction->new_from_statistic($stat_object)->store();
  56     $self->finish( { data => "" } );    # We want to clear the job data to avoid storing patron information
  57
  58 }
  59
  60 =head3 enqueue
  61
  62 Enqueue the new job
  63
  64 =cut
  65
  66 sub enqueue {
  67     my ( $self, $args ) = @_;
  68
  69     my $statistic = $args->{statistic};
  70     Koha::Exceptions::MissingParameter->throw("Missing statistic parameter is mandatory")
  71         unless $statistic;
  72
  73     $self->SUPER::enqueue(
  74         {
  75             job_size  => 1,                             # Only handling one at time
  76             job_args  => { statistic => $statistic },
  77             job_queue => 'default',
  78         }
  79     );
  80 }
  81
  82 1;