Lines 35-45
BEGIN {
Link Here
|
35 |
eval { require "$FindBin::Bin/../kohalib.pl" }; |
35 |
eval { require "$FindBin::Bin/../kohalib.pl" }; |
36 |
} |
36 |
} |
37 |
|
37 |
|
|
|
38 |
use Getopt::Long; |
39 |
|
38 |
use C4::Context; |
40 |
use C4::Context; |
39 |
use C4::Dates; |
41 |
use C4::Dates; |
40 |
use C4::Search; |
42 |
use C4::Search; |
41 |
use Getopt::Long; |
|
|
42 |
use C4::Log; |
43 |
use C4::Log; |
|
|
44 |
use Koha::DateUtils; |
43 |
|
45 |
|
44 |
sub usage { |
46 |
sub usage { |
45 |
print STDERR <<USAGE; |
47 |
print STDERR <<USAGE; |
Lines 69-76
Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu
Link Here
|
69 |
days. Defaults to 14 days if no days specified. |
71 |
days. Defaults to 14 days if no days specified. |
70 |
--restrictions DAYS purge patrons restrictions expired since more than DAYS days. |
72 |
--restrictions DAYS purge patrons restrictions expired since more than DAYS days. |
71 |
Defaults to 30 days if no days specified. |
73 |
Defaults to 30 days if no days specified. |
72 |
--all-restrictions purge all expired patrons restrictions. |
74 |
--all-restrictions purge all expired patrons restrictions. |
73 |
--del-exp-selfreg Delete expired self registration accounts |
75 |
--del-exp-selfreg Delete expired self registration accounts |
74 |
--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS |
76 |
--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS |
75 |
--holidays DAYS purge special holidays that passed more then DAYS days ago. |
77 |
--holidays DAYS purge special holidays that passed more then DAYS days ago. |
76 |
Defaults to 30 days of no days specified. |
78 |
Defaults to 30 days of no days specified. |
Lines 391-401
sub DeleteUnverifiedSelfRegs {
Link Here
|
391 |
} |
393 |
} |
392 |
|
394 |
|
393 |
sub PurgeHolidays { |
395 |
sub PurgeHolidays { |
|
|
396 |
my $date = dt_from_string(); |
397 |
$date->subtract( days => $pHolidays ); |
398 |
|
394 |
$sth = $dbh->prepare( |
399 |
$sth = $dbh->prepare( |
395 |
q{ |
400 |
q{ |
396 |
DELETE FROM special_holidays |
401 |
DELETE FROM special_holidays |
397 |
WHERE DATE( CONCAT( year, '-', month, '-', day ) ) < DATE_SUB( CURDATE(), INTERVAL ? DAY ) |
402 |
WHERE DATE( CONCAT( year, '-', month, '-', day ) ) < ? |
398 |
} |
403 |
} |
399 |
); |
404 |
); |
400 |
$sth->execute( $pHolidays ) or die $dbh->errstr; |
405 |
$sth->execute( $date->ymd ) or die $dbh->errstr; |
401 |
} |
406 |
} |
402 |
- |
|
|