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

Timestamp:

Aug 22, 2008, 11:52:42 AM (16 years ago)

Author:

George Lilly

Message:

changes for XINDEX errors

File:

• ccr/trunk/p/GPLXPATH.m (modified) (2 diffs)

ccr/trunk/p/GPLXPATH.m

@@ -321 +321 @@
          S XFIRST=$P(XNODE,"^",1)
          S XLAST=$P(XNODE,"^",2)
-         I RENEW="" D ; WE ARE DELETING A SECTION, MUST SAVE THE TAG
+         I RENEW="" D  ; WE ARE DELETING A SECTION, MUST SAVE THE TAG
          . D QUEUE("REBLD",REXML,1,XFIRST) ; THE BEFORE
          . D QUEUE("REBLD",REXML,XLAST,@REXML@(0)) ; THE REST
@@ -373 +373 @@
          . I @OXML@(I)?.E1"@@".E D  ; IS THERE A VARIABLE HERE?
          . . S TSTR=$P(@IXML@(I),"@@",1) ; INIT TO PART BEFORE VARS
-         . . F J=2:2:10  D  Q:$P(@IXML@(I),"@@",J+2)="" ; QUIT IF NO MORE VARS
+         . . F J=2:2:10  D  Q:$P(@IXML@(I),"@@",J+2)=""  ; QUIT IF NO MORE VARS
          . . . I DEBUG W "IN MAPPING LOOP: ",TSTR,!
          . . . S TNAM=$P(@OXML@(I),"@@",J) ; EXTRACT THE VARIABLE NAME