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

(-)a/Koha/Hold.pm (-3 / +2 lines)
Lines 83-89 my $hold = $hold->suspend_hold( $suspend_until_dt ); Link Here
83
sub suspend_hold {
83
sub suspend_hold {
84
    my ( $self, $dt ) = @_;
84
    my ( $self, $dt ) = @_;
85
85
86
    $dt = $dt ? $dt->clone()->truncate( to => 'day' ) : undef;
86
    my $date = $dt ? $dt->clone()->truncate( to => 'day' )->datetime : undef;
87
87
88
    if ( $self->is_waiting ) {    # We can't suspend waiting holds
88
    if ( $self->is_waiting ) {    # We can't suspend waiting holds
89
        carp "Unable to suspend waiting hold!";
89
        carp "Unable to suspend waiting hold!";
Lines 91-97 sub suspend_hold { Link Here
91
    }
91
    }
92
92
93
    $self->suspend(1);
93
    $self->suspend(1);
94
    $self->suspend_until( $dt->datetime ) if ( defined $dt );
94
    $self->suspend_until( $date );
95
    $self->store();
95
    $self->store();
96
96
97
    logaction( 'HOLDS', 'SUSPEND', $self->reserve_id, Dumper($self->unblessed) )
97
    logaction( 'HOLDS', 'SUSPEND', $self->reserve_id, Dumper($self->unblessed) )
98
- 

Return to bug 18382