|
Lines 806-813
sub _parseletter {
Link Here
|
| 806 |
if ( $table eq 'reserves' && $values->{'waitingdate'} ) { |
806 |
if ( $table eq 'reserves' && $values->{'waitingdate'} ) { |
| 807 |
my @waitingdate = split /-/, $values->{'waitingdate'}; |
807 |
my @waitingdate = split /-/, $values->{'waitingdate'}; |
| 808 |
|
808 |
|
| 809 |
$values->{'expirationdate'} = ''; |
809 |
if ( $values->{expirationdate} ) { |
| 810 |
if ( C4::Context->preference('ReservesMaxPickUpDelay') ) { |
810 |
$values->{expirationdate} = output_pref({ dt => dt_from_string( $values->{expirationdate} ), dateonly => 1 }); |
|
|
811 |
} |
| 812 |
elsif ( C4::Context->preference('ReservesMaxPickUpDelay') ) { |
| 811 |
my $dt = dt_from_string(); |
813 |
my $dt = dt_from_string(); |
| 812 |
$dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') ); |
814 |
$dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') ); |
| 813 |
$values->{'expirationdate'} = output_pref( { dt => $dt, dateonly => 1 } ); |
815 |
$values->{'expirationdate'} = output_pref( { dt => $dt, dateonly => 1 } ); |