|
Lines 180-186
sub anonymize_last_borrowers {
Link Here
|
| 180 |
|
180 |
|
| 181 |
return unless C4::Context->preference("AnonymizeLastBorrower"); |
181 |
return unless C4::Context->preference("AnonymizeLastBorrower"); |
| 182 |
my $days = C4::Context->preference("AnonymizeLastBorrowerDays") || 0; |
182 |
my $days = C4::Context->preference("AnonymizeLastBorrowerDays") || 0; |
| 183 |
my ( $year, $month, $day ) = Today(); |
183 |
my ( $year, $month, $day ) = Today(); |
| 184 |
my ( $newyear, $newmonth, $newday ) = Add_Delta_Days( $year, $month, $day, (-1) * $days ); |
184 |
my ( $newyear, $newmonth, $newday ) = Add_Delta_Days( $year, $month, $day, (-1) * $days ); |
| 185 |
my $older_than_date = dt_from_string( sprintf "%4d-%02d-%02d", $newyear, $newmonth, $newday ); |
185 |
my $older_than_date = dt_from_string( sprintf "%4d-%02d-%02d", $newyear, $newmonth, $newday ); |
| 186 |
|
186 |
|
|
Lines 189-195
sub anonymize_last_borrowers {
Link Here
|
| 189 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
189 |
my $dtf = Koha::Database->new->schema->storage->datetime_parser; |
| 190 |
my $rs = $self->_resultset->search( |
190 |
my $rs = $self->_resultset->search( |
| 191 |
{ |
191 |
{ |
| 192 |
created_on => { '<' => $dtf->format_datetime($older_than_date), }, |
192 |
created_on => { '<' => $dtf->format_datetime($older_than_date), }, |
| 193 |
'items_last_borrowers.borrowernumber' => { 'not' => undef }, # Keep forever |
193 |
'items_last_borrowers.borrowernumber' => { 'not' => undef }, # Keep forever |
| 194 |
( $anonymous_patron ? ( 'items_last_borrowers.borrowernumber' => { '!=' => $anonymous_patron } ) : () ), |
194 |
( $anonymous_patron ? ( 'items_last_borrowers.borrowernumber' => { '!=' => $anonymous_patron } ) : () ), |
| 195 |
}, |
195 |
}, |
| 196 |
- |
|
|