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 |
- |
|
|