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