One more date display fix. This one for one digit hours

2008-08-29 19:33:43 +00:00 · 2008-08-29 19:33:43 +00:00 · c1a4e7946e
parent 1295221e0a
commit c1a4e7946e
1 changed files with 1 additions and 0 deletions
--- a/p/CCRUTIL.m
+++ b/p/CCRUTIL.m
@ -30,6 +30,7 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins
          S M=$E(DATE,4,5)
          S D=$E(DATE,6,7)
          S H=$E(DATE,9,10)
+          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)