From 6e63a3f052495532acb1a2e777a98910a74704ee Mon Sep 17 00:00:00 2001 From: cje Date: Wed, 16 Jul 2008 17:34:54 +0000 Subject: [PATCH] added :00 to times that are missing seconds --- p/CCRUTIL.m | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/p/CCRUTIL.m b/p/CCRUTIL.m index ae40c07..02350bb 100644 --- a/p/CCRUTIL.m +++ b/p/CCRUTIL.m @@ -20,7 +20,7 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins ; If H, MM and S are empty, it means that the FM date didn't supply the time. ; In this case, set H, MM and S to "00" S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00" - S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":"",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds + S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":":00",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds I $L($G(FORMAT)),FORMAT="DT" Q UTC ; Date with time. E Q $P(UTC,"T") ;