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
'-----------------------------------------------------------------------------------------------------------------------------
%>