<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| EXPORT ClearCase | '| 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 blankLabel '------------ Constants Declaration ----------- '------------ Variable Init ------------------- Set pkgInfoHash = CreateObject("Scripting.Dictionary") parPv_id = QStrPar("pv_id") '---------------------------------------------- %> <% Function Dependency_List ( NNpv_id, BBblankLabel ) Dim rsTemp, Query_String, tempSTR tempSTR = "" BBblankLabel = FALSE Query_String = _ " SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_label, usr.full_name, usr.user_email"&_ " FROM packages pkg,"&_ " package_versions pv,"&_ " package_dependencies dep,"&_ " users usr"&_ " WHERE pv.pkg_id = pkg.pkg_id"&_ " AND dep.dpv_id = pv.pv_id"&_ " AND dep.pv_id = "& NNpv_id &_ " AND pv.owner_id = usr.user_id"&_ " ORDER BY pv.modified_stamp DESC" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) If (IsNull(rsTemp("pkg_label")) OR (rsTemp("pkg_label") = "")) Then tempSTR = tempSTR & "#### MISSING LABEL - "& rsTemp("pkg_name") &" "& rsTemp("pkg_version") &" - OWNER: "& rsTemp("full_name") &" "& rsTemp("user_email") &" ####" & VBNewLine 'tempSTR = tempSTR & To_ClearCase( rsTemp("pkg_label") ) & VBNewLine BBblankLabel = TRUE Else tempSTR = tempSTR & To_ClearCase( rsTemp("pkg_label") ) & VBNewLine End If 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") = "clearcase" %> Release Manager
   
 
EXPORT dependencies <%Call Generate_Tab_Menu ( TABarray3, "ClearCase style", "blue" )%>
 
<%=pkgInfoHash.Item ("pkg_name")%> <%=pkgInfoHash.Item ("pkg_version")%>
 
Copy this dependency export list into your build file to build this package.


<%If blankLabel Then Call DisplayInfo ( "BLANK_LABEL_WARNING", "300" )%>


 
<% Call Destroy_All_Objects %>