|
Lines 632-638
sub _parseletter {
Link Here
|
| 632 |
|
632 |
|
| 633 |
$val = GetAuthorisedValueByCode ('ROADTYPE', $val, 0) if $table=~/^borrowers$/ && $field=~/^streettype$/; |
633 |
$val = GetAuthorisedValueByCode ('ROADTYPE', $val, 0) if $table=~/^borrowers$/ && $field=~/^streettype$/; |
| 634 |
my $replacedby = defined ($val) ? $val : ''; |
634 |
my $replacedby = defined ($val) ? $val : ''; |
| 635 |
if ( $replacedby and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) { |
635 |
if ( $replacedby |
|
|
636 |
and not $replacedby =~ m|0000-00-00| |
| 637 |
and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) |
| 638 |
{ |
| 636 |
# If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date |
639 |
# If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date |
| 637 |
my $dateonly = defined $1 ? 0 : 1; #$1 refers to the capture group wrapped in parentheses. In this case, that's the hours, minutes, seconds. |
640 |
my $dateonly = defined $1 ? 0 : 1; #$1 refers to the capture group wrapped in parentheses. In this case, that's the hours, minutes, seconds. |
| 638 |
eval { |
641 |
eval { |
| 639 |
- |
|
|