<%=Title(parRtagId)%>

<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| FIND | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim KeyWord Dim parKeyword Dim parRtagId Dim rsRep Dim imgLock Dim parSearchType Dim sLink Dim rsQry Dim sPkgVersion '------------ Constants Declaration ----------- Const IMG_OFFICIAL = "

" Const IMG_NOT_OFFICIAL = "

" Const MaxRows = 100 '------------ Variable Init ------------------- parKeyword = Request("keyword") parRtagId = Request("rtag_id") parSearchType = Request("searchtype") '---------------------------------------------- %> <% '==================== MAIN LINE =============================== ' Check for Required parameters If (parSearchType = "") OR (nEnvTab = "") Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id")) End If '============================================================== %> <%=Title(parRtagId)%>

<% If InStr( Trim(parKeyword), "*") > 0 Then KeyWord = Replace( Trim(parKeyword), "*", "%" ) Else KeyWord = "%"& Trim(parKeyword) &"%" End If OraDatabase.Parameters.Add "KEYWORD", KeyWord, ORAPARM_INPUT, ORATYPE_VARCHAR2 OraDatabase.Parameters.Add "RTAG_ID", parRtagId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "SEARCH_AREA", nEnvTab, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RECORD_SET", NULL, ORAPARM_OUTPUT, ORATYPE_CURSOR OraDatabase.Parameters.Add "PAGE_SIZE", MaxRows, ORAPARM_INPUT, ORATYPE_NUMBER If parSearchType = "1" Then ' Package Search OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.FIND_PACKAGE ( :KEYWORD, :RTAG_ID, :SEARCH_AREA, :RECORD_SET ); END;" ElseIf parSearchType = "2" Then ' File Search OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.FIND_FILE ( :KEYWORD, :RTAG_ID, :SEARCH_AREA, :PAGE_SIZE, :RECORD_SET ); END;" End If Set rsRep = OraDatabase.Parameters("RECORD_SET").Value OraDatabase.Parameters.Remove "KEYWORD" OraDatabase.Parameters.Remove "RTAG_ID" OraDatabase.Parameters.Remove "SEARCH_AREA" OraDatabase.Parameters.Remove "PAGE_SIZE" OraDatabase.Parameters.Remove "RECORD_SET" %>

<%If parSearchType = "1" Then%> Find Package <%ElseIf parSearchType = "2" Then%> Find File <%End If%>

Results for <%=Trim(parKeyword)%><%If parSearchType = "2" Then%>. Showing max. <%=MaxRows%> results.<%End If%>

<%If parSearchType = "1" Then%> <% If rsRep.RecordCount = 0 Then With Response .write "" .write "" .write "" End With End If While ((NOT rsRep.BOF) AND (NOT rsRep.EOF)) imgLock = IMG_NOT_OFFICIAL If (rsRep("dlocked") = "Y") OR (rsRep("dlocked") = "A") Then imgLock = IMG_OFFICIAL End If%> <% rsRep.MoveNext WEnd rsRep.Close() %>

	Package Name	Version	Location	Reason for Release	Last Modified
Found 0 records.
<%=imgLock%>	<%=Highlight_Substring( rsRep("pkg_name"), Trim(parKeyword) )%>	&rtag_id=<%=parRtagId%>" class="body_link"><%=rsRep("pkg_version")%>	<%= GetEnvName(rsRep("env_area")) &" / "& rsRep("view_name")%>	" 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")%>');"> Click to see more... " 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")%>');"> <%=NewLine_To_BR ( To_HTML( rsRep("comments") ) )%>	<%= ""& rsRep("full_name") &" "& EuroDateTime ( rsRep("modified_stamp") )%>

<%ElseIf parSearchType = "2" Then%> <% If rsRep.RecordCount = 0 Then With Response .write "" .write "" .write "" End With End If While ((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") = "" Then sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_name"), "\", "/" ) Else Call Get_Pkg_Short_Info( rsRep("patch_id"), NULL, NULL, sPkgVersion, NULL, NULL, NULL ) sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& sPkgVersion &"/"& rsRep("file_name") End If Else sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& rsRep("pkg_version") &"/"& Replace( rsRep("file_path") & rsRep("file_name"), "\", "/" ) End If %> <% rsRep.MoveNext WEnd rsRep.Close() %>

File Name	Path	Package Name	Version	CheckSum (CKSUM)
Found 0 records.
<%=Highlight_Substring( rsRep("file_name"), Trim(parKeyword) )%>	<%=rsRep("file_path")%>	<%=rsRep("pkg_name")%>	" class="body_link"><%=rsRep("pkg_version")%>	<%=rsRep("crc_cksum")%>

<%End If%>

<% Call Destroy_All_Objects %>