<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| EXPORT ANT | '| 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 '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") parPv_id = QStrPar("pv_id") '---------------------------------------------- %> <% Function Dependency_List ( NNpv_id ) On Error Resume Next Dim rsTemp, Query_String, tempSTR, Query_Release, rsRelease, prjName tempSTR = "" Query_String = _ " SELECT pkg.pkg_name, pv.pkg_version"&_ " FROM packages pkg,"&_ " package_versions pv,"&_ " package_dependencies dep"&_ " WHERE pv.pkg_id = pkg.pkg_id"&_ " AND dep.dpv_id = pv.pv_id"&_ " AND dep.pv_id = "& NNpv_id &_ " ORDER BY UPPER(pkg.pkg_name)" ' DEVI-34837 - provide additional name properties for external tools to make use of If request("rtag_id") <> "" Then Query_Release = _ " SELECT * FROM RELEASE_TAGS RT, PROJECTS PRJ WHERE PRJ.PROJ_ID = RT.PROJ_ID AND RT.RTAG_ID="&request("rtag_id") Set rsRelease = OraDatabase.DbCreateDynaset( Query_Release, cint(0)) prjName = rsRelease("proj_name") Response.Write("") & VBNewLine Response.Write("") & VBNewLine & VBNewLine rsRelease.Close() Set rsRelease = Nothing End If Response.Write("") & VBNewLine Response.Write("")& VBNewLine & VBNewLine Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) tempSTR = tempSTR & To_ANT ( rsTemp("pkg_name"), rsTemp("pkg_version") ) & VBNewLine rsTemp.MoveNext WEnd Dependency_List = tempSTR rsTemp.Close Set rsTemp = nothing End Function %> <% Call Get_Pkg_Info ( parPv_id, NULL ) %> <%Response.Cookies("RELEASEMANAGER_MEMORY")("devl_environment") = "ant"%> Release Manager
   
 
EXPORT dependencies <%Call Generate_Tab_Menu ( TABarray3, "ANT-using style", "blue" )%>
 
<%=pkgInfoHash.Item ("pkg_name")%> <%=pkgInfoHash.Item ("pkg_version")%>
 
Copy this dependency export list into your build file to build this package.
 
<% Call Destroy_All_Objects %>