|
Lines 783-790
sub _parseletter {
Link Here
|
| 783 |
if ( $table eq 'reserves' && $values->{'waitingdate'} ) { |
783 |
if ( $table eq 'reserves' && $values->{'waitingdate'} ) { |
| 784 |
my @waitingdate = split /-/, $values->{'waitingdate'}; |
784 |
my @waitingdate = split /-/, $values->{'waitingdate'}; |
| 785 |
|
785 |
|
| 786 |
$values->{'expirationdate'} = ''; |
786 |
if ( $values->{expirationdate} ) { |
| 787 |
if( C4::Context->preference('ExpireReservesMaxPickUpDelay') && |
787 |
$values->{expirationdate} = output_pref({ dt => dt_from_string( $values->{expirationdate} ), dateonly => 1 }); |
|
|
788 |
} |
| 789 |
elsif( C4::Context->preference('ExpireReservesMaxPickUpDelay') && |
| 788 |
C4::Context->preference('ReservesMaxPickUpDelay') ) { |
790 |
C4::Context->preference('ReservesMaxPickUpDelay') ) { |
| 789 |
my $dt = dt_from_string(); |
791 |
my $dt = dt_from_string(); |
| 790 |
$dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') ); |
792 |
$dt->add( days => C4::Context->preference('ReservesMaxPickUpDelay') ); |