Changeset 1325 for ccr/branches/ohum/p/C0CMXMLB.m

Timestamp:

Dec 31, 2011, 12:08:05 AM (12 years ago)

Author:

George Lilly

Message:

latest ohum update

File:

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

ccr/branches/ohum/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,NO1ST) ;Call this once at the begining.
+START(DOC,DOCTYPE,FLAG) ;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
- I $G(NO1ST)'=1 D OUTPUT($$XMLHDR) 
- D:$L($G(DOCTYPE)) OUTPUT("<!DOCTYPE "_DOCTYPE_">") D OUTPUT("<"_DOC_">")
+ D OUTPUT($$XMLHDR) D:$L($G(DOCTYPE)) OUTPUT("<!DOCTYPE "_DOCTYPE_">") D OUTPUT("<"_DOC_">")
  Q
  ;
@@ -42 +41 @@
  Q S
  ;
-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)=""
+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)=""
  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(39)_Y_$C(39)
+ Q $C(34)_Y_$C(34)
  ;
 XMLHDR() ; -- provides current XML standard header