<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Import Release '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parFRproj_id Dim parFRrtag_id Dim parToRtag_id Dim parFromRtag_id Dim sMessage '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parFRproj_id = QStrPar("FRproj_id") parFRrtag_id = QStrPar("FRrtag_id") parToRtag_id = QStrPar("ToRtag_id") parFromRtag_id = QStrPar("FromRtag_id") sMessage = NULL If parFRproj_id = "" Then parFRproj_id = "-1" If parFRrtag_id = "" Then parFRrtag_id = "-1" objPMod.PersistInQryString("rtag_id") '---------------------------------------------- %> <% Sub Get_Projects ( NNproj_id ) Dim rsTemp, Query_String, tempLINK Query_String = _ "SELECT * FROM projects ORDER BY proj_name ASC" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) Response.write "" Response.write "Select Project" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) tempLINK = scriptName &"?FRproj_id="& rsTemp.Fields("proj_id") &"&FRrtag_id=&ToRtag_id="& parToRtag_id &"&"& objPMod.ComposeURL() If NNproj_id = Cstr(rsTemp.Fields("proj_id")) Then Response.write ""& UCase(rsTemp.Fields("proj_name")) &"" Else Response.write ""& UCase(rsTemp.Fields("proj_name")) &"" End If rsTemp.MoveNext WEnd Response.write "" rsTemp.Close Set rsTemp = nothing End Sub Sub Get_Release_Labels ( NNproj_id, NNrtag_id ) Dim rsTemp, Query_String, tempLINK Query_String = _ "SELECT rtag_id, rtag_name FROM release_tags WHERE proj_id = "& NNproj_id &" ORDER BY rtag_id ASC" Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0)) Response.write "" If NNproj_id <> "-1" Then Response.write "Select Release Label" While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) tempLINK = scriptName &"?FRrtag_id="& rsTemp.Fields("rtag_id") &"&FRproj_id="& NNproj_id &"&ToRtag_id="& parToRtag_id &"&"& objPMod.ComposeURL() If NNrtag_id = Cstr(rsTemp.Fields("rtag_id")) Then Response.write ""& (rsTemp.Fields("rtag_name")) &"" Else Response.write ""& (rsTemp.Fields("rtag_name")) &"" End If rsTemp.MoveNext WEnd End If Response.write "" rsTemp.Close Set rsTemp = nothing End Sub Function Import_Release ( NNFromRtag_id, NNToRtag_id ) OraDatabase.Parameters.Add "FROMRTAG_ID", NNFromRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "TORTAG_ID", NNToRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER sMessage = NNFromRtag_id &":"& NNToRtag_id objEH.ErrorRedirect = FALSE objEH.TryORA ( OraSession ) On Error Resume Next ' Remove old Work in Progress Contents OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.IMPORT_RELEASE_CONTENTS (:FROMRTAG_ID, :TORTAG_ID, :USER_ID); END;" OraDatabase.Parameters.Remove "FROMRTAG_ID" OraDatabase.Parameters.Remove "TORTAG_ID" OraDatabase.Parameters.Remove "USER_ID" objEH.CatchORA ( OraSession ) If objEH.Finally Then Call OpenInParentWindow ("dependencies.asp?rtag_id=" & NNToRtag_id) Call CloseWindow() End If End Function %> <% 'Process submition If CBool(QStrPar("action")) Then If NOT objAccessControl.UserLogedIn Then sMessage = "User is no longer logged in" ElseIf NOT( (parFromRtag_id <> "") AND (parToRtag_id <> "")) Then sMessage = "Internal: Mandatory parameters are missing" Else Call Import_Release ( parFromRtag_id, parToRtag_id ) parFRproj_id = "-1" parFRrtag_id = "-1" End If End If %>

Select the source Project and Release. All packages from the selected Release will be imported into this Release. Note: The current set of packages will be deleted.

<%Call Messenger ( sMessage , 3, "100%" )%> Project <%Call Get_Projects ( parFRproj_id )%> Release Name <%Call Get_Release_Labels ( parFRproj_id, parFRrtag_id )%> ">