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

(-)a/C4/ILSDI/Services.pm (-3 / +4 lines)
Lines 25-31 use C4::Items qw( get_hostitemnumbers_of ); Link Here
25
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal );
25
use C4::Circulation qw( CanBookBeRenewed barcodedecode CanBookBeIssued AddRenewal );
26
use C4::Accounts;
26
use C4::Accounts;
27
use C4::Biblio qw( GetMarcBiblio );
27
use C4::Biblio qw( GetMarcBiblio );
28
use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved );
28
use C4::Reserves qw( CanBookBeReserved IsAvailableForItemLevelRequest CalculatePriority AddReserve CanItemBeReserved CanReserveBeCanceledFromOpac);
29
use C4::Context;
29
use C4::Context;
30
use C4::Auth;
30
use C4::Auth;
31
use CGI qw ( -utf8 );
31
use CGI qw ( -utf8 );
Lines 935-941 sub CancelHold { Link Here
935
    my $reserve_id = $cgi->param('item_id');
935
    my $reserve_id = $cgi->param('item_id');
936
    my $hold = Koha::Holds->find( $reserve_id );
936
    my $hold = Koha::Holds->find( $reserve_id );
937
    return { code => 'RecordNotFound' } unless $hold;
937
    return { code => 'RecordNotFound' } unless $hold;
938
    return { code => 'RecordNotFound' } unless ($hold->borrowernumber == $borrowernumber);
938
939
    # Check if reserve belongs to the borrower and if it is in a state which allows cancellation
940
    return { code => 'BorrowerCannotCancelHold' } unless CanReserveBeCanceledFromOpac( $reserve_id, $borrowernumber );
939
941
940
    $hold->cancel;
942
    $hold->cancel;
941
943
942
- 

Return to bug 22379