fixing a bug

2009-12-16 00:00:51 +00:00 · 2009-12-16 00:00:51 +00:00 · e4d0f46c7c
parent d3ceb8430c
commit e4d0f46c7c
1 changed files with 1 additions and 1 deletions
--- a/p/C0CMXP.m
+++ b/p/C0CMXP.m
@ -116,7 +116,7 @@ MKTPLATE(OUTT,OUTIDX,INXML,REDUX) ;MAKE A TEMPLATE FROM INXML, RETURNED IN OUTT
 . K ZD ;FOR DATA
 . D DATA^C0CMXML("ZD",ZI) ;SEE IF THERE IS DATA FOR THIS NODE
 . I $D(ZD(1)) D  ; IF YES
- . . W !,ZD(1)
+ . . I ZI<3 B  ;W !,ZD(1)
 . . K @C0CDOM@(ZI,"T") ; KILL THE DATA
 . . N ZXPATH
 . . S ZXPATH=$G(GIDX2(ZI)) ;FIND AN XPATH FOR THIS NODE