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

(-)a/Koha/Exceptions/Hold.pm (+4 lines)
Lines 32-37 use Exception::Class ( Link Here
32
        isa         => 'Koha::Exceptions::Hold',
32
        isa         => 'Koha::Exceptions::Hold',
33
        description => 'The supplied pickup location is not valid'
33
        description => 'The supplied pickup location is not valid'
34
    }
34
    }
35
    'Koha::Exceptions::Hold::NotAtPickupLocation' => {
36
        isa         => 'Koha::Exceptions::Hold',
37
        description => "Hold can't be set waiting for an item that is not at pickup location"
38
    }
35
);
39
);
36
40
37
sub full_message {
41
sub full_message {
(-)a/Koha/Hold.pm (-1 / +4 lines)
Lines 178-183 sub set_transfer { Link Here
178
sub set_waiting {
178
sub set_waiting {
179
    my ( $self, $desk_id ) = @_;
179
    my ( $self, $desk_id ) = @_;
180
180
181
    if ($self->item->holdingbranch ne $self->branchcode) {
182
        Koha::Exceptions::Hold::NotAtPickupLocation->throw;
183
    }
184
181
    $self->priority(0);
185
    $self->priority(0);
182
186
183
    my $today = dt_from_string();
187
    my $today = dt_from_string();
184
- 

Return to bug 27879