ShowMenu メソッド

新規メソッド ShowMenu を追加します。これは、XML ソース・ドキュメントを読み取り、HTML メニューをコンテンツに基づいて表示します。

ClassMethod ShowMenu(filename As %String)
{
    Set sc = ##class(%XML.TextReader).ParseFile(filename,.reader)
    If ($$$ISOK(sc)) {
        While (reader.Read()) {
            If ((reader.NodeType = "element") &&
                    (reader.LocalName = "item")) {
                Write reader.Value,"<MENU>",!
                If (reader.MoveToAttributeName("caption")) {
                    Write "<LI>",reader.Value,!
                }
            }
            ElseIf ((reader.NodeType = "endelement") &&
                    (reader.LocalName = "item")) {
                Write reader.Value,"</MENU>",!
            }
        }
    }
    Else {
        // error
        Do $system.OBJ.DisplayError(sc)
    }
}