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

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

Return to bug 9788