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

(-)a/C4/Letters.pm (-4 / +2 lines)
Lines 807-817 sub _parseletter { Link Here
807
        my @waitingdate = split /-/, $values->{'waitingdate'};
807
        my @waitingdate = split /-/, $values->{'waitingdate'};
808
808
809
        $values->{'expirationdate'} = '';
809
        $values->{'expirationdate'} = '';
810
        if( C4::Context->preference('ExpireReservesMaxPickUpDelay') &&
810
        if ( C4::Context->preference('ReservesMaxPickUpDelay') ) {
811
        C4::Context->preference('ReservesMaxPickUpDelay') ) {
812
            my $dt = dt_from_string();
811
            my $dt = dt_from_string();
813
            $dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') );
812
            $dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') );
814
            $values->{'expirationdate'} = output_pref({ dt => $dt, dateonly => 1 });
813
            $values->{'expirationdate'} = output_pref( { dt => $dt, dateonly => 1 } );
815
        }
814
        }
816
815
817
        $values->{'waitingdate'} = output_pref({ dt => dt_from_string( $values->{'waitingdate'} ), dateonly => 1 });
816
        $values->{'waitingdate'} = output_pref({ dt => dt_from_string( $values->{'waitingdate'} ), dateonly => 1 });
818
- 

Return to bug 14937