<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| EDIT |
'| DEPENDENCIES |
'| |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
' Make sure rtag_id is always present
If Request("pv_id") = "" Then
Response.Redirect("index.asp")
End If
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim rsPkgs
Dim HTML_pkg_list
Dim JSrequirementsSTR
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = Request("pv_id")
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
Sub Generate_Dependencies_List ( NNpv_id, nRtag_id, SShtml_pkg_list, SSJSreq )
Dim rsDeps, Query_String, LatestVisible, disabled
Query_String = ReadFile( rootPath & "queries\edit_dependencies.sql" )
OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
Set rsDeps = OraDatabase.DbCreateDynaset( Query_String, cint(0))
While ((NOT rsDeps.BOF) AND (NOT rsDeps.EOF))
Dim PVID : PVID=rsDeps("pv_id")
Dim PKGID: PKGID=rsDeps("pkg_id")
disabled = FALSE
'If IsNull(rsDeps("lpv_id")) Then
' disabled = TRUE
'End If
If NOT disabled Then
SShtml_pkg_list = SShtml_pkg_list &"
"
SShtml_pkg_list = SShtml_pkg_list &"
"& rsDeps("pkg_name") &"
"
SShtml_pkg_list = SShtml_pkg_list &"
" &_
"
"
Else
SShtml_pkg_list = SShtml_pkg_list &"
"
SShtml_pkg_list = SShtml_pkg_list &"
"& rsDeps("pkg_name") &"
"
SShtml_pkg_list = SShtml_pkg_list &"
"
SShtml_pkg_list = SShtml_pkg_list &"
"
End If
' Latest Versions
LatestVisible = "style='display:none;'"
If ( PVID <> rsDeps("lpv_id") ) AND ( NOT disabled ) Then
LatestVisible = ""
End If
SShtml_pkg_list = SShtml_pkg_list &"
"
If disabled Then
' Store not found dependency as hidden field.
' NOTE: This is not safe as the client can temper with hidden value but it will do for now.
SShtml_pkg_list = SShtml_pkg_list &""
Else
SSJSreq = SSJSreq & ",'pkgn"& PVID &"','"& rsDeps("pkg_name") &" Version','RisVersionStr'"
End If
rsDeps.MoveNext
WEnd
If SSJSreq <> "" Then SSJSreq = Right( SSJSreq, Len(SSJSreq)-1 ) ' Remove first comma
OraDatabase.Parameters.Remove "RTAG_ID"
OraDatabase.Parameters.Remove "PV_ID"
End Sub
%>
<%
If parPv_id <> "" Then
Call Get_Pkg_Info ( parPv_id, NULL )
End If
%>
<%
'=================== MAIN LINE =====================
Call Generate_Dependencies_List ( parPv_id, parRtag_id, HTML_pkg_list, JSrequirementsSTR )
If JSrequirementsSTR = "" Then
'Edit button clicked on empty dependency list. Redirect user to Add Dependencies
Response.Redirect ("form_search_pkgs.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&add_type="& enum_ADD_DEPENDENCIES)
End If
%>
Release Manager
"&_
""& rsDeps("lpkg_version") &"
