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