Changeset 1204 for ccr/trunk/p/C0CMXMLB.m

Timestamp:

Jun 23, 2011, 3:01:41 PM (13 years ago)

Author:

George Lilly

Message:

updates for MU Certification

File:

• ccr/trunk/p/C0CMXMLB.m (modified) (2 diffs)

ccr/trunk/p/C0CMXMLB.m

@@ -6 +6 @@
  ;DOCTYPE - Want to include a DOCTYPE node
  ;FLAG - Set to 'G' to store the output in the global ^TMP("MXMLBLD",$J,
-START(DOC,DOCTYPE,FLAG) ;Call this once at the begining.
+START(DOC,DOCTYPE,FLAG,NO1ST) ;Call this once at the begining.
  K ^TMP("MXMLBLD",$J)
  S ^TMP("MXMLBLD",$J,"DOC")=DOC,^TMP("MXMLBLD",$J,"STK")=0
  I $G(FLAG)["G" S ^TMP("MXMLBLD",$J,"CNT")=1
- D OUTPUT($$XMLHDR) D:$L($G(DOCTYPE)) OUTPUT("<!DOCTYPE "_DOCTYPE_">") D OUTPUT("<"_DOC_">")
+ I $G(NO1ST)'=1 D OUTPUT($$XMLHDR) 
+ D:$L($G(DOCTYPE)) OUTPUT("<!DOCTYPE "_DOCTYPE_">") D OUTPUT("<"_DOC_">")
  Q
  ;
@@ -41 +42 @@
  Q S
  ;
-Q(X) ;Add Quotes
- I X'[$C(34) Q $C(34)_X_$C(34)
- N Q,Y,I,Z S Q=$C(34),(Y,Z)=""
+Q(X) ;Add Quotes - Changed by gpl to use single instead of double quotes 6/11
+ ;I X'[$C(34) Q $C(34)_X_$C(34)
+ I X'[$C(39) Q $C(39)_X_$C(39)
+ ;N Q,Y,I,Z S Q=$C(34),(Y,Z)=""
+ N Q,Y,I,Z S Q=$C(39),(Y,Z)=""
  F I=1:1:$L(X,Q)-1 S Y=Y_$P(X,Q,I)_Q_Q
  S Y=Y_$P(X,Q,$L(X,Q))
- Q $C(34)_Y_$C(34)
+ ;Q $C(34)_Y_$C(34)
+ Q $C(39)_Y_$C(39)
  ;
 XMLHDR() ; -- provides current XML standard header