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

(-)a/C4/Letters.pm (-4 / +7 lines)
Lines 610-618 sub _parseletter { Link Here
610
    if ( $table eq 'reserves' && $values->{'waitingdate'} ) {
610
    if ( $table eq 'reserves' && $values->{'waitingdate'} ) {
611
        my @waitingdate = split /-/, $values->{'waitingdate'};
611
        my @waitingdate = split /-/, $values->{'waitingdate'};
612
612
613
        my $dt = dt_from_string();
613
        $values->{'expirationdate'} = '';
614
        $dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') );
614
        if( C4::Context->preference('ExpireReservesMaxPickUpDelay') &&
615
        $values->{'expirationdate'} = output_pref( $dt, undef, 1 );
615
        C4::Context->preference('ReservesMaxPickUpDelay') ) {
616
            my $dt = dt_from_string();
617
            $dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') );
618
            $values->{'expirationdate'} = output_pref( $dt, undef, 1 );
619
        }
616
620
617
        $values->{'waitingdate'} = output_pref( dt_from_string( $values->{'waitingdate'} ), undef, 1 );
621
        $values->{'waitingdate'} = output_pref( dt_from_string( $values->{'waitingdate'} ), undef, 1 );
618
622
619
- 

Return to bug 9788