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

(-)a/installer/data/mysql/atomicupdate/bug_25429.perl (+9 lines)
Line 0 Link Here
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
}
(-)a/installer/data/mysql/sysprefs.sql (+1 lines)
Lines 128-133 INSERT INTO systempreferences ( `variable`, `value`, `options`, `explanation`, ` Link Here
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'),
(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/preferences/circulation.pref (+6 lines)
Lines 1153-1155 Circulation: Link Here
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>
(-)a/misc/cronjobs/cleanup_database.pl (-4 / +1 lines)
Lines 87-93 Usage: $0 [-h|--help] [--sessions] [--sessdays DAYS] [-v|--verbose] [--zebraqueu Link Here
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
- 

Return to bug 25429