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