iSharkFly-Open
/
VistA-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bug fix in xpath lib

This commit is contained in:
george 2009-05-27 19:28:48 +00:00
parent 485ea617a9
commit ed841bbcbc
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
p/C0CXPATH.m
View File

@ -148,8 +148,8 @@ XPG2XML(OUTXML,INXPG,NUM) ;
. F ZI=1:1:$QL(G) D ;
. . 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)
. . I ZI=$QL(G) S ZV=@G
@ -158,17 +158,17 @@ XPG2XML(OUTXML,INXPG,NUM) ;
. W !
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
;