<% '===================================================== ' Dependency Changes '===================================================== %> <% '------------ Variable Definition ------------- Dim parFileDiff Dim parComparePvId Dim parFileFilter Dim dFileFilter Dim parDepFilter Dim dDepFilter Dim preVerText '------------ Constants Declaration ----------- Const LIMG_UPDATED = "" Const LIMG_ADDED = "" Const LIMG_REMOVED = "" Const LIMG_UNCHANGED = "" Const LIMG_FILTER_ON = "" Const LIMG_FILTER_OFF = "" Const LIMG_NEW_WINDOW = "" Const LIMG_DROP_DOWN_ARROW = "" '------------ Variable Init ------------------- parFileDiff = Request("filediff") parComparePvId = Request("compare_pv_id") parFileFilter = Request("filefilter") parDepFilter = Request("depfilter") '---------------------------------------------- Set dDepFilter = CreateObject("Scripting.Dictionary") Set dFileFilter = CreateObject("Scripting.Dictionary") ' Define version to compare If parComparePvId = "" Then If NOT IsNull( pkgInfoHash.Item("last_pv_id") ) OR pkgInfoHash.Item("last_pv_id") <> "" Then parComparePvId = pkgInfoHash.Item("last_pv_id") Else parComparePvId = 0 End If End If '----------------------------------------------------------------------------------------------------------------- Sub GetFileFilterValues ( outFileFilter ) Dim FilterVal, aFilterValues If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER) <> "" Then aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER), " ", ""), ",") For Each FilterVal In aFilterValues outFileFilter.Item (CStr( FilterVal )) = "" Next End If End Sub '----------------------------------------------------------------------------------------------------------------- Sub GetDepFilterValues ( outDepFilter ) Dim FilterVal, aFilterValues If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER) <> "" Then aFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER), " ", ""), ",") For Each FilterVal In aFilterValues outDepFilter.Item (CStr( FilterVal )) = "" Next End If End Sub '----------------------------------------------------------------------------------------------------------------- Function GetIsDepFilterInUseIcon() GetIsDepFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW If dDepFilter.Count > 0 Then GetIsDepFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW End If End Function '----------------------------------------------------------------------------------------------------------------- Function GetIsFileFilterInUseIcon() GetIsFileFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROW If dFileFilter.Count > 0 Then GetIsFileFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROW End If End Function '----------------------------------------------------------------------------------------------------------------- Function GetIsFileFilterChecked( nFilterId ) If dFileFilter.Exists ( CStr(nFilterId) ) Then GetIsFileFilterChecked = "checked" End If End Function '----------------------------------------------------------------------------------------------------------------- Function GetIsDepFilterChecked( nFilterId ) If dDepFilter.Exists ( CStr(nFilterId) ) Then GetIsDepFilterChecked = "checked" End If End Function '----------------------------------------------------------------------------------------------------------------- Sub RowStyle ( sStatus, ByRef outIcon, ByRef outStyle, ByRef outText ) Select Case CInt(sStatus) Case enumDB_NUM_DIFF_NO_CHANGE outStyle = "body_rowg" outIcon = NULL outText = "No Change" Case enumDB_NUM_DIFF_UPDATED outStyle = "body_rowbold" outIcon = LIMG_UPDATED outText = "Changed" Case enumDB_NUM_DIFF_NEW outStyle = "body_rowbold" outIcon = LIMG_ADDED outText = "Added" Case enumDB_NUM_DIFF_REMOVED outStyle = "body_rowthru" outIcon = LIMG_REMOVED outText = "Removed" End Select End Sub '----------------------------------------------------------------------------------------------------------------- Sub DisplayComparePvIdCombo() Dim rsQry, isOfficial OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "V_EXT", EmptyToNull(pkgInfoHash.Item("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0)) Response.write "" While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) If rsQry("dlocked") = "Y" Then isOfficial = "R " Else isOfficial = "    " End If If rsQry("selected") <> "" Then preVerText = rsQry("pkg_version") End If Response.write ""& VBNewLine rsQry.MoveNext WEnd ' Clean up rsQry.Close() Set rsQry = nothing OraDatabase.Parameters.Remove "COMPARE_PV_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" End Sub '----------------------------------------------------------------------------------------------------------------- Sub DisplayCompareReleasePvIdCombo() Dim rsQry, isOfficial OraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "V_EXT", EmptyToNull(pkgInfoHash.Item("v_ext")), ORAPARM_INPUT, ORATYPE_VARCHAR2 Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasePackageVersions.sql"), cint(0)) Response.Write "" & VBNewLine Response.write "" While ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Response.write ""& VBNewLine rsQry.MoveNext WEnd ' Clean up rsQry.Close() Set rsQry = nothing OraDatabase.Parameters.Remove "COMPARE_PV_ID" OraDatabase.Parameters.Remove "PKG_ID" OraDatabase.Parameters.Remove "V_EXT" End Sub '----------------------------------------------------------------------------------------------------------------- Sub DisplayDiffSummary( orsQry ) Dim dDiffSummary Set dDiffSummary = CreateObject("Scripting.Dictionary") dDiffSummary.Item ("UPDATED") = 0 dDiffSummary.Item ("REMOVED") = 0 dDiffSummary.Item ("ADDED") = 0 While ((NOT orsQry.BOF) AND (NOT orsQry.EOF)) Select Case CInt( orsQry("status") ) Case enumDB_NUM_DIFF_UPDATED dDiffSummary.Item ("UPDATED") = CInt( dDiffSummary.Item ("UPDATED") ) + 1 Case enumDB_NUM_DIFF_REMOVED dDiffSummary.Item ("REMOVED") = CInt( dDiffSummary.Item ("REMOVED") ) + 1 Case enumDB_NUM_DIFF_NEW dDiffSummary.Item ("ADDED") = CInt( dDiffSummary.Item ("ADDED") ) + 1 End Select orsQry.MoveNext WEnd ' Reset cursor orsQry.MoveFirst() ' Display Summary Response.write dDiffSummary.Item ("UPDATED") &" -Updated, " Response.write dDiffSummary.Item ("ADDED") &" -Added, " Response.write dDiffSummary.Item ("REMOVED") &" -Removed" End Sub '----------------------------------------------------------------------------------------------------------------- Sub DisplayComponentChanges( nPvId, nComparePvId ) Dim rsComp, sSize, sIcon, sDiffStateIcon, sStyle '''''Response.write nPvId &" "& nComparePvId OraDatabase.Parameters.Add "PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "COMPARE_PV_ID", nComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsComp = OraDatabase.DbCreateDynaset( GetQuery("ModuleComponentDiff.sql"), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "COMPARE_PV_ID" %> <%If rsComp.Recordcount < 1 Then%> <%Else%> <% While ((NOT rsComp.BOF) AND (NOT rsComp.EOF)) Call GetDiffStateIcon( rsComp("diff_state"), sDiffStateIcon, sStyle ) ' Find if this is file or folder If IsNull( rsComp("crc_cksum") ) AND (rsComp("byte_size") = 0) Then sSize = "" sIcon = "" Else sSize = rsComp("byte_size") sIcon = "" End If %> <%If NOT dFileFilter.Exists ( CStr(rsComp("diff_state")) ) Then%> <%End If%> <% rsComp.MoveNext WEnd rsComp.Close() Set rsComp = nothing %>
Name Byte Size
<%=sDiffStateIcon%> <%=sIcon%> <%=rsComp("name")%> <%=sSize%>

<%End If%> <%End Sub '-------------------------------------------------------------------------------------------------------------------------------------- Sub GetDiffStateIcon( nDiffState, outIcon, outStyle ) Select Case CInt( nDiffState ) Case enumDB_NUM_DIFF_UPDATED outIcon = LIMG_UPDATED outStyle = "body_rowbold" Case enumDB_NUM_DIFF_REMOVED outIcon = LIMG_REMOVED outStyle = "body_rowthru" Case enumDB_NUM_DIFF_NEW outIcon = LIMG_ADDED outStyle = "body_rowbold" Case Else outIcon = "" outStyle = "" End Select End Sub '----------------------------------------------------------------------------------------------------------------- Sub DisplayFileFilter If parFileDiff <> "" Then%>
<%=GetIsFileFilterInUseIcon() %> Hide Files and Folders...
<%End If End Sub '----------------------------------------------------------------------------------------------------------------- Sub displayDepFilter %>
<%=GetIsDepFilterInUseIcon() %> Hide Dependencies...
<%End Sub %> <% '------------------------- MAIN LINE --------------------------- Call GetDepFilterValues ( dDepFilter ) Call GetFileFilterValues ( dFileFilter ) '--------------------------------------------------------------- %>
<% ' Make database connection OraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "OLD_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0)) OraDatabase.Parameters.Remove "PV_ID" OraDatabase.Parameters.Remove "OLD_PV_ID" %> <%If rsTemp.Recordcount > 0 Then%>
Show differences since version in release
Showing differences since version
<%Call DisplayDiffSummary( rsTemp ) %>
<%Else%> <%End If%>
<%If parFileDiff <> "" Then%> <%Call DisplayFileFilter%> <%Call displayDepFilter%>
<%End If%> <% %> <% Dim style, icon, sText icon = Iif( Clng(DB_PV_ID) = cLng(parComparePvId), "", LIMG_UPDATED) sText = Iif( Clng(DB_PV_ID) = cLng(parComparePvId), "No Change", "Changed") %> <%If (parFileDiff <> "") Then%> <%End If%> <%If (rsTemp.RecordCount < 1) Then%> <%End If%> <% While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Call RowStyle ( rsTemp("status"), icon, style, sText ) %> <%If NOT dDepFilter.Exists(CStr( rsTemp("status") )) Then%> <%If (parFileDiff <> "") AND ( rsTemp("status") <> enumDB_DIFF_NO_CHANGE ) Then%> <%End If%> <%End If%> <%rsTemp.MoveNext WEnd rsTemp.Close Set rsTemp = nothing %>
Change Name   Current Version   Previous Version
<%=icon%> <%=pkgInfoHash.Item("pkg_name")%> <%=pkgInfoHash.Item("pkg_version")%> <%=preVerText%>
    <%Call DisplayComponentChanges( DB_PV_ID, parComparePvId )%>
       
<%=icon%> <%If NOT IsNull(rsTemp("pkg_version")) Then%> <%=rsTemp("pkg_name")%> <%Else%> <%=rsTemp("pkg_name")%> <%End If%> <%=rsTemp("pkg_version")%> <%=rsTemp("previous_version")%>
    <%Call DisplayComponentChanges( rsTemp("pv_id"), rsTemp("old_pv_id") )%>