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