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 ; . F ZI=1:1:$QL(G) D ;
. . I ZI<$QL(G) D ; . . I ZI<$QL(G) D ;
. . . S ZB=$QS(G,ZI) . . . S ZB=$QS(G,ZI)
. . . I ZA(ZA(0))'=ZB ZOPEN(ZB) . . . I ZA(ZA(0))'=ZB D ZXO(ZB)
. . . E ZCLOSE(ZB) . . . E D ZXC(ZB)
. . S ZV="" . . S ZV=""
. . S G2=$QS(G,ZI) . . S G2=$QS(G,ZI)
. . I ZI=$QL(G) S ZV=@G . . I ZI=$QL(G) S ZV=@G
@ -158,17 +158,17 @@ XPG2XML(OUTXML,INXPG,NUM) ;
. W ! . W !
Q Q
; ;
ZOPEN(WHAT) ZXO(WHAT)
D PUSH("GA",WHAT) D PUSH("GA",WHAT)
D PUSH(OUTXML,"<"_WHAT_">") D PUSH(OUTXML,"<"_WHAT_">")
Q Q
; ;
ZCLOSE(WHAT) ZXC(WHAT)
D POP("GA",.TMP) D POP("GA",.TMP)
D PUSH(OUTXML,"</"_WHAT_">") D PUSH(OUTXML,"</"_WHAT_">")
Q Q
; ;
ZVAL(WHAT,VAL) ZXVAL(WHAT,VAL)
D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">") D PUSH(OUTXML,"<"_WHAT_">"_VAL_"</"_WHAT_">")
Q Q
; ;