<%@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 = "Package is 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( parKeyword, "*") > 0 Then KeyWord = Replace( parKeyword, "*", "%" ) Else KeyWord = "%"& 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 <%=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"), 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") &" <"& rsRep("user_email") &">"& 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 Call Get_Pkg_Short_Info( rsRep("patch_id"), NULL, NULL, sPkgVersion, NULL, NULL, NULL ) sLink = dpkg_archiveURL & rsRep("pkg_name") &"/"& sPkgVersion &"/"& rsRep("file_name") 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"), parKeyword )%> <%=rsRep("file_path")%> <%=rsRep("pkg_name")%> " class="body_link"><%=rsRep("pkg_version")%> <%=rsRep("crc_cksum")%>

<%End If%> 		 
<% Call Destroy_All_Objects %>