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