Changeset 1408 for fmts/trunk/p

Timestamp:

Apr 16, 2012, 10:06:15 AM (13 years ago)

Author:

George Lilly

Message:

update

File:

• fmts/trunk/p/C0XF2N.m (modified) (2 diffs)

fmts/trunk/p/C0XF2N.m

@@ -645 +645 @@
  D TING(.ZGRAPH,ZGRF,FARY)
  I '$D(ZGRAPH) D  Q  ;
- . W !,"NO TRIPLES IN GRAPH"
+ . I $D(DEBUG) W !,"NO TRIPLES IN GRAPH"
  K C0XFDA
  N ZI S ZI=""
@@ -663 +663 @@
  S ZG=$$IENOF^C0XGET1(ZGRF)
  I ZG="" D  Q  ;
- . W !,"ERROR GRAPH NOT FOUND"
+ . I $D(DEBUG) W !,"ERROR GRAPH NOT FOUND"
  I '$D(@C0XTN@("G",ZG)) Q  ;
  F  S ZI=$O(@C0XTN@("G",ZG,ZI)) Q:ZI=""  D  ;