View | Details | Raw Unified | Return to bug 17561
Collapse All | Expand All

(-)a/C4/Reserves.pm (-19 / +36 lines)
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
- 

Return to bug 17561