Changeset 515 for ccr/trunk/p

Timestamp:

May 27, 2009, 3:28:48 PM (15 years ago)

Author:

George Lilly

Message:

bug fix in xpath lib

File:

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

ccr/trunk/p/C0CXPATH.m

@@ -149 +149 @@
  . . I ZI<$QL(G) D  ;
  . . . S ZB=$QS(G,ZI)
- . . . I ZA(ZA(0))'=ZB ZOPEN(ZB)
- . . . E  ZCLOSE(ZB)
+ . . . I ZA(ZA(0))'=ZB D ZXO(ZB)
+ . . . E  D ZXC(ZB)
  . . S ZV=""
  . . S G2=$QS(G,ZI)
@@ -159 +159 @@
  Q
  ;
-ZOPEN(WHAT)
+ZXO(WHAT)
  D PUSH("GA",WHAT)
  D PUSH(OUTXML,"<"_WHAT_">")
  Q
  ;
-ZCLOSE(WHAT)
+ZXC(WHAT)
  D POP("GA",.TMP)
  D PUSH(OUTXML,"</"_WHAT_">")
  Q
  ;
-ZVAL(WHAT,VAL)
+ZXVAL(WHAT,VAL)
  D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">")
  Q