<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| Edit 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")
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim objSortHelper
Dim rsQry
Dim parProjId
Dim parSourceRtagId
Dim State
Dim ctrlDisabled
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parProjId = Request("proj_id")
objPMod.PersistInQryString("proj_id")
If NOT objAccessControl.IsActive("CreateNewRelease") Then
ctrlDisabled = "disabled"
Else
ctrlDisabled = ""
End If
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
Dim rsQry, query
OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
query = _
" SELECT rt.* "&_
" FROM RELEASE_TAGS rt"&_
" WHERE rt.RTAG_ID = :RTAG_ID"
Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
OraDatabase.Parameters.Remove "RTAG_ID"
If rsQry.RecordCount > 0 Then
outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
outobjDetails.Item ("description") = rsQry("description")
outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
outobjDetails.Item ("owner_email") = rsQry("owner_email")
outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
If rsQry("assoc_mass_ref") <> "" Then
outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
End If
Else
Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
End If
rsQry.Close
Set rsQry = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub UpdateReleaseDetails ()
On Error Resume Next
If request("product_state_used") = "on" Then
State = "Y"
Else
State = NULL
End If
OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_list"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "RTAG_NAME", Request("rtag_name"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "RTAG_DESCRIPTION", Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "OWNER_EMAIL", Request("owner_email"), ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "PARENT_RTAG_ID", Request("parent_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "MASSREF_RTAG_ID", Request("massref_rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "STATE", State, ORAPARM_INPUT, ORATYPE_VARCHAR
objEH.TryORA ( OraSession )
OraDatabase.ExecuteSQL _
"BEGIN PK_RELEASE.UPDATE_RELEASE ( :RTAG_ID, :RTAG_NAME, :RTAG_DESCRIPTION, :PARENT_RTAG_ID, :MASSREF_RTAG_ID, :CONFIG_SPEC_BRANCH, :OWNER_EMAIL, :USER_ID, :STATE ); END;"
objEH.CatchORA ( OraSession )
OraDatabase.Parameters.Remove "RTAG_ID"
OraDatabase.Parameters.Remove "RTAG_NAME"
OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"
OraDatabase.Parameters.Remove "CONFIG_SPEC_BRANCH"
OraDatabase.Parameters.Remove "OWNER_EMAIL"
OraDatabase.Parameters.Remove "USER_ID"
OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
OraDatabase.Parameters.Remove "STATE"
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
' --- Get Form details from DB ---
Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )
' --- Load Validation Rules ---
Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase ) ' Load Validation Rules
' --- Enter Form Validation Rule Changes here... ----
'----------------------------------------------------
' --- RUN onPostBack ---
If Request("action") <> "" Then
If objForm.IsValidOnPostBack Then
' --- Form is Valid ---
If objAccessControl.IsActive("CreateNewRelease") Then
Call UpdateReleaseDetails()
If objEH.Finally Then
Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
End If
Else
Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
End If
End If
End If
'----------------------------------------------
%>
Release Manager
<%
'-- FROM START ---------------------------------------------------------------------------------------------------------
objFormComponent.FormName = "FormName"
objFormComponent.Action = ScriptName
If NOT objAccessControl.IsActive("CreateNewRelease") Then
objFormComponent.IsReadonlyAction = enumDB_YES
End If
Call objFormComponent.FormStart()
%>
<%
Call objFormComponent.FormEnd()
'-- FROM END ----------------------------------------------------------------------------------------------------------------
%>
