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

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

Return to bug 14937