<%@LANGUAGE="VBSCRIPT"%> <% '===================================================== '| | '| New Release | '| | '===================================================== %> <% Option explicit ' Good idea to set when using redirect Response.Expires = 0 ' always load the page, dont store %> <% ' Set rfile parameter. This is a return page after Login Call objPMod.StoreParameter ( "rfile", "rtree.asp" ) objPMod.PersistInQryString("proj_id") objPMod.PersistInQryString("branch") '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim rsQry Dim parProjId Dim isSelectDisabled '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parProjId = Request("proj_id") '---------------------------------------------- %> <% '-------------------------------------------------------------------------------------------------------------------------- Sub GetWipReleaseList ( nProjId ) Dim rsQry, query OraDatabase.Parameters.Add "PROJ_ID", nProjId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("WipReleaseList.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "PROJ_ID" If rsQry.RecordCount < 1 Then Response.write "No recent releases found." End If While (NOT rsQry.BOF) AND (NOT rsQry.EOF) Response.write ""&_ ReleaseIcon( rsQry("official") ) & rsQry("rtag_name").Value &" ["& rsQry("version") &"]
" rsQry.MoveNext WEnd rsQry.Close Set rsQry = Nothing End Sub '-------------------------------------------------------------------------------------------------------------------------- Function GetReleaseList ( nProjId, nRtagId ) Dim rsQry, Selected, aComboItems, lastItem, i OraDatabase.Parameters.Add "PROJ_ID", nProjId, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ReleasesCombo.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "PROJ_ID" OraDatabase.Parameters.Remove "RTAG_ID" If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then aComboItems = rsQry.GetRows() Else Err.Raise 8, "Sub GetReleaseList", "Empty record set returned. nProjId="& nProjId End If rsQry.Close Set rsQry = Nothing '-- Return Combo Items Array GetReleaseList = aComboItems End Function '-------------------------------------------------------------------------------------------------------------------------- Function GetProjectList ( nProjId ) Dim rsQry, Selected, aComboItems, lastItem, i OraDatabase.Parameters.Add "PROJ_ID", nProjId, ORAPARM_INPUT, ORATYPE_NUMBER Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("ProjectsCombo.sql"), ORADYN_DEFAULT ) OraDatabase.Parameters.Remove "PROJ_ID" If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then aComboItems = rsQry.GetRows() Else Err.Raise 8, "Sub GetProjectList", "Empty record set returned. nProjId="& nProjId End If rsQry.Close Set rsQry = Nothing '-- Alter combo item link column to work with OnChange javascript lastItem = Ubound( aComboItems, 2 ) For i = 0 To lastItem aComboItems(0, i) = ScriptName &"?from_proj_id="& aComboItems(0, i) &"&"& objPMod.ComposeURL() Next '-- Return Combo Items Array GetProjectList = aComboItems End Function '-------------------------------------------------------------------------------------------------------------------------- %> <% '------------ RUN BEFORE PAGE RENDER ---------- '-- Redirect if known from_bom_id If Request("rtag_id_list") <> "" Then Call OpenInWindow ( "form_add_release.asp?source_rtag_id="& Request("rtag_id_list") &"&"& objPMod.ComposeURL() ) End If '---------------------------------------------- %> <% '-- FROM START --------------------------------------------------------------------------------------------------------- objFormComponent.FormName = "FormName" objFormComponent.Action = "form_add_release.asp?proj_id="&Request("proj_id") Call objFormComponent.FormStart() %> <% Call objFormComponent.FormEnd() '-- FROM END ---------------------------------------------------------------------------------------------------------------- %>

	NEW RELEASE Create New Blank Create from Recent <%Call GetWipReleaseList ( parProjId )%> Create From Other <%=objFormComponent.Combo ( "from_proj_id", GetProjectList( Request("from_proj_id") ), TRUE, "class='form_ivalue' onChange=""MM_jumpMenu('parent',this,0)"" " )%> <% isSelectDisabled = "disabled" If Request("from_proj_id") <> "" Then Response.write objFormComponent.Combo ( "source_rtag_id", GetReleaseList( Request("from_proj_id"), Request("source_rtag_id") ), FALSE, "class='form_ivalue' " ) Response.write " " isSelectDisabled = "" End If %> <%=objFormComponent.SubmitButton ( "Select", "class='form_ivalue' "& isSelectDisabled )%>