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

(-)a/C4/Letters.pm (-2 / +1 lines)
Lines 622-628 sub _parseletter { Link Here
622
        my $replacedby   = defined ($val) ? $val : '';
622
        my $replacedby   = defined ($val) ? $val : '';
623
        if ( $replacedby and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) {
623
        if ( $replacedby and $replacedby =~ m|^\d{4}-\d{2}-\d{2}( \d{2}:\d{2}:\d{2})?$| ) {
624
            # If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date
624
            # If the value is XXXX-YY-ZZ[ AA:BB:CC] we assume it is a date
625
            my $dateonly = defined $1 ? 1 : 0;
625
            my $dateonly = defined $1 ? 0 : 1; #$1 refers to the capture group wrapped in parentheses. In this case, that's the hours, minutes, seconds.
626
            eval {
626
            eval {
627
                $replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly });
627
                $replacedby = output_pref({ dt => dt_from_string( $replacedby ), dateonly => $dateonly });
628
            };
628
            };
629
- 

Return to bug 11244