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