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