| Lines 1890-1904
          sub _koha_notify_reserve {
      
      
        Link Here | 
        
          | 1890 |      | 1890 |      | 
        
          | 1891 |     # Try to get the borrower's email address | 1891 |     # Try to get the borrower's email address | 
        
          | 1892 |     my $to_address = C4::Members::GetNoticeEmailAddress($borrowernumber); | 1892 |     my $to_address = C4::Members::GetNoticeEmailAddress($borrowernumber); | 
          
            
              | 1893 |      | 1893 |  | 
            
              | 1894 |     my $letter_code; | 1894 |     my $messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { | 
            
              | 1895 |     my $print_mode = 0; | 1895 |             borrowernumber => $borrowernumber, | 
            
              | 1896 |     my $messagingprefs; | 1896 |             message_name => 'Hold_Filled' | 
            
              | 1897 |     if ( $to_address || $borrower->{'smsalertnumber'} ) { | 1897 |     } ); | 
            
              | 1898 |         $messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, message_name => 'Hold_Filled' } ); |  |  | 
            
              | 1899 |     } else { | 
            
              | 1900 |         $print_mode = 1; | 
            
              | 1901 |     } | 
        
          | 1902 |  | 1898 |  | 
        
          | 1903 |     my $sth = $dbh->prepare(" | 1899 |     my $sth = $dbh->prepare(" | 
        
          | 1904 |         SELECT * | 1900 |         SELECT * | 
  
    | Lines 1925-1967
          sub _koha_notify_reserve {
      
      
        Link Here | 
        
          | 1925 |         substitute => { today => C4::Dates->new()->output() }, | 1921 |         substitute => { today => C4::Dates->new()->output() }, | 
        
          | 1926 |     ); | 1922 |     ); | 
        
          | 1927 |  | 1923 |  | 
          
            
              | 1928 |  | 1924 |     my $print_sent = 0; | 
            
              | 1929 |     if ( $print_mode ) { | 1925 |     while ( my ( $mtt, $letter_code ) = each %{ $messagingprefs->{transports} } ) { | 
            
              | 1930 |         $letter_params{ 'letter_code' } = 'HOLD_PRINT'; | 1926 |         if ( ($mtt eq 'email' and not $to_address) or ($mtt eq 'sms' and not $borrower->{smsalertnumber}) ) { | 
            
              | 1931 |         my $letter =  C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; | 1927 |             # email or sms is requested but not exist, do a print. | 
            
              |  |  | 1928 |             $mtt = 'print'; | 
            
              | 1929 |         } | 
            
              | 1930 |         $letter_params{letter_code} = $letter_code; | 
            
              | 1931 |         $letter_params{message_transport_type} = $mtt; | 
            
              | 1932 |         my $letter =  C4::Letters::GetPreparedLetter ( %letter_params ) | 
            
              | 1933 |             or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; | 
        
          | 1932 |  | 1934 |  | 
        
          | 1933 |         C4::Letters::EnqueueLetter( { | 1935 |         C4::Letters::EnqueueLetter( { | 
        
          | 1934 |             letter => $letter, | 1936 |             letter => $letter, | 
        
          | 1935 |             borrowernumber => $borrowernumber, | 1937 |             borrowernumber => $borrowernumber, | 
          
            
              | 1936 |             message_transport_type => 'print', | 1938 |             from_address => $admin_email_address, | 
            
              |  |  | 1939 |             message_transport_type => $mtt, | 
        
          | 1937 |         } ); | 1940 |         } ); | 
            
              | 1938 |          |  |  | 
            
              | 1939 |         return; | 
            
              | 1940 |     } | 
            
              | 1941 |  | 
            
              | 1942 |     if ( $to_address && defined $messagingprefs->{transports}->{'email'} ) { | 
            
              | 1943 |         $letter_params{ 'letter_code' } = $messagingprefs->{transports}->{'email'}; | 
            
              | 1944 |         my $letter =  C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; | 
            
              | 1945 |  | 
            
              | 1946 |         C4::Letters::EnqueueLetter( | 
            
              | 1947 |             {   letter                 => $letter, | 
            
              | 1948 |                 borrowernumber         => $borrowernumber, | 
            
              | 1949 |                 message_transport_type => 'email', | 
            
              | 1950 |                 from_address           => $admin_email_address, | 
            
              | 1951 |             } | 
            
              | 1952 |         ); | 
            
              | 1953 |     } | 
            
              | 1954 |  | 
            
              | 1955 |     if ( $borrower->{'smsalertnumber'} && defined $messagingprefs->{transports}->{'sms'} ) { | 
            
              | 1956 |         $letter_params{ 'letter_code' } = $messagingprefs->{transports}->{'sms'}; | 
            
              | 1957 |         my $letter =  C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; | 
            
              | 1958 |  | 
            
              | 1959 |         C4::Letters::EnqueueLetter( | 
            
              | 1960 |             {   letter                 => $letter, | 
            
              | 1961 |                 borrowernumber         => $borrowernumber, | 
            
              | 1962 |                 message_transport_type => 'sms', | 
            
              | 1963 |             } | 
            
              | 1964 |         ); | 
        
          | 1965 |     } | 1941 |     } | 
        
          | 1966 | } | 1942 | } | 
        
          | 1967 |  | 1943 |  |