Lines 1860-1874
sub _koha_notify_reserve {
Link Here
|
1860 |
|
1860 |
|
1861 |
# Try to get the borrower's email address |
1861 |
# Try to get the borrower's email address |
1862 |
my $to_address = C4::Members::GetNoticeEmailAddress($borrowernumber); |
1862 |
my $to_address = C4::Members::GetNoticeEmailAddress($borrowernumber); |
1863 |
|
1863 |
|
1864 |
my $letter_code; |
1864 |
my $messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { |
1865 |
my $print_mode = 0; |
1865 |
borrowernumber => $borrowernumber, |
1866 |
my $messagingprefs; |
1866 |
message_name => 'Hold_Filled' |
1867 |
if ( $to_address || $borrower->{'smsalertnumber'} ) { |
1867 |
} ); |
1868 |
$messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, message_name => 'Hold_Filled' } ); |
|
|
1869 |
} else { |
1870 |
$print_mode = 1; |
1871 |
} |
1872 |
|
1868 |
|
1873 |
my $sth = $dbh->prepare(" |
1869 |
my $sth = $dbh->prepare(" |
1874 |
SELECT * |
1870 |
SELECT * |
Lines 1895-1937
sub _koha_notify_reserve {
Link Here
|
1895 |
substitute => { today => C4::Dates->new()->output() }, |
1891 |
substitute => { today => C4::Dates->new()->output() }, |
1896 |
); |
1892 |
); |
1897 |
|
1893 |
|
1898 |
|
1894 |
my $print_sent = 0; |
1899 |
if ( $print_mode ) { |
1895 |
while ( my ( $mtt, $letter_code ) = each %{ $messagingprefs->{transports} } ) { |
1900 |
$letter_params{ 'letter_code' } = 'HOLD_PRINT'; |
1896 |
if ( ($mtt eq 'email' and not $to_address) or ($mtt eq 'sms' and not $borrower->{smsalertnumber}) ) { |
1901 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1897 |
# email or sms is requested but not exist, do a print. |
|
|
1898 |
$mtt = 'print'; |
1899 |
} |
1900 |
$letter_params{letter_code} = $letter_code; |
1901 |
$letter_params{message_transport_type} = $mtt; |
1902 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) |
1903 |
or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1902 |
|
1904 |
|
1903 |
C4::Letters::EnqueueLetter( { |
1905 |
C4::Letters::EnqueueLetter( { |
1904 |
letter => $letter, |
1906 |
letter => $letter, |
1905 |
borrowernumber => $borrowernumber, |
1907 |
borrowernumber => $borrowernumber, |
1906 |
message_transport_type => 'print', |
1908 |
from_address => $admin_email_address, |
|
|
1909 |
message_transport_type => $mtt, |
1907 |
} ); |
1910 |
} ); |
1908 |
|
|
|
1909 |
return; |
1910 |
} |
1911 |
|
1912 |
if ( $to_address && defined $messagingprefs->{transports}->{'email'} ) { |
1913 |
$letter_params{ 'letter_code' } = $messagingprefs->{transports}->{'email'}; |
1914 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1915 |
|
1916 |
C4::Letters::EnqueueLetter( |
1917 |
{ letter => $letter, |
1918 |
borrowernumber => $borrowernumber, |
1919 |
message_transport_type => 'email', |
1920 |
from_address => $admin_email_address, |
1921 |
} |
1922 |
); |
1923 |
} |
1924 |
|
1925 |
if ( $borrower->{'smsalertnumber'} && defined $messagingprefs->{transports}->{'sms'} ) { |
1926 |
$letter_params{ 'letter_code' } = $messagingprefs->{transports}->{'sms'}; |
1927 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1928 |
|
1929 |
C4::Letters::EnqueueLetter( |
1930 |
{ letter => $letter, |
1931 |
borrowernumber => $borrowernumber, |
1932 |
message_transport_type => 'sms', |
1933 |
} |
1934 |
); |
1935 |
} |
1911 |
} |
1936 |
} |
1912 |
} |
1937 |
|
1913 |
|