Lines 130-136
my $pListShareInvites;
Link Here
|
130 |
my $pDebarments; |
130 |
my $pDebarments; |
131 |
my $allDebarments; |
131 |
my $allDebarments; |
132 |
my $pExpSelfReg; |
132 |
my $pExpSelfReg; |
|
|
133 |
if ( |
134 |
C4::Context->preference('PatronSelfRegistrationExpireTemporaryAccountsDelay') && |
135 |
C4::Context->preference('PatronSelfRegistrationExpireTemporaryAccountsDelay') > 0 |
136 |
){ |
137 |
$pExpSelfReg = 1; |
138 |
} |
133 |
my $pUnvSelfReg; |
139 |
my $pUnvSelfReg; |
|
|
140 |
if ( |
141 |
C4::Context->preference('PatronSelfRegistrationVerifyByEmail') |
142 |
){ |
143 |
#Default to 1 day expiry, which can be overriden by CLI option |
144 |
#FIXME: Add a system preference for specifying this value |
145 |
$pUnvSelfReg = 1; |
146 |
} |
134 |
my $fees_days; |
147 |
my $fees_days; |
135 |
my $special_holidays_days; |
148 |
my $special_holidays_days; |
136 |
my $temp_uploads; |
149 |
my $temp_uploads; |
Lines 168-174
GetOptions(
Link Here
|
168 |
'restrictions:i' => \$pDebarments, |
181 |
'restrictions:i' => \$pDebarments, |
169 |
'all-restrictions' => \$allDebarments, |
182 |
'all-restrictions' => \$allDebarments, |
170 |
'del-exp-selfreg' => \$pExpSelfReg, |
183 |
'del-exp-selfreg' => \$pExpSelfReg, |
171 |
'del-unv-selfreg' => \$pUnvSelfReg, |
184 |
'del-unv-selfreg:1' => \$pUnvSelfReg, |
172 |
'unique-holidays:i' => \$special_holidays_days, |
185 |
'unique-holidays:i' => \$special_holidays_days, |
173 |
'temp-uploads' => \$temp_uploads, |
186 |
'temp-uploads' => \$temp_uploads, |
174 |
'temp-uploads-days:i' => \$temp_uploads_days, |
187 |
'temp-uploads-days:i' => \$temp_uploads_days, |
Lines 461-467
if( $pUnvSelfReg ) {
Link Here
|
461 |
if ( $confirm ) { |
474 |
if ( $confirm ) { |
462 |
DeleteUnverifiedSelfRegs( $pUnvSelfReg ); |
475 |
DeleteUnverifiedSelfRegs( $pUnvSelfReg ); |
463 |
} elsif ( $verbose ) { |
476 |
} elsif ( $verbose ) { |
464 |
say "unverified self-registrations may be deleted"; |
477 |
say "unverified self-registrations may be deleted after $pUnvSelfReg days"; |
465 |
} |
478 |
} |
466 |
} |
479 |
} |
467 |
|
480 |
|
468 |
- |
|
|