Changeset 64 for ccr


Ignore:
Timestamp:
Jul 16, 2008, 1:34:54 PM (16 years ago)
Author:
Christopher Edwards
Message:

added :00 to times that are missing seconds

File:
1 edited

Legend:

Unmodified
Added
Removed
  • ccr/trunk/p/CCRUTIL.m

    r51 r64  
    2121          ; In this case, set H, MM and S to "00"
    2222          S:('$L(H)&'$L(MM)&'$L(S)) (H,MM,S)="00"
    23           S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":"",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds
     23          S UTC=Y_"-"_M_"-"_D_"T"_H_":"_MM_$S(S="":":00",1:":"_S)_OFF ; Skip's code to fix hanging colon if no seconds
    2424          I $L($G(FORMAT)),FORMAT="DT" Q UTC ; Date with time.
    2525          E  Q $P(UTC,"T")
Note: See TracChangeset for help on using the changeset viewer.