View | Details | Raw Unified | Return to bug 13011
Collapse All | Expand All

(-)a/C4/Letters.pm (-2 / +4 lines)
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
- 

Return to bug 13011