Lines 1868-1880
sub RevertWaitingStatus {
Link Here
|
1868 |
|
1868 |
|
1869 |
=head2 ReserveSlip |
1869 |
=head2 ReserveSlip |
1870 |
|
1870 |
|
1871 |
ReserveSlip($args => { |
1871 |
ReserveSlip( |
1872 |
branchcode, |
1872 |
{ |
1873 |
borrowernumber, |
1873 |
branchcode => $branchcode, |
1874 |
biblionumber, |
1874 |
borrowernumber => $borrowernumber, |
1875 |
[itemnumber], |
1875 |
biblionumber => $biblionumber, |
1876 |
[barcode], |
1876 |
[ itemnumber => $itemnumber, ] |
1877 |
}) |
1877 |
[ barcode => $barcode, ] |
|
|
1878 |
} |
1879 |
) |
1878 |
|
1880 |
|
1879 |
Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef |
1881 |
Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef |
1880 |
|
1882 |
|
Lines 1892-1909
available within the slip:
Link Here
|
1892 |
|
1894 |
|
1893 |
sub ReserveSlip { |
1895 |
sub ReserveSlip { |
1894 |
my ($args) = @_; |
1896 |
my ($args) = @_; |
1895 |
my $patron = Koha::Patrons->find( $args->{borrowernumber} ); |
1897 |
my $branchcode = $args->{branchcode}; |
|
|
1898 |
my $borrowernumber = $args->{borrowernumber}; |
1899 |
my $biblionumber = $args->{biblionumber}; |
1900 |
my $itemnumber = $args->{itemnumber}; |
1901 |
my $barcode = $args->{barcode}; |
1902 |
|
1903 |
|
1904 |
my $patron = Koha::Patrons->find($borrowernumber); |
1896 |
|
1905 |
|
1897 |
my $hold; |
1906 |
my $hold; |
1898 |
if ($args->{itemnumber}) { |
1907 |
if ($itemnumber || $barcode ) { |
1899 |
$hold = Koha::Holds->search({biblionumber => $args->{biblionumber}, borrowernumber => $args->{borrowernumber}, itemnumber => $args->{itemnumber} })->next; |
1908 |
$itemnumber ||= Koha::Items->find( { barcode => $barcode } )->itemnumber; |
1900 |
} elsif ($args->{barcode}) { |
1909 |
|
1901 |
my $itemnumber = Koha::Items->find({ barcode => $args->{barcode} }); |
1910 |
$hold = Koha::Holds->search( |
1902 |
if ($args->{itemnumber}) { |
1911 |
{ |
1903 |
$hold = Koha::Holds->search({biblionumber => $args->{biblionumber}, borrowernumber => $args->{borrowernumber}, itemnumber => $args->{itemnumber} })->next; |
1912 |
biblionumber => $biblionumber, |
1904 |
} |
1913 |
borrowernumber => $borrowernumber, |
1905 |
} else { |
1914 |
itemnumber => $itemnumber |
1906 |
$hold = Koha::Holds->search({biblionumber => $args->{biblionumber}, borrowernumber => $args->{borrowernumber} })->next; |
1915 |
} |
|
|
1916 |
)->next; |
1917 |
} |
1918 |
else { |
1919 |
$hold = Koha::Holds->search( |
1920 |
{ |
1921 |
biblionumber => $biblionumber, |
1922 |
borrowernumber => $borrowernumber |
1923 |
} |
1924 |
)->next; |
1907 |
} |
1925 |
} |
1908 |
|
1926 |
|
1909 |
return unless $hold; |
1927 |
return unless $hold; |
Lines 1912-1918
sub ReserveSlip {
Link Here
|
1912 |
return C4::Letters::GetPreparedLetter ( |
1930 |
return C4::Letters::GetPreparedLetter ( |
1913 |
module => 'circulation', |
1931 |
module => 'circulation', |
1914 |
letter_code => 'HOLD_SLIP', |
1932 |
letter_code => 'HOLD_SLIP', |
1915 |
branchcode => $args->{branchcode}, |
1933 |
branchcode => $branchcode, |
1916 |
lang => $patron->lang, |
1934 |
lang => $patron->lang, |
1917 |
tables => { |
1935 |
tables => { |
1918 |
'reserves' => $reserve, |
1936 |
'reserves' => $reserve, |
1919 |
- |
|
|