' Generic Merlin Error Message box
Function MerlinInputBox(txt, default)
	'if strmsg = "" then exit function
	MerlinInputBox = InputBox (txt, GetHTMLMsg("MGC_PL_LABEL_1074"), default)
End Function

Function MerlinInputBoxWithTitle(txt, default, title)
	'if strmsg = "" then exit function
	MerlinInputBoxWithTitle = InputBox (txt, title, default)
End Function

Function MerlinMsgBox(strmsg, msgtype)
	if strmsg = "" then exit function
	strmsg = Replace(strmsg, "\n", " ")
	MerlinMsgBox = MsgBox (strmsg, msgtype, GetHTMLMsg("MGC_PL_LABEL_1074"))
End Function

Function MerlinErrorMsgBox(strmsg, msgtype)
	if strmsg = "" then exit function
	strmsg = Replace(strmsg, "\n", " ")
	MerlinErrorMsgBox = MsgBox (strmsg, msgtype, GetHTMLMsg("MGC_PL_LABEL_1074"))
End Function

Function FormatVBMsg(ResStr, StrErrNum, strArgs)
	FormatVBMsg = GetStringCommon(ResStr,strArgs)
End Function
'Sridhar#29487: Added this function
Function GetAscVal(char)
    GetAscVal=Asc(char)
End function
'Sridhar-Ends here

'So that non-VBScript browsers can tell
Const CommonSystemMsgLoaded = True

' © Copyright 1998, 2004-2007 BMC Software, Inc. '
' The source code embodied herein is a trade secret of BMC Software, Inc. All use, disclosure, and/or reproduction not specifically and expressly authorized, in writing, by BMC Software, Inc. is prohibited. '