Lines 1849-1855
The following tables are availalbe witin the notice:
Link Here
|
1849 |
|
1849 |
|
1850 |
sub _koha_notify_reserve { |
1850 |
sub _koha_notify_reserve { |
1851 |
my $reserve_id = shift; |
1851 |
my $reserve_id = shift; |
1852 |
my $notify_library = shift; |
|
|
1853 |
|
1852 |
|
1854 |
my $hold = Koha::Holds->find($reserve_id); |
1853 |
my $hold = Koha::Holds->find($reserve_id); |
1855 |
my $borrowernumber = $hold->borrowernumber; |
1854 |
my $borrowernumber = $hold->borrowernumber; |
Lines 1865-1879
sub _koha_notify_reserve {
Link Here
|
1865 |
} ); |
1864 |
} ); |
1866 |
|
1865 |
|
1867 |
my $library = Koha::Libraries->find( $hold->branchcode ); |
1866 |
my $library = Koha::Libraries->find( $hold->branchcode ); |
1868 |
my $admin_email_address = $library->from_email_address; |
1867 |
my $inbound_email_address = $library->inbound_email_address; |
1869 |
$library = $library->unblessed; |
|
|
1870 |
|
1868 |
|
1871 |
my %letter_params = ( |
1869 |
my %letter_params = ( |
1872 |
module => 'reserves', |
1870 |
module => 'reserves', |
1873 |
branchcode => $hold->branchcode, |
1871 |
branchcode => $hold->branchcode, |
1874 |
lang => $patron->lang, |
1872 |
lang => $patron->lang, |
1875 |
tables => { |
1873 |
tables => { |
1876 |
'branches' => $library, |
1874 |
'branches' => $library->unblessed, |
1877 |
'borrowers' => $patron->unblessed, |
1875 |
'borrowers' => $patron->unblessed, |
1878 |
'biblio' => $hold->biblionumber, |
1876 |
'biblio' => $hold->biblionumber, |
1879 |
'biblioitems' => $hold->biblionumber, |
1877 |
'biblioitems' => $hold->biblionumber, |
Lines 1897-1903
sub _koha_notify_reserve {
Link Here
|
1897 |
C4::Letters::EnqueueLetter( { |
1895 |
C4::Letters::EnqueueLetter( { |
1898 |
letter => $letter, |
1896 |
letter => $letter, |
1899 |
borrowernumber => $borrowernumber, |
1897 |
borrowernumber => $borrowernumber, |
1900 |
from_address => $admin_email_address, |
1898 |
from_address => $inbound_email_address, |
1901 |
message_transport_type => $mtt, |
1899 |
message_transport_type => $mtt, |
1902 |
} ); |
1900 |
} ); |
1903 |
}; |
1901 |
}; |
Lines 1918-1954
sub _koha_notify_reserve {
Link Here
|
1918 |
&$send_notification('print', 'HOLD'); |
1916 |
&$send_notification('print', 'HOLD'); |
1919 |
} |
1917 |
} |
1920 |
|
1918 |
|
1921 |
if ($notify_library) { |
|
|
1922 |
my $letter = C4::Letters::GetPreparedLetter( |
1923 |
module => 'reserves', |
1924 |
letter_code => 'HOLD_CHANGED', |
1925 |
branchcode => $hold->branchcode, |
1926 |
substitute => { today => output_pref( dt_from_string ) }, |
1927 |
tables => { |
1928 |
'branches' => $library, |
1929 |
'borrowers' => $patron->unblessed, |
1930 |
'biblio' => $hold->biblionumber, |
1931 |
'biblioitems' => $hold->biblionumber, |
1932 |
'reserves' => $hold->unblessed, |
1933 |
'items' => $hold->itemnumber, |
1934 |
}, |
1935 |
); |
1936 |
|
1937 |
my $email = |
1938 |
C4::Context->preference('ExpireReservesAutoFillEmail') |
1939 |
|| $library->{branchemail} |
1940 |
|| C4::Context->preference('KohaAdminEmailAddress'); |
1941 |
|
1942 |
C4::Letters::EnqueueLetter( |
1943 |
{ |
1944 |
letter => $letter, |
1945 |
borrowernumber => $borrowernumber, |
1946 |
message_transport_type => 'email', |
1947 |
from_address => $email, |
1948 |
to_address => $email, |
1949 |
} |
1950 |
); |
1951 |
} |
1952 |
} |
1919 |
} |
1953 |
|
1920 |
|
1954 |
=head2 _koha_notify_hold_changed |
1921 |
=head2 _koha_notify_hold_changed |
Lines 1982-1989
sub _koha_notify_hold_changed {
Link Here
|
1982 |
|
1949 |
|
1983 |
my $email = |
1950 |
my $email = |
1984 |
C4::Context->preference('ExpireReservesAutoFillEmail') |
1951 |
C4::Context->preference('ExpireReservesAutoFillEmail') |
1985 |
|| $library->branchemail |
1952 |
|| $library->inbound_email_address; |
1986 |
|| C4::Context->preference('KohaAdminEmailAddress'); |
|
|
1987 |
|
1953 |
|
1988 |
C4::Letters::EnqueueLetter( |
1954 |
C4::Letters::EnqueueLetter( |
1989 |
{ |
1955 |
{ |