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

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

Return to bug 9788