From 1295221e0a31134711b0cec26ffb94b8e818deb8 Mon Sep 17 00:00:00 2001
From: george <george>
Date: Fri, 29 Aug 2008 19:19:16 +0000
Subject: [PATCH] another fix to date format. this time where minute or second
 are one digit

---
 p/CCRUTIL.m | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/p/CCRUTIL.m b/p/CCRUTIL.m
index fe24e67..59af494 100644
--- a/p/CCRUTIL.m
+++ b/p/CCRUTIL.m
@@ -31,7 +31,9 @@ FMDTOUTC(DATE,FORMAT) ; Convert Fileman Date to UTC Date Format; PUBLIC; Extrins
           S D=$E(DATE,6,7)
           S H=$E(DATE,9,10)
           S MM=$E(DATE,11,12)
+          I $L(MM)=1 S MM="0"_MM
           S S=$E(DATE,13,14)
+          I $L(S)=1 S S="0"_S
           S OFF=$$TZ^XLFDT ; See Kernel Manual for documentation.
           ; 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"