Changeset 1385

Timestamp:

Mar 23, 2012, 4:13:51 PM (12 years ago)

Author:

George Lilly

Message:

fixes to rdf output

File:

• fmts/trunk/p/C0XRDF.m (modified) (1 diff)

fmts/trunk/p/C0XRDF.m

@@ -46 +46 @@
  . I ZOBJ["nodeID:" D  Q  ;
  . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:nodeID="""_$$EXT^C0XUTIL(ZOBJ)_"""/>")
+ . S ZOBJ=$$EXT^C0XUTIL(ZOBJ)
+ . I ZOBJ["http" D  Q  ;
+ . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
+ . I $E(ZOBJ,1,1)="/" D  Q  ;
+ . . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""" rdf:resource="""_ZOBJ_"""/>")
  . D ADD(ZARY,"<"_ZB_" xmlns="""_ZC_""">"_$$EXT^C0XUTIL(ZOBJ)_"</"_ZB_">")
  Q