Lines 1839-1853
sub _koha_notify_reserve {
Link Here
|
1839 |
|
1839 |
|
1840 |
# Try to get the borrower's email address |
1840 |
# Try to get the borrower's email address |
1841 |
my $to_address = C4::Members::GetNoticeEmailAddress($borrowernumber); |
1841 |
my $to_address = C4::Members::GetNoticeEmailAddress($borrowernumber); |
1842 |
|
1842 |
|
1843 |
my $letter_code; |
1843 |
my $messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { |
1844 |
my $print_mode = 0; |
1844 |
borrowernumber => $borrowernumber, |
1845 |
my $messagingprefs; |
1845 |
message_name => 'Hold_Filled' |
1846 |
if ( $to_address || $borrower->{'smsalertnumber'} ) { |
1846 |
} ); |
1847 |
$messagingprefs = C4::Members::Messaging::GetMessagingPreferences( { borrowernumber => $borrowernumber, message_name => 'Hold_Filled' } ); |
|
|
1848 |
} else { |
1849 |
$print_mode = 1; |
1850 |
} |
1851 |
|
1847 |
|
1852 |
my $sth = $dbh->prepare(" |
1848 |
my $sth = $dbh->prepare(" |
1853 |
SELECT * |
1849 |
SELECT * |
Lines 1874-1916
sub _koha_notify_reserve {
Link Here
|
1874 |
substitute => { today => C4::Dates->new()->output() }, |
1870 |
substitute => { today => C4::Dates->new()->output() }, |
1875 |
); |
1871 |
); |
1876 |
|
1872 |
|
1877 |
|
1873 |
my $print_sent = 0; |
1878 |
if ( $print_mode ) { |
1874 |
while ( my ( $mtt, $letter_code ) = each %{ $messagingprefs->{transports} } ) { |
1879 |
$letter_params{ 'letter_code' } = 'HOLD_PRINT'; |
1875 |
if ( ($mtt eq 'email' and not $to_address) or ($mtt eq 'sms' and not $borrower->{smsalertnumber}) ) { |
1880 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1876 |
# email or sms is requested but not exist, do a print. |
|
|
1877 |
$mtt = 'print'; |
1878 |
} |
1879 |
$letter_params{letter_code} = $letter_code; |
1880 |
$letter_params{message_transport_type} = $mtt; |
1881 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) |
1882 |
or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1881 |
|
1883 |
|
1882 |
C4::Letters::EnqueueLetter( { |
1884 |
C4::Letters::EnqueueLetter( { |
1883 |
letter => $letter, |
1885 |
letter => $letter, |
1884 |
borrowernumber => $borrowernumber, |
1886 |
borrowernumber => $borrowernumber, |
1885 |
message_transport_type => 'print', |
1887 |
from_address => $admin_email_address, |
|
|
1888 |
message_transport_type => $mtt, |
1886 |
} ); |
1889 |
} ); |
1887 |
|
|
|
1888 |
return; |
1889 |
} |
1890 |
|
1891 |
if ( $to_address && defined $messagingprefs->{transports}->{'email'} ) { |
1892 |
$letter_params{ 'letter_code' } = $messagingprefs->{transports}->{'email'}; |
1893 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1894 |
|
1895 |
C4::Letters::EnqueueLetter( |
1896 |
{ letter => $letter, |
1897 |
borrowernumber => $borrowernumber, |
1898 |
message_transport_type => 'email', |
1899 |
from_address => $admin_email_address, |
1900 |
} |
1901 |
); |
1902 |
} |
1903 |
|
1904 |
if ( $borrower->{'smsalertnumber'} && defined $messagingprefs->{transports}->{'sms'} ) { |
1905 |
$letter_params{ 'letter_code' } = $messagingprefs->{transports}->{'sms'}; |
1906 |
my $letter = C4::Letters::GetPreparedLetter ( %letter_params ) or die "Could not find a letter called '$letter_params{'letter_code'}' in the 'reserves' module"; |
1907 |
|
1908 |
C4::Letters::EnqueueLetter( |
1909 |
{ letter => $letter, |
1910 |
borrowernumber => $borrowernumber, |
1911 |
message_transport_type => 'sms', |
1912 |
} |
1913 |
); |
1914 |
} |
1890 |
} |
1915 |
} |
1891 |
} |
1916 |
|
1892 |
|