Rev 6790 | Rev 6876 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| FIND |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont storeConst allowNoPackage = TRUE ' Allow page display without pvid being present%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="common/common_dbedit.asp"--><!--#include file="_tabs.asp"--><!--#include file="common/_package_common.asp"--><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_login_optional.asp"--><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim KeyWordDim parKeywordDim parRtagIdDim rsRepDim imgLockDim parSearchTypeDim sLinkDim rsQryDim sPkgVersion'------------ Constants Declaration -----------Const IMG_OFFICIAL = "<img src='images/i_locked.gif' width='7' height='10' hspace='5' vspace='2' alt='Package is official'>"Const IMG_NOT_OFFICIAL = "<img src='images/spacer.gif' width='7' height='10' hspace='5' vspace='2'>"Const MaxRows = 100'------------ Variable Init -------------------parKeyword = Request("keyword")parRtagId = Request("rtag_id")parSearchType = Request("searchtype")'----------------------------------------------%><%'==================== MAIN LINE ===============================' Check for Required parametersIf (parSearchType = "") OR (nEnvTab = "") ThenCall Destroy_All_ObjectsResponse.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))End If'==============================================================%><html><head><title><%=Title(parRtagId)%></title><link rel="shortcut icon" href="<%=FavIcon%>"/><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css"><link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css"><script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script><!--#include file="_jquery_includes.asp"--><!-- TIPS --><script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script><script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td valign="top" width="1" background="images/bg_bage.gif"><!-- LEFT --><!--#include file="_environment.asp"--></td><td width="1" bgcolor="#999999"><img src="images/h_trsp_dot.gif" width="1" height="1"></td><td valign="top" width="100%"><!-- MIDDLE --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%"></td><td width="100%" align="right"><img src="images/h_trsp_dot.gif" width="1" height="20"></td><td width="1%"></td></tr><tr><td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="480"></td><td bgcolor="#FFFFFF" valign="top"><%If InStr( Trim(parKeyword), "*") > 0 ThenKeyWord = Replace( Trim(parKeyword), "*", "%" )ElseKeyWord = "%"& Trim(parKeyword) &"%"End IfOraDatabase.Parameters.Add "KEYWORD", KeyWord, ORAPARM_INPUT, ORATYPE_VARCHAR2OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "SEARCH_AREA", nEnvTab, ORAPARM_INPUT, ORATYPE_NUMBEROraDatabase.Parameters.Add "RECORD_SET", NULL, ORAPARM_OUTPUT, ORATYPE_CURSOROraDatabase.Parameters.Add "PAGE_SIZE", MaxRows, ORAPARM_INPUT, ORATYPE_NUMBERIf parSearchType = "1" Then' Package SearchOraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.FIND_PACKAGE ( :KEYWORD, :RTAG_ID, :SEARCH_AREA, :RECORD_SET ); END;"ElseIf parSearchType = "2" Then' File SearchOraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.FIND_FILE ( :KEYWORD, :RTAG_ID, :SEARCH_AREA, :PAGE_SIZE, :RECORD_SET ); END;"End IfSet rsRep = OraDatabase.Parameters("RECORD_SET").ValueOraDatabase.Parameters.Remove "KEYWORD"OraDatabase.Parameters.Remove "RTAG_ID"OraDatabase.Parameters.Remove "SEARCH_AREA"OraDatabase.Parameters.Remove "PAGE_SIZE"OraDatabase.Parameters.Remove "RECORD_SET"%><table width="100%" border="0" cellspacing="0" cellpadding="5"><tr><td><%If parSearchType = "1" Then%><span class="body_sect">Find Package: <%=Trim(parKeyword)%></span><%ElseIf parSearchType = "2" Then%><span class="body_sect">Find File: <%=Trim(parKeyword)%>.</span><span class="body_txt">Showing max. <%=MaxRows%> results.</span><%End If%></td></tr><%If parSearchType = "1" Then%><!-- PACKAGE SEARCH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><table width="100%" border="0" cellspacing="1" cellpadding="5" class='stdGrey'><thead><tr><th width="1" nowrap ></th><th width="1" nowrap >Package Name</th><th width="1" nowrap >Version</th><th width="1" nowrap >Location</th><th width="100%" nowrap><SPAN id="IMG_EXPAND_ALL_REASONS" name="IMG_EXPAND_ALL_REASONS" style="display:block;" onClick="ExpandAll(); ToggleDisplay('IMG_EXPAND_ALL_REASONS','IMG_COLLAPSE_ALL_REASONS');" title="Show All Reasons for Release."><img src="icons/b_expand_all.gif" border="0" align="absmiddle" hspace="3">Reason for Release</SPAN><SPAN id="IMG_COLLAPSE_ALL_REASONS" name="IMG_COLLAPSE_ALL_REASONS" style="display:none;" onClick="CollapseAll(); ToggleDisplay('IMG_EXPAND_ALL_REASONS','IMG_COLLAPSE_ALL_REASONS');" title="Hide All Reasons for Release."><img src="icons/b_collapse_all.gif" border="0" align="absmiddle" hspace="3">Reason for Release</SPAN></th><th colspan=2 width="1" nowrap>Last Modified</th></tr></thead><%If rsRep.RecordCount = 0 Then%><tr><td colspan='6'>Found 0 records.</td></tr><%End IfWhile ((NOT rsRep.BOF) AND (NOT rsRep.EOF))imgLock = IMG_NOT_OFFICIALIf (rsRep("dlocked") = "Y") OR (rsRep("dlocked") = "A") ThenimgLock = IMG_OFFICIALEnd If%><tr><td valign="top"><%=imgLock%></td><td nowrap valign="top"><%=Highlight_Substring( rsRep("pkg_name"), Trim(parKeyword) )%></td><td nowrap valign="top"><a href="dependencies.asp?pv_id=<%=rsRep("pv_id")%>&rtag_id=<%=parRtagId%>" class="body_link"><%=rsRep("pkg_version")%></a></td><td nowrap valign="top"><%= GetEnvName(rsRep("env_area")) &" / "& rsRep("view_name")%></td><td valign="top" ><DIV style="display:block;"id="SHORT_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>"name="SHORT_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>"onclick="ToggleDisplay('SHORT_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>','FULL_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>');"title="Click to see more..."class=pointer>Click to see more...</DIV><DIV id="FULL_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>"name="FULL_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>"style="display:none;"onclick="ToggleDisplay('SHORT_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>','FULL_RFO<%= rsRep("env_area") &"_"& rsRep("pv_id")%>');"title="Click to hide"class=pointer><%=NewLine_To_BR ( To_HTML( rsRep("comments") ) )%></DIV></td><td nowrap valign="top"><%= DisplayDateTimeSecs (rsRep("modified_stamp"))%></td><td nowrap valign="top"><%=enum_imgUser%><%=emailField(rsRep("full_name"),rsRep("user_email"))%></td></tr><% rsRep.MoveNextWEndrsRep.Close()%></table><br><%ElseIf parSearchType = "2" Then%><!-- FILE SEARCH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><table width="100%" border="0" cellspacing="1" cellpadding="5" class='stdGrey'><thead><tr><th width="20%" nowrap>File Name</th><th width="20%" nowrap>Path</th><th width="20%" nowrap>Package Name</th><th width="20%" nowrap>Version</th><th width="20%" nowrap>CheckSum (CKSUM)</th></tr></thead><%If rsRep.RecordCount = 0 Then%><tr><td colspan='5'>Found 0 records.</td></tr><%End IfWhile ((NOT rsRep.BOF) AND (NOT rsRep.EOF))If IsNull(rsRep("file_path")) Then' DEVI-050252 - must not call Get_Pkg_Short_Info() with a null or empty string, so check the patch_id before doing so.If IsNull(rsRep("patch_id")) OR rsRep("patch_id") = "" ThensLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_name"), "\", "/" )ElseCall Get_Pkg_Short_Info( rsRep("patch_id"), NULL, NULL, sPkgVersion, NULL, NULL, NULL )sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& sPkgVersion &"/"& rsRep("file_name")End IfElsesLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_path") & rsRep("file_name"), "\", "/" )End If%><tr><td valign="top"><a href="<%=sLink%>" class="body_link"><%=Highlight_Substring( rsRep("file_name"), Trim(parKeyword) )%></td><td nowrap><%=rsRep("file_path")%></td><td nowrap><%=rsRep("pkg_name")%></td><td nowrap><a href="dependencies.asp?rtag_id=<%=parRtagId%>&pv_id=<%=rsRep("pv_id")%>" class="body_link"><%=rsRep("pkg_version")%></a></td><td nowrap><%=rsRep("crc_cksum")%></td></tr><% rsRep.MoveNextWEndrsRep.Close()%></table><br><!-- END OF SEARCH ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ --><%End If%></td><td width="1%" background="images/lbox_bgside_white.gif"> </td></tr></table><!-- END MIDDLE --------></td></tr></table><!-- FOOTER --><!--#include file="_footer.asp"--></body></html>