more date format testing

2008-08-30 12:38:45 +00:00 · 2008-08-30 12:38:45 +00:00 · 37d37d7be8
parent 327153a58e
commit 37d37d7be8
1 changed files with 1 additions and 0 deletions
--- a/p/CCRUTIL.m
+++ b/p/CCRUTIL.m
@ -31,6 +31,7 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins
          S D=$E(DATE,6,7)
          S H=$E(DATE,9,10)
          I $L(H)=1 S H="0"_H
+          I $L(H)=1 S H="0"_H
          S MM=$E(DATE,11,12)
          I $L(MM)=1 S MM="0"_MM
          S S=$E(DATE,13,14)