| Lines 55-61
          BEGIN {
      
      
        Link Here | 
        
          | 55 |         &RemoveNotifyLine | 55 |         &RemoveNotifyLine | 
        
          | 56 |         &AddNotifyLine | 56 |         &AddNotifyLine | 
        
          | 57 |         &GetOverdueMessageTransportTypes | 57 |         &GetOverdueMessageTransportTypes | 
          
            
              | 58 |         &parse_letter | 58 |         &parse_overdues_letter | 
        
          | 59 | 	); | 59 | 	); | 
        
          | 60 | 	# subs to remove | 60 | 	# subs to remove | 
        
          | 61 | 	push @EXPORT, qw( | 61 | 	push @EXPORT, qw( | 
  
    | Lines 957-963
          sub GetOverdueMessageTransportTypes {
      
      
        Link Here | 
        
          | 957 |     return \@mtts; | 957 |     return \@mtts; | 
        
          | 958 | } | 958 | } | 
        
          | 959 |  | 959 |  | 
          
            
              | 960 | =head2 parse_letter | 960 | =head2 parse_overdues_letter | 
        
          | 961 |  | 961 |  | 
        
          | 962 | parses the letter template, replacing the placeholders with data | 962 | parses the letter template, replacing the placeholders with data | 
        
          | 963 | specific to this patron, biblio, or item for overdues | 963 | specific to this patron, biblio, or item for overdues | 
  
    | Lines 973-979
          substituted keys and values.
      
      
        Link Here | 
        
          | 973 |  | 973 |  | 
        
          | 974 | =cut | 974 | =cut | 
        
          | 975 |  | 975 |  | 
          
            
              | 976 | sub parse_letter { | 976 | sub parse_overdues_letter { | 
        
          | 977 |     my $params = shift; | 977 |     my $params = shift; | 
        
          | 978 |     foreach my $required (qw( letter_code borrowernumber )) { | 978 |     foreach my $required (qw( letter_code borrowernumber )) { | 
        
          | 979 |         return unless ( exists $params->{$required} && $params->{$required} ); | 979 |         return unless ( exists $params->{$required} && $params->{$required} ); |