Attachment #104798 for bug #25429

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

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_25429.perl (+9 lines)
	1	$DBversion = 'XXX'; # will be replaced by the RM
	2	if( CheckVersion( $DBversion ) ) {
	3	$dbh->do(q{
	4	INSERT IGNORE INTO systempreferences ( `variable`, `value`, `options`, `explanation`, `type` ) VALUES
	5	('CleanUpDatabaseReturnClaims', '', '', 'Sets the age of resolved return claims to delete from the database for cleanup_database.pl', 'Integer' );
	6	});
	7
	8	NewVersion( $DBversion, 25429, "Cleanup Database - remove resolved claims returned from db after X days");
	9	}

Lines 128-133 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here

(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
128	('ClaimReturnedChargeFee', 'ask', 'ask\|charge\|no_charge', 'Controls whether or not a lost item fee is charged for return claims', 'Choice'),	128	('ClaimReturnedChargeFee', 'ask', 'ask\|charge\|no_charge', 'Controls whether or not a lost item fee is charged for return claims', 'Choice'),
129	('ClaimReturnedLostValue', '', '', 'Sets the LOST AV value that represents "Claims returned" as a lost value', 'Free'),	129	('ClaimReturnedLostValue', '', '', 'Sets the LOST AV value that represents "Claims returned" as a lost value', 'Free'),
130	('ClaimReturnedWarningThreshold', '', '', 'Sets the number of return claims past which the librarian will be warned the patron has many return claims', 'Integer'),	130	('ClaimReturnedWarningThreshold', '', '', 'Sets the number of return claims past which the librarian will be warned the patron has many return claims', 'Integer'),
		131	('CleanUpDatabaseReturnClaims', '', '', 'Sets the age of resolved return claims to delete from the database for cleanup_database.pl', 'Integer' ),
131	('CoceHost', '', NULL, 'Coce server URL', 'Free'),	132	('CoceHost', '', NULL, 'Coce server URL', 'Free'),
132	('CoceProviders', '', 'aws,gb,ol', 'Coce providers', 'multiple'),	133	('CoceProviders', '', 'aws,gb,ol', 'Coce providers', 'multiple'),
133	('COinSinOPACResults','1','','If ON, use COinS in OPAC search results page. NOTE: this can slow down search response time significantly','YesNo'),	134	('COinSinOPACResults','1','','If ON, use COinS in OPAC search results page. NOTE: this can slow down search response time significantly','YesNo'),

Lines 1153-1155 Circulation: Link Here

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (+6 lines)
1153	- pref: ClaimReturnedWarningThreshold	1153	- pref: ClaimReturnedWarningThreshold
1154	class: integer	1154	class: integer
1155	- items.	1155	- items.
		1156	-
		1157	- Remove resolved return claims older than
		1158	- pref: CleanUpDatabaseReturnClaims
		1159	class: integer
		1160	- days.
		1161	- <span class="hint">This system preference is used by the cleanup_database.pl cronjob.</span>




                           Defaults to 30 days if no days specified.

   --all-restrictions      Purge all expired patrons restrictions.
   --return-claims DAYS    Purge all resolved return claims older than DAYS.
   --del-exp-selfreg       Delete expired self registration accounts.
   --del-unv-selfreg DAYS  Delete unverified self registrations older than DAYS.
   --unique-holidays DAYS  Delete all unique holidays older than DAYS.

my $pListShareInvites;
my $pDebarments;
my $allDebarments;
my $return_claims = C4::Context->preference('CleanUpDatabaseReturnClaims');
my $pExpSelfReg;
my $pUnvSelfReg;
my $fees_days;

    'list-invites:i'    => \$pListShareInvites,
    'restrictions:i'    => \$pDebarments,
    'all-restrictions'  => \$allDebarments,
    'return-claims:i'   => \$return_claims,
    'del-exp-selfreg'   => \$pExpSelfReg,
    'del-unv-selfreg'   => \$pUnvSelfReg,
    'unique-holidays:i' => \$special_holidays_days,
- 

Return to bug 25429

Lines 87-93 Usage: $0 [-h\|--help] [--sessions] [--sessdays DAYS] [-v\|--verbose] [--zebraqueu Link Here

(-)a/misc/cronjobs/cleanup_database.pl (-4 / +1 lines)
87	Defaults to 30 days if no days specified.	87	Defaults to 30 days if no days specified.
88		88
89	--all-restrictions Purge all expired patrons restrictions.	89	--all-restrictions Purge all expired patrons restrictions.
90	--return-claims DAYS Purge all resolved return claims older than DAYS.
91	--del-exp-selfreg Delete expired self registration accounts.	90	--del-exp-selfreg Delete expired self registration accounts.
92	--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS.	91	--del-unv-selfreg DAYS Delete unverified self registrations older than DAYS.
93	--unique-holidays DAYS Delete all unique holidays older than DAYS.	92	--unique-holidays DAYS Delete all unique holidays older than DAYS.
Lines 120-126 my $pZ3950; Link Here
120	my $pListShareInvites;	119	my $pListShareInvites;
121	my $pDebarments;	120	my $pDebarments;
122	my $allDebarments;	121	my $allDebarments;
123	my $return_claims;	122	my $return_claims = C4::Context->preference('CleanUpDatabaseReturnClaims');
124	my $pExpSelfReg;	123	my $pExpSelfReg;
125	my $pUnvSelfReg;	124	my $pUnvSelfReg;
126	my $fees_days;	125	my $fees_days;
Lines 152-158 GetOptions( Link Here
152	'list-invites:i' => \$pListShareInvites,	151	'list-invites:i' => \$pListShareInvites,
153	'restrictions:i' => \$pDebarments,	152	'restrictions:i' => \$pDebarments,
154	'all-restrictions' => \$allDebarments,	153	'all-restrictions' => \$allDebarments,
155	'return-claims:i' => \$return_claims,
156	'del-exp-selfreg' => \$pExpSelfReg,	154	'del-exp-selfreg' => \$pExpSelfReg,
157	'del-unv-selfreg' => \$pUnvSelfReg,	155	'del-unv-selfreg' => \$pUnvSelfReg,
158	'unique-holidays:i' => \$special_holidays_days,	156	'unique-holidays:i' => \$special_holidays_days,
159	-