Subversion Repositories DevTools

<%

'===================================================================

'							Common Subs

'===================================================================

%>

<%

'-----------------------------------------------------------------------------------------------------------------------------

Sub CloseWindow

    Call Destroy_All_Objects

%>

	<SCRIPT language="JavaScript" type="text/javascript">

	<!--

	self.close();

	//-->

	</SCRIPT>

<%

    Response.End

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Sub OpenChildWindow ( SStitle, SSurl, SSH, SSW, BBscroll )

	Dim scrlBar

	If BBscroll Then

		scrlBar = "yes"

	Else

		scrlBar = "no"

	End If

%>

	<script language="JavaScript" type="text/javascript">

	<!--

	window.open('<%=SSurl%>','<%=SStitle%>','scrollbars=<%=scrlBar%>,resizable=yes,width=<%=SSW%>,height=<%=SSH%>');

	//-->

	</script>

<%

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Sub OpenInParentWindow ( SSurl )

%>

	<script language="JavaScript" type="text/javascript">

	<!--

	window.opener.document.location='<%=SSurl%>';

	//-->	

	</script>

<%

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Sub OpenInWindow ( SSurl )

    Call Destroy_All_Objects

	Response.Redirect ( SSurl )

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Function onClickOpenWindow ( sURL, sWindowName, nWidth, nHeight, sWindowParams )

	If NOT IsNull(sWindowParams)  OR  (sWindowParams <> "") Then sWindowParams = sWindowParams &","	' Append comma if params are not empty

	onClickOpenWindow = "onClick='MM_openBrWindow("""& sURL &""", """& sWindowName &""", """& sWindowParams &"width="& nWidth &",height="& nHeight &",top=200,left=""+ ( screen.width / 2 - "& nWidth \ 2 &" ) +""  "");'"

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Function ReadFile( sPath )

	Dim filesys, rfile

	Set filesys = CreateObject("Scripting.FileSystemObject")

	Set rfile = filesys.OpenTextFile( sPath, 1, false)

	ReadFile = rfile.ReadAll

	rfile.close

	Set filesys = nothing

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Function GetQuery ( sQryName )

	GetQuery = ReadFile( QUERIES_PATH &"\"& sQryName )

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Function BoldSelected ( sItem, bSelected )

	If bSelected Then

		BoldSelected = "<b>"& sItem &"</b>"

	Else

		BoldSelected = sItem

	End If

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Function Expander ( sExpand )

	Const IMG_PLUS = "<img src='images/i_plus.gif' width='9' height='9' align='absmiddle' border='0' vspace='4'>"

	Const IMG_MINUS = "<img src='images/i_minus.gif' width='9' height='9' align='absmiddle' border='0' vspace='4'>"

	Const IMG_NO_EXPAND = "<img src='images/spacer.gif' width='9' height='9' align='absmiddle' border='0' vspace='4'>"

	If (sExpand = "+") OR (NOT sExpand ) Then

		Expander = IMG_PLUS

	ElseIf ( sExpand = "-" ) OR ( sExpand ) Then

		Expander = IMG_MINUS

	Else

		Expander = IMG_NO_EXPAND

	End If

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Function GetNodeImage ( nNode_id )

	Dim query, rsQry

	query = _

	"SELECT nt.NODE_IMAGE "&_

	"  FROM NETWORK_NODES nn,"&_

	"  	    NODE_TYPES nt"&_

	" WHERE nn.NODE_TYPE_ID = nt.NODE_TYPE_ID"&_

	"   AND nn.node_id = :NODE_ID"

	OraDatabase.Parameters.Add "NODE_ID", 	nNode_id, 	ORAPARM_INPUT, ORATYPE_NUMBER 

	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )

	If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

		GetNodeImage = "<img src='icons/"& rsQry("node_image") &"'>"

	End If

	rsQry.Close

	Set rsQry = Nothing

	OraDatabase.Parameters.Remove "NODE_ID"

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Sub GetApplicationDetails ( nApp_id, ByRef outobjDetails )

    If nApp_id <> "" Then

        Dim rsQry, query

        query = "SELECT *  FROM   APPLICATIONS  WHERE app_id = "& nApp_id

        Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )

        If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

            outobjDetails.Item ("app_id")   = rsQry("app_id")

            outobjDetails.Item ("application_name") = rsQry("application_name")

        Else

            Err.Raise 8, "Sub GetApplicationDetails", "Empty record set returned. nApp_id="& nApp_id

        End If

        rsQry.Close

        Set rsQry = Nothing

    End If

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Function ProgressBar ()

	ProgressBar = "<DIV name='divProgressBar' id='divProgressBar' style='visibility:hidden;'><img src='icons/i_processing.gif' width='79' height='14'></DIV>"

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Sub Messenger ( sMessage, nMessageType, sWidth )

	Dim msgTemplate, Img

	Select Case nMessageType

		Case 1

			Img = "s_critical.gif"

		Case 2

			Img = "s_warning.gif"

		Case 3

			Img = "s_note.gif"

		Case Else

			Img = "s_note.gif"

	End Select

	msgTemplate = ReadFile( APP_ROOT &"\scripts\message_style.html" )

	msgTemplate = Replace( msgTemplate, "%WIDTH%", sWidth )

	msgTemplate = Replace( msgTemplate, "%IMAGE%", Img )

	msgTemplate = Replace( msgTemplate, "%MESSAGE%", sMessage )

	Response.write msgTemplate

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Sub LoadTabActionButtons ( aBtns,  ByRef objControl )

	' -- Load Action Buttons

	Call objControl.LoadActionButtons ( aBtns, OraDatabase )

	' -- Set button spacer

	objControl.ButtonSpacer = 10

End Sub

'-----------------------------------------------------------------------------------------------------------------------------

Function iif(bFlag, sTrueStr, sFalseStr)

  if bFlag then

    iif = sTrueStr

  else 

    iif = sFalseStr

  end if

End Function

'-----------------------------------------------------------------------------------------------------------------------------

Function EmptyToNull (sVal)

    If sval <> "" Then

        EmptyToNull = sVal

    Else

        EmptyToNull = NULL

    End If

End Function

'-----------------------------------------------------------------------------------------------------------------------------

%>