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