| 
      
            Lines 34-40
          Options:
      
      
        Link Here
      
     | 
  
        
          | 34 | 
             --man                    full documentation  | 
          34 | 
             --man                    full documentation  | 
        
        
          | 35 | 
             --where <conditions>     where clause to add to the query  | 
          35 | 
             --where <conditions>     where clause to add to the query  | 
        
        
          | 36 | 
             -v -verbose              verbose mode  | 
          36 | 
             -v -verbose              verbose mode  | 
        
          
            
              | 37 | 
                 -n --nomail              if supplied messages will be output to STDOUT and not sent  | 
              37 | 
                 -n --nomail              if supplied, messages will be output to STDOUT and no email or sms will be sent  | 
            
        
          | 38 | 
             -c --confirm             commit changes to db, no action will be taken unless this switch is included  | 
          38 | 
             -c --confirm             commit changes to db, no action will be taken unless this switch is included  | 
        
        
          | 39 | 
             -b --branch <branchname> only deal with patrons from this library/branch  | 
          39 | 
             -b --branch <branchname> only deal with patrons from this library/branch  | 
        
        
          | 40 | 
             --before=X               include patrons expiring a number of days BEFORE the date set by the preference  | 
          40 | 
             --before=X               include patrons expiring a number of days BEFORE the date set by the preference  | 
        
  
    | 
      
            Lines 43-49
          Options:
      
      
        Link Here
      
     | 
  
        
          | 43 | 
           | 
          43 | 
           | 
        
        
          | 44 | 
          =head1 DESCRIPTION  | 
          44 | 
          =head1 DESCRIPTION  | 
        
        
          | 45 | 
           | 
          45 | 
           | 
        
          
            
              | 46 | 
              This script sends membership expiry reminder notices to patrons.  | 
              46 | 
              This script sends membership expiry reminder notices to patrons, by email and sms.  | 
            
        
          | 47 | 
          It queues them in the message queue, which is processed by  | 
          47 | 
          It queues them in the message queue, which is processed by  | 
        
        
          | 48 | 
          the process_message_queue.pl cronjob.  | 
          48 | 
          the process_message_queue.pl cronjob.  | 
        
        
          | 49 | 
           | 
          49 | 
           | 
        
  
    | 
      
            Lines 218-230
          while ( my $recent = $upcoming_mem_expires->next ) {
      
      
        Link Here
      
     | 
  
        
          | 218 | 
              last if !$letter; # Letters.pm already warned, just exit  | 
          218 | 
              last if !$letter; # Letters.pm already warned, just exit  | 
        
        
          | 219 | 
              if( $nomail ) { | 
          219 | 
              if( $nomail ) { | 
        
        
          | 220 | 
                  print $letter->{'content'}."\n"; | 
          220 | 
                  print $letter->{'content'}."\n"; | 
        
          
            
              | 221 | 
                  } else { | 
              221 | 
                      next;  | 
            
            
              | 222 | 
                      C4::Letters::EnqueueLetter({ | 
              222 | 
                  }  | 
            
            
              | 223 | 
                          letter                 => $letter,  | 
              223 | 
               | 
            
            
              | 224 | 
                          borrowernumber         =>  $recent->borrowernumber,  | 
              224 | 
                  C4::Letters::EnqueueLetter({ | 
            
            
              | 225 | 
                          from_address           => $from_address,  | 
              225 | 
                      letter                 => $letter,  | 
            
            
              | 226 | 
                          message_transport_type => 'email',  | 
              226 | 
                      borrowernumber         =>  $recent->borrowernumber,  | 
            
            
              | 227 | 
                      });  | 
              227 | 
                      from_address           => $from_address,  | 
            
            
               | 
               | 
              228 | 
                      message_transport_type => 'email',  | 
            
            
              | 229 | 
                  });  | 
            
            
              | 230 | 
               | 
            
            
              | 231 | 
                  if ($recent->smsalertnumber) { | 
            
            
              | 232 | 
                      my $smsletter = C4::Letters::GetPreparedLetter(  | 
            
            
              | 233 | 
                          module      => 'members',  | 
            
            
              | 234 | 
                          letter_code => $letter_type,  | 
            
            
              | 235 | 
                          branchcode  => $recent->branchcode,  | 
            
            
              | 236 | 
                          lang        => $recent->lang,  | 
            
            
              | 237 | 
                          tables      => { | 
            
            
              | 238 | 
                              borrowers => $recent->borrowernumber,  | 
            
            
              | 239 | 
                              branches  => $recent->branchcode,  | 
            
            
              | 240 | 
                          },  | 
            
            
              | 241 | 
                          message_transport_type => 'sms',  | 
            
            
              | 242 | 
                      );  | 
            
            
              | 243 | 
                      if ($smsletter) { | 
            
            
              | 244 | 
                          C4::Letters::EnqueueLetter({ | 
            
            
              | 245 | 
                              letter                 => $smsletter,  | 
            
            
              | 246 | 
                              borrowernumber         => $recent->borrowernumber,  | 
            
            
              | 247 | 
                              message_transport_type => 'sms',  | 
            
            
              | 248 | 
                          });  | 
            
            
              | 249 | 
                      }  | 
            
        
          | 228 | 
              }  | 
          250 | 
              }  | 
        
        
          | 229 | 
          }  | 
          251 | 
          }  | 
        
        
          | 230 | 
           | 
          252 | 
           | 
        
            
              | 231 | 
              -   | 
               | 
               |