Changeset 515 for ccr/trunk/p


Ignore:
Timestamp:
May 27, 2009, 3:28:48 PM (15 years ago)
Author:
George Lilly
Message:

bug fix in xpath lib

File:
1 edited

Legend:

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

    r513 r515  
    149149 . . I ZI<$QL(G) D  ;
    150150 . . . S ZB=$QS(G,ZI)
    151  . . . I ZA(ZA(0))'=ZB ZOPEN(ZB)
    152  . . . E  ZCLOSE(ZB)
     151 . . . I ZA(ZA(0))'=ZB D ZXO(ZB)
     152 . . . E  D ZXC(ZB)
    153153 . . S ZV=""
    154154 . . S G2=$QS(G,ZI)
     
    159159 Q
    160160 ;
    161 ZOPEN(WHAT)
     161ZXO(WHAT)
    162162 D PUSH("GA",WHAT)
    163163 D PUSH(OUTXML,"<"_WHAT_">")
    164164 Q
    165165 ;
    166 ZCLOSE(WHAT)
     166ZXC(WHAT)
    167167 D POP("GA",.TMP)
    168168 D PUSH(OUTXML,"</"_WHAT_">")
    169169 Q
    170170 ;
    171 ZVAL(WHAT,VAL)
     171ZXVAL(WHAT,VAL)
    172172 D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">")
    173173 Q
Note: See TracChangeset for help on using the changeset viewer.