ПримерClass test.login Extends %CSP.Login
{

Parameter DOMAIN = "TEST";

ClassMethod DrawTitle(pTitle As %String)
{
  Set msgs("cmdServer") = "Сервер"
  Set msgs("cmdInstance") = "Экземпляр"
  Set msgs("msgServer") = "Имя машины, на которой работает эта система"
  Set msgs("msgInstance") = $ZCVT($ZV,"O","HTML")
  Set msgs("ProductName") = $ZCVT("Портал Управления","O","HTML")
  Set msgs("tPower") = $ZCVT("Работает на Zen","O","HTML")
  Set msgs("tBy") = $ZCVT("от InterSystems","O","HTML")
  
  Do ..DrawTitleSection( .msgs )
}

ClassMethod DrawTitleSection(ByRef msgs As %String)
{
  Set tLang = $$$SessionLanguage
  Set cmdServer = msgs("cmdServer")
  Set msgServer = msgs("msgServer")
  Set cmdInstance = msgs("cmdInstance")
  Set msgInstance = msgs("msgInstance")

  Set ServerName = $zu(110)
  Set InstanceName = $P($zu(86),"*",2)
  Set ProductName = msgs("ProductName")
  Set tPower = msgs("tPower")
  Set tBy = msgs("tBy")
  &html<<table class="portalTitle" id="group_1" width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr valign="bottom">
  <td width="99%" align="left">
    <div class="portalTitleInfoBox">
    <table border="0">
    <tr>
    <td class="portalTitleInfoLabel" title="#(msgServer)#">#(cmdServer)#:</td><td class="portalTitleInfoVal">#(ServerName)# </td>
    <td class="portalTitleInfoLabel" title="#(msgInstance)#">#(cmdInstance)#:</td><td class="portalTitleInfoVal">#($P($zu(86),"*",2))# </td>
    </tr>
    </table>
    </div>
  </td>
  <td width="10%" align="right" valign="top">
  <div class="portalLogoBox">
  <div class="portalLogo" title="#(tPower)#">#(ProductName)#</div>
  <div class="portalLogoSub">#(tBy)#</div>
  </div>
  </td>
  </tr>
  </table>>
}

}