Subversion Repositories DevTools

<%
'===================================================================
'                                               Personal Bar
'===================================================================
%>
<%
'------------ VARIABLE DEFINITION -------------
Dim SnippetTemplate
'------------ CONSTANTS DECLARATION -----------
'------------ VARIABLE INIT -------------------
SnippetTemplate = ReadFile ( APP_ROOT &"/scripts/snippet_style.html")
'----------------------------------------------
%>
<%
'---------------------------------------------------------------------------------------------------------------------------------
Sub snipRecentlyReleasedProducts ( nBom_id )
        Dim rsQry, query, snipBody, fullSnippet, rm_projects_fk, rm_vtree_fk
        
        snipBody = ""
        fullSnippet = SnippetTemplate
        
        '--- Get some parameters ---
        query = _
        "   SELECT proj.RM_PROJECTS_FK,"&_
        "                  br.RM_VTREE_FK"&_
        "         FROM DM_PROJECTS proj,"&_
        "                  BRANCHES br,"&_
        "                  BOMS bo"&_
        "        WHERE br.PROJ_ID = proj.PROJ_ID"&_
        "          AND bo.BRANCH_ID = br.BRANCH_ID"&_
        "          AND bo.BOM_ID = :BOM_ID"
        
        OraDatabase.Parameters.Add "BOM_ID",                                    nBom_id,                                                ORAPARM_INPUT, ORATYPE_NUMBER 
        
        Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
        If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
                rm_projects_fk = rsQry("rm_projects_fk")
                rm_vtree_fk = rsQry("rm_vtree_fk")
                
        End If
        
        
        '--- Get Recently Released Products ---
        If IsNull(rm_projects_fk)  OR  IsNull(rm_projects_fk) Then Exit Sub
        
        OraDatabase.Parameters.Add "RM_PROJECTS_FK",                    rm_projects_fk,                                 ORAPARM_INPUT, ORATYPE_NUMBER 
        OraDatabase.Parameters.Add "RM_VTREE_FK",                               rm_vtree_fk,                                    ORAPARM_INPUT, ORATYPE_NUMBER 
        OraDatabase.Parameters.Add "RM_PRODUCTS_BASE_VIEW",     enumPRODUCTS_BASE_VIEW_ID,              ORAPARM_INPUT, ORATYPE_NUMBER 
        OraDatabase.Parameters.Add "DAYS_BACK_IN_TIME",                 enumRELEASES_DAYS_BACK_IN_TIME, ORAPARM_INPUT, ORATYPE_NUMBER 
        
        Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("LatestRecentlyReleasedProducts.sql"), ORADYN_DEFAULT )
        
        snipBody = snipBody &"<table width='100%'  border='0' cellspacing='0' cellpadding='2'>"
        
        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
                snipBody = snipBody &"<tr>"
                snipBody = snipBody &"<td><a href='#' class='fav_link' title='Add Product...'><img src='icons/i_product_new.gif' hspace='3' align='absmiddle' border='0'>"&  rsQry("pkg_name") &" "& rsQry("pkg_version")  &"</a></td>"
                snipBody = snipBody &"</tr>"
                rsQry.MoveNext
        WEnd
        
        snipBody = snipBody &"</table>"
        
        OraDatabase.Parameters.Remove "RM_PROJECTS_FK"
        OraDatabase.Parameters.Remove "RM_VTREE_FK"
        OraDatabase.Parameters.Remove "RM_PRODUCTS_BASE_VIEW"
        OraDatabase.Parameters.Remove "DAYS_BACK_IN_TIME"
        OraDatabase.Parameters.Remove "BOM_ID"
        
        rsQry.Close()
        Set rsQry = Nothing
        
        
        
        '--- Render Snippet ---
        fullSnippet = Replace( fullSnippet, "%SNIPPET_TITLE%", "Recently Released Products" )
        fullSnippet = Replace( fullSnippet, "%SNIPPET_BODY%", snipBody )
        Response.write fullSnippet
        
End Sub
'---------------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE CONTROL RENDER -------

'----------------------------------------------
%>
<%If Request.Cookies( enumCOOKIE_NAME )( "user_bar" ) <> "hide" Then%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="100%" valign="bottom" background="images/bg_node_icon.gif"><%=GetNodeImage ( dbPARnode_id )%></td>
    <td width="1" background="images/bg_node_icon.gif"><img src="images/spacer.gif" width="1" height="97"></td>
  </tr>
  </table>
  <a href="<%=SCRIPT_NAME%>?user_bar=hide&<%=objPMod.ComposeURL()%>"><img src="icons/b_right.gif" title="Minimize favourits" width="13" height="13" vspace="5" border="0"></a>      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td valign="top">
        <%
        Call snipRecentlyReleasedProducts ( dbPARbom_id )
        %>
        </td>
    <td width="1%"><img src="images/spacer.gif" width="15" height="400"></td>
  </tr>
</table>
<%End If%>
<%
'------------ RUN AFTER CONTROL RENDER --------
'----------------------------------------------
%>