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