Changeset 1499 for fmts

Timestamp:

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

Author:

George Lilly

Message:

changes for smart

Location:

fmts/trunk/p

Files:

• C0XF2N.m (modified) (1 diff)
• C0XRDF.m (modified) (2 diffs)
• C0XUTIL.m (modified) (1 diff)

fmts/trunk/p/C0XF2N.m

@@ -396 +396 @@
 ADD(ZG,ZS,ZP,ZO,FARY) ; ADD A TRIPLE TO THE TRIPLESTORE. ALL VALUES ARE TEXT
  ; THE FDA IS SET UP BUT THE FILES ARE NOT UPDATED. CALL UPDIE TO COMPLETE
- I $G(NOFMTS)'="" D  Q  ; just add the triples to C0XARY
- . S C0XARY(ZS,ZP,ZO)=""
  I '$D(FARY) D  ;
  . D INITFARY("C0XFARY")

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
  ;

fmts/trunk/p/C0XUTIL.m

@@ -57 +57 @@
  S C0XVOC("mv")="http://metavista.name/foundation#"
  S C0XVOC("rdfs")="http://www.w3.org/2000/01/rdf-schema#"
- S C0XVOC("vista")="http://osehra.org/"
+ S C0XVOC("vistaSmart")="https://smart2.vistaewd.net/vista/smart/records/"
  S C0XVOC("vmu")="http://vista.org/mu/"
  S C0XVOC("vq")="http://vista.org/quality/"