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 |
- |
|
|