Rev 119 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%'=====================================================' Dependency Changes'=====================================================%><%'------------ Variable Definition -------------Dim parFileDiffDim parComparePvIdDim parFileFilterDim dFileFilterDim parDepFilterDim dDepFilter'------------ Constants Declaration -----------Const LIMG_UPDATED = "<img src='images/i_updated.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Updated'>"Const LIMG_ADDED = "<img src='images/i_added.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Added'>"Const LIMG_REMOVED = "<img src='images/i_removed.gif' width='11' height='11' border='0' hspace='2' align='absmiddle' title='Removed'>"Const LIMG_FILTER_ON = "<img src='images/i_data_table.gif' border='0' align='absmiddle' hspace='0' title='Filter in use.'>"Const LIMG_FILTER_OFF = "<img src='images/i_data_table_off.gif' border='0' align='absmiddle' hspace='0' title='Filter not in use.'>"Const LIMG_NEW_WINDOW = "<img src='images/i_new_window.gif' width='16' height='16' hspace='3' border='0' align='absmiddle' >"Const LIMG_DROP_DOWN_ARROW = "<img src='images/i_drop_down_arrow.gif' width='5' height='15' hspace='1' border='0' align='absmiddle'>"'------------ 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 ThenparFileDiff = "true"ElseIf InStr( Request("btn"), "Collapse" ) > 0 ThenparFileDiff = ""End If' Define version to compareIf parComparePvId = "" ThenIf NOT IsNull( pkgInfoHash.Item("last_pv_id") ) OR pkgInfoHash.Item("last_pv_id") <> "" ThenparComparePvId = pkgInfoHash.Item("last_pv_id")ElseparComparePvId = 0End IfEnd If'----------------------------------------------%><%'-----------------------------------------------------------------------------------------------------------------Sub GetFileFilterValues ( outFileFilter )Dim FilterVal, aFilterValuesIf Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER) <> "" ThenaFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_FILES_FILTER), " ", ""), ",")For Each FilterVal In aFilterValuesoutFileFilter.Item (CStr( FilterVal )) = ""NextEnd IfEnd Sub'-----------------------------------------------------------------------------------------------------------------Sub GetDepFilterValues ( outDepFilter )Dim FilterVal, aFilterValuesIf Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER) <> "" ThenaFilterValues = Split( Replace( Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DEPS_FILTER), " ", ""), ",")For Each FilterVal In aFilterValuesoutDepFilter.Item (CStr( FilterVal )) = ""NextEnd IfEnd Sub'-----------------------------------------------------------------------------------------------------------------Function GetIsDepFilterInUseIcon()GetIsDepFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROWIf dDepFilter.Count > 0 ThenGetIsDepFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROWEnd IfEnd Function'-----------------------------------------------------------------------------------------------------------------Function GetIsFileFilterInUseIcon()GetIsFileFilterInUseIcon = LIMG_FILTER_OFF & LIMG_DROP_DOWN_ARROWIf dFileFilter.Count > 0 ThenGetIsFileFilterInUseIcon = LIMG_FILTER_ON & LIMG_DROP_DOWN_ARROWEnd IfEnd Function'-----------------------------------------------------------------------------------------------------------------Function GetIsFileFilterChecked( nFilterId )If dFileFilter.Exists ( CStr(nFilterId) ) ThenGetIsFileFilterChecked = "checked"End IfEnd Function'-----------------------------------------------------------------------------------------------------------------Function GetIsDepFilterChecked( nFilterId )If dDepFilter.Exists ( CStr(nFilterId) ) ThenGetIsDepFilterChecked = "checked"End IfEnd Function'-----------------------------------------------------------------------------------------------------------------Sub RowStyle ( sStatus, ByRef outIcon, ByRef outStyle )Select Case CInt(sStatus)Case enumDB_NUM_DIFF_NO_CHANGEoutStyle = "body_rowg"outIcon = NULLCase enumDB_NUM_DIFF_UPDATEDoutStyle = "body_rowbold"outIcon = LIMG_UPDATEDCase enumDB_NUM_DIFF_NEWoutStyle = "body_rowbold"outIcon = LIMG_ADDEDCase enumDB_NUM_DIFF_REMOVEDoutStyle = "body_rowthru"outIcon = LIMG_REMOVEDEnd SelectEnd Sub'-----------------------------------------------------------------------------------------------------------------Sub DisplayComparePvIdCombo()Dim rsQry, isOfficialOraDatabase.Parameters.Add "COMPARE_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "PKG_ID", pkgInfoHash.Item("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBERIf IsNull(pkgInfoHash.Item("v_ext")) OR (pkgInfoHash.Item("v_ext") = "") ThenOraDatabase.Parameters.Add "V_EXT", NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2ElseOraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2End IfSet rsQry = OraDatabase.DbCreateDynaset( GetQuery("AllPackageVersions.sql"), cint(0))Response.write "<option value=''></option>"While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))If rsQry("dlocked") = "Y" ThenisOfficial = "R "ElseisOfficial = " "End IfResponse.write "<option value='"& rsQry("pv_id") &"' "& rsQry("selected") &" >"& isOfficial & rsQry("pkg_version") &"</option>"& VBNewLinersQry.MoveNextWEnd' Clean uprsQry.Close()Set rsQry = nothingOraDatabase.Parameters.Remove "COMPARE_PV_ID"OraDatabase.Parameters.Remove "PKG_ID"OraDatabase.Parameters.Remove "V_EXT"End Sub'-----------------------------------------------------------------------------------------------------------------Sub DisplayDiffSummary( orsQry )Dim dDiffSummarySet dDiffSummary = CreateObject("Scripting.Dictionary")dDiffSummary.Item ("UPDATED") = 0dDiffSummary.Item ("REMOVED") = 0dDiffSummary.Item ("ADDED") = 0While ((NOT orsQry.BOF) AND (NOT orsQry.EOF))Select Case CInt( orsQry("status") )Case enumDB_NUM_DIFF_UPDATEDdDiffSummary.Item ("UPDATED") = CInt( dDiffSummary.Item ("UPDATED") ) + 1Case enumDB_NUM_DIFF_REMOVEDdDiffSummary.Item ("REMOVED") = CInt( dDiffSummary.Item ("REMOVED") ) + 1Case enumDB_NUM_DIFF_NEWdDiffSummary.Item ("ADDED") = CInt( dDiffSummary.Item ("ADDED") ) + 1End SelectorsQry.MoveNextWEnd' Reset cursororsQry.MoveFirst()' Display SummaryResponse.write dDiffSummary.Item ("UPDATED") &" -<img src='images/i_updated.gif' width='11' height='11' hspace='3'>Updated, "Response.write dDiffSummary.Item ("ADDED") &" -<img src='images/i_added.gif' width='11' height='11' hspace='3'>Added, "Response.write dDiffSummary.Item ("REMOVED") &" -<img src='images/i_removed.gif' width='11' height='11' hspace='3'>Removed"End Sub'-----------------------------------------------------------------------------------------------------------------Sub DisplayComponentChanges( nPvId, nComparePvId )Dim rsComp, sSize, sIcon, sDiffStateIcon, sStyle'''''Response.write nPvId &" "& nComparePvIdOraDatabase.Parameters.Add "PV_ID", nPvId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "COMPARE_PV_ID", nComparePvId, ORAPARM_INPUT, ORATYPE_NUMBERSet 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%><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td width="1" background="images/bg_form_lightbluedark.gif" class="form_item"></td><td width="50%" background="images/bg_form_lightbluedark.gif" class="form_item">Name</td><td width="50%" background="images/bg_form_lightbluedark.gif" class="form_item" align="right">Byte Size</td></tr><%While ((NOT rsComp.BOF) AND (NOT rsComp.EOF))Call GetDiffStateIcon( rsComp("diff_state"), sDiffStateIcon, sStyle )' Find if this is file or folderIf IsNull( rsComp("crc_cksum") ) AND (rsComp("byte_size") = 0) ThensSize = ""sIcon = "<img src='images/rex_images/_folder.gif' border='0' hspace='3' align='absmiddle'>"ElsesSize = rsComp("byte_size")sIcon = "<img src='images/rex_images/ext_blank.gif' border='0' hspace='3' align='absmiddle'>"End If%><%If NOT dFileFilter.Exists ( CStr(rsComp("diff_state")) ) Then%><tr><td background="images/bg_form_lightgray.gif" nowrap class="body_txt_gray"><%=sDiffStateIcon%></td><td background="images/bg_form_lightgray.gif" nowrap class="<%=sStyle%>"><%=sIcon & rsComp("name")%></td><td background="images/bg_form_lightgray.gif" class="body_txt_gray" nowrap align="right"><%=sSize%></td></tr><%End If%><%rsComp.MoveNextWEndrsComp.Close()Set rsComp = nothing%></table><br><%End If%><%End Sub'--------------------------------------------------------------------------------------------------------------------------------------Sub GetDiffStateIcon( nDiffState, outIcon, outStyle )Select Case CInt( nDiffState )Case enumDB_NUM_DIFF_UPDATEDoutIcon = LIMG_UPDATEDoutStyle = "body_rowbold"Case enumDB_NUM_DIFF_REMOVEDoutIcon = LIMG_REMOVEDoutStyle = "body_rowthru"Case enumDB_NUM_DIFF_NEWoutIcon = LIMG_ADDEDoutStyle = "body_rowbold"Case ElseoutIcon = ""outStyle = "body_rowg"End SelectEnd Sub'-----------------------------------------------------------------------------------------------------------------%><%'------------------------- MAIN LINE ---------------------------Call GetDepFilterValues ( dDepFilter )Call GetFileFilterValues ( dFileFilter )'---------------------------------------------------------------%><!-- MAIN PAGE ------------------------------------------><a name="MODULECHANGES"></a><form name="modulechanges" method="get" action="<%=ScriptName%>?#MODULECHANGES" onSubmit="ProgressBar.style.visibility='visible';"><%' Make database connectionOraDatabase.Parameters.Add "PV_ID", parPv_id, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "OLD_PV_ID", parComparePvId, ORAPARM_INPUT, ORATYPE_NUMBERSet 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%><table width="100%" border="0" cellspacing="0" cellpadding="10"><tr><td nowrap background="images/bg_action_norm.gif" class="body_txt">Showing differences since version<select name="compare_pv_id" class="form_item"><%Call DisplayComparePvIdCombo()%></select><input name="btn" type="submit" class="form_btn" value="Compare"></td><td align="right" nowrap background="images/bg_action_norm.gif" class="body_txt"><%Call DisplayDiffSummary( rsTemp ) %> </td></tr></table><table width="100%" border="0" cellspacing="0" cellpadding="5"><tr><td width="100%" valign="top" nowrap background="images/bg_bage.gif" class="body_txt"><%If parFileDiff <> "" Then%><input name="btn" type="submit" class="form_btn" value="Collapse Files and Folders..."><%Else%><input name="btn" type="submit" class="form_btn" value="Expand Files and Folders..."><%End If%> </td><td width="1" valign="top" nowrap background="images/bg_bage.gif"><%If parFileDiff <> "" Then%><!-- FILE FILTER +++++++++++++++++++++++++++++++++++++++++++ --><fieldset><legend><a href="javascript:;" class="body_scol" onClick="ToggleDisplay('divFileFilter');" ><%=GetIsFileFilterInUseIcon() %> Hide Files and Folders...</a></legend><div name="divFileFilter" id="divFileFilter" class="body_txt" style="display:none;"><br><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td width="1" background="images/bg_action_norm.gif"><input name="filefilter" type="checkbox" value="<%=enumDB_NUM_DIFF_UPDATED%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_UPDATED)%>></td><td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td></tr><tr><td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_NEW%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_NEW)%>></td><td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td></tr><tr><td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_REMOVED%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_REMOVED)%>></td><td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td></tr><tr><td background="images/bg_action_norm.gif"><input type="checkbox" name="filefilter" value="<%=enumDB_NUM_DIFF_NO_CHANGE%>" <%=GetIsFileFilterChecked(enumDB_NUM_DIFF_NO_CHANGE)%>></td><td nowrap background="images/bg_action_norm.gif" class="form_field">Unchanged</td></tr><tr><td background="images/bg_action_norm.gif"> </td><td background="images/bg_action_norm.gif"><input name="btn" type="submit" class="form_btn" id="btn" value="Hide"></td></tr></table></div></fieldset><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><%End If%></td><td width="1" valign="top" nowrap background="images/bg_bage.gif"><!-- DEPENDENCY FILTER +++++++++++++++++++++++++++++++++++++++++++ --><fieldset><legend><a href="javascript:;" class="body_scol" onClick="ToggleDisplay('divDependencyFilter');" ><%=GetIsDepFilterInUseIcon() %> Hide Dependencies...</a></legend><div name="divDependencyFilter" id="divDependencyFilter" class="body_txt" style="display:none;"><br><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td width="1" background="images/bg_action_norm.gif"><input name="depfilter" type="checkbox" value="<%=enumDB_NUM_DIFF_UPDATED%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_UPDATED)%>></td><td width="50" nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_UPDATED%>Updated</td></tr><tr><td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_NEW%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_NEW)%>></td><td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_ADDED%>Added</td></tr><tr><td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_REMOVED%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_REMOVED)%>></td><td nowrap background="images/bg_action_norm.gif" class="form_field"><%=LIMG_REMOVED%>Removed</td></tr><tr><td background="images/bg_action_norm.gif"><input type="checkbox" name="depfilter" value="<%=enumDB_NUM_DIFF_NO_CHANGE%>" <%=GetIsDepFilterChecked(enumDB_NUM_DIFF_NO_CHANGE)%>></td><td nowrap background="images/bg_action_norm.gif" class="form_field">Unchanged</td></tr><tr><td background="images/bg_action_norm.gif"> </td><td background="images/bg_action_norm.gif"><input name="btn2" type="submit" class="form_btn" id="btn2" value="Hide"></td></tr></table></div></fieldset><!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++ --></td></tr></table><%End If%><table width="100%" border="0" cellspacing="1" cellpadding="3"><tr><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field"><img src='images/spacer.gif' width='11' height='11' hspace='2'></td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Name </td><td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Current Version </td><td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Previous Version</td></tr><%If (rsTemp.RecordCount < 1) Then%><tr><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" nowrap> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td><td background="images/bg_form_lightgray.gif" class="form_item"> </td></tr><%End If%><%Dim style, iconWhile ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))Call RowStyle ( rsTemp("status"), icon, style )%><%If NOT dDepFilter.Exists(CStr( rsTemp("status") )) Then%><tr><td background="images/bg_form_lightgray.gif" align="center"><%=icon%></td><td nowrap background="images/bg_form_lightgray.gif" class="<%=style%>"><%If NOT IsNull(rsTemp("pkg_version")) Then%><a href="<%=ScriptName &"?pv_id="& rsTemp("pv_id") &"&rtag_id="& parRtag_id %>" class="<%=style%>"><%=rsTemp("pkg_name")%></a><%Else%><%=rsTemp("pkg_name")%><%End If%></td><td nowrap background="images/bg_form_lightgray.gif" class="<%=style%>"><%=rsTemp("pkg_version")%></td><td nowrap background="images/bg_form_lightgray.gif" class="<%=style%>"><%=rsTemp("previous_version")%></td></tr><%If (parFileDiff <> "") AND ( rsTemp("status") <> enumDB_DIFF_NO_CHANGE ) Then%><tr><td> </td><td> </td><td colspan="2"><%Call DisplayComponentChanges( rsTemp("pv_id"), rsTemp("old_pv_id") )%></td></tr><%End If%><%End If%><%rsTemp.MoveNextWEndrsTemp.CloseSet rsTemp = nothing%></table><input type="hidden" name="filediff" value="<%=parFileDiff%>"><input type="hidden" name="pv_id" value="<%=parPv_Id%>"><input type="hidden" name="rtag_id" value="<%=parRtag_Id%>"><input type="hidden" name="rfile" value="<%=Request("rfile")%>"></form>