"
Else
sSize = rsComp("byte_size")
sIcon = "
"
End If
%>
<%If NOT dFileFilter.Exists ( CStr(rsComp("diff_state")) ) Then%>
"
Const LIMG_ADDED = "
"
Const LIMG_REMOVED = "
"
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")
If InStr( Request("btn"), "Expand" ) > 0 Then
parFileDiff = "true"
ElseIf InStr( Request("btn"), "Collapse" ) > 0 Then
parFileDiff = ""
End If
' 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 )
Select Case CInt(sStatus)
Case enumDB_NUM_DIFF_NO_CHANGE
outStyle = "body_rowg"
outIcon = NULL
Case enumDB_NUM_DIFF_UPDATED
outStyle = "body_rowbold"
outIcon = LIMG_UPDATED
Case enumDB_NUM_DIFF_NEW
outStyle = "body_rowbold"
outIcon = LIMG_ADDED
Case enumDB_NUM_DIFF_REMOVED
outStyle = "body_rowthru"
outIcon = LIMG_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
If IsNull(pkgInfoHash.Item("v_ext")) OR (pkgInfoHash.Item("v_ext") = "") Then
OraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
Else
OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
End If
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
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%>
| Name | Byte Size | |
| <%=sDiffStateIcon%> | <%=sIcon & rsComp("name")%> | <%=sSize%> |