<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| FIND | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store Const allowNoPackage = TRUE ' Allow page display without pvid being present %> <% '------------ 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 Call Destroy_All_Objects Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id")) End If '============================================================== '---------------------------------------------- ' Sub InsertJavaScript%> <%End Sub '---------------------------------------------- %> <%=Title(parRtagId)%> <%bJqueryDataTables = TRUE%> <%Call InsertJavaScript%>
<% If InStr( Trim(parKeyword), "*") > 0 Then KeyWord = Replace( Trim(parKeyword), "*", "%" ) Else KeyWord = "%"& Trim(parKeyword) &"%" End If If parSearchType = "1" Then ' Package Search 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 OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.FIND_PACKAGE ( :KEYWORD, :RTAG_ID, :SEARCH_AREA, :RECORD_SET ); END;" 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" End If %> <%If parSearchType = "1" Then%>
<%If parSearchType = "1" Then%> Find Package: <%=Trim(parKeyword)%> <%ElseIf parSearchType = "2" Then%> Find File: <%=Trim(parKeyword)%>. <%End If%>
<%If rsRep.RecordCount = 0 Then%> <%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")%>');" title="Click to see more..." class=pointer> 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")%>');" title="Click to hide" class=pointer> <%=NewLine_To_BR ( To_HTML( rsRep("comments") ) )%>
<%= DisplayDateTimeSecs (rsRep("modified_stamp"))%> <%=enum_imgUser%><%=emailField(rsRep("full_name"),rsRep("user_email"))%>

<%ElseIf parSearchType = "2" Then%>
PvId File Name<%=Quick_Help("FindFile")%> Path Package Name Version CheckSum (CKSUM)
File Path Package Version

<%End If%>