Changeset 55 for ccr/trunk/p/GPLXPATH.m

Timestamp:

Jul 8, 2008, 11:09:12 AM (16 years ago)

Author:

George Lilly

Message:

less debugging output from Trim, normalize 2 template lines

File:

• ccr/trunk/p/GPLXPATH.m (modified) (1 diff)

ccr/trunk/p/GPLXPATH.m

@@ -360 +360 @@
        . . I '$D(DEL(I)) D  ; IF THE LINE IS NOT DELETED
        . . . D PUSH("TMPXML",@THEXML@(I)) ; COPY TO TMPXML ARRAY
-       . ZWR DEL
        . D CP("TMPXML",THEXML) ; REPLACE THE XML WITH THE COPY
        Q FOUND
-       ;
-NXTCHLD(HANDLE,NODE,CUR) ; RETURNS THE NEXT CHILD OR "" IF NONE
-       Q $$CHILD^MXMLDOM(HANDLE,NODE,CUR)
        ;
 PARY(GLO)       ;PRINT AN ARRAY