Changeset 1499 for fmts/trunk/p/C0XRDF.m

Timestamp:

Aug 2, 2012, 11:08:30 AM (12 years ago)

Author:

George Lilly

Message:

changes for smart

File:

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

fmts/trunk/p/C0XRDF.m

@@ -45 +45 @@
  . I $E(ZB,1,1)="/" D  ;
  . . S ZB=$P(ZB,"/",2) ; handling gpltest:/note situations
- . S ZC=$G(C0XVOC(ZA))
- . I ZC="" S ZC=ZA
+ . S ZC=C0XVOC(ZA)
  . I ZOBJ["nodeID:" D  Q  ;
  . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
@@ -55 +54 @@
  . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
  . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">")
- I ZPRED'[":" D  Q  ;
- . I ZPRED["." S ZPRED=$TR(ZPRED,".","-")
- . I ZPRED["@" S ZPRED=$TR(ZPRED,"@","_")
- . D ADD(ZARY,"<"_ZPRED_">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZPRED_">")
  Q
  ;