Changeset 608


Ignore:
Timestamp:
Nov 22, 2009, 2:53:53 PM (15 years ago)
Author:
George Lilly
Message:

update to CCD parsing

File:
1 edited

Legend:

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

    r606 r608  
    286286 F  S ZI=$O(@INARY@(ZI)) Q:ZI=""  D  ; FOR EACH ELEMENT OF THE ARRAY
    287287 . S ZJ=$P(ZI,"/",2) ;
     288 . I ZJ="" S ZJ=$P(ZI,"/",3) ;
    288289 . S @OUTARY@(ZJ,ZI)=@INARY@(ZI)
    289290 Q
Note: See TracChangeset for help on using the changeset viewer.