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

(-)a/misc/cronjobs/cleanup_database.pl (-2 / +14 lines)
Lines 143-149 my $pDebarments; Link Here
143
my $allDebarments;
143
my $allDebarments;
144
my $return_claims;
144
my $return_claims;
145
my $pExpSelfReg;
145
my $pExpSelfReg;
146
if (
147
    C4::Context->preference('PatronSelfRegistrationExpireTemporaryAccountsDelay') &&
148
    C4::Context->preference('PatronSelfRegistrationExpireTemporaryAccountsDelay') > 0
149
   ){
150
    $pExpSelfReg = 1;
151
}
146
my $pUnvSelfReg;
152
my $pUnvSelfReg;
153
if (
154
    C4::Context->preference('PatronSelfRegistrationVerifyByEmail')
155
   ){
156
    #Default to 1 day expiry, which can be overriden by CLI option
157
    #FIXME: Add a system preference for specifying this value
158
    $pUnvSelfReg = 1;
159
}
147
my $fees_days;
160
my $fees_days;
148
my $special_holidays_days;
161
my $special_holidays_days;
149
my $temp_uploads;
162
my $temp_uploads;
Lines 508-514 if( $pUnvSelfReg ) { Link Here
508
    if ( $confirm ) {
521
    if ( $confirm ) {
509
        DeleteUnverifiedSelfRegs( $pUnvSelfReg );
522
        DeleteUnverifiedSelfRegs( $pUnvSelfReg );
510
    } elsif ( $verbose ) {
523
    } elsif ( $verbose ) {
511
        say "unverified self-registrations may be deleted";
524
        say "unverified self-registrations may be deleted after $pUnvSelfReg days";
512
    }
525
    }
513
}
526
}
514
527
515
- 

Return to bug 28457