|
Lines 803-809
sub _parseletter {
Link Here
|
| 803 |
|
803 |
|
| 804 |
# Work on a local copy of $values_in (passed by reference) to avoid side effects |
804 |
# Work on a local copy of $values_in (passed by reference) to avoid side effects |
| 805 |
# in callers ( by changing / formatting values ) |
805 |
# in callers ( by changing / formatting values ) |
| 806 |
my $values = { %$values_in }; |
806 |
my $values = $values_in ? { %$values_in } : {}; |
| 807 |
|
807 |
|
| 808 |
if ( $table eq 'borrowers' && $values->{'dateexpiry'} ){ |
808 |
if ( $table eq 'borrowers' && $values->{'dateexpiry'} ){ |
| 809 |
$values->{'dateexpiry'} = format_sqldatetime( $values->{'dateexpiry'} ); |
809 |
$values->{'dateexpiry'} = format_sqldatetime( $values->{'dateexpiry'} ); |
| 810 |
- |
|
|