<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| Move 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 rsQry
Dim parProjId
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parProjId = Request("proj_id")
objPMod.PersistInQryString("proj_id")
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------------
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 ("proj_id") = rsQry("proj_id")
Else
Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
End If
rsQry.Close
Set rsQry = Nothing
End Sub
'--------------------------------------------------------------------------------------------------------------------------
Sub MoveRelease ()
Dim sRtagIdOrderList
'-- Check cookie for new soring list
If Request.Cookies("sort-list") = "" Then Exit Sub
'-- Replace pipe separated values with comma for database use
sRtagIdOrderList = Replace( Request.Cookies("sort-list") , "|", "," )
On Error Resume Next
OraDatabase.Parameters.Add "RTAG_ID_ORDER", sRtagIdOrderList, ORAPARM_INPUT, ORATYPE_VARCHAR2
OraDatabase.Parameters.Add "PROJ_ID", Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
objEH.TryORA ( OraSession )
OraDatabase.ExecuteSQL _
"BEGIN PK_RELEASE.MOVE_RELEASE ( :RTAG_ID_ORDER, :PROJ_ID, :USER_ID ); END;"
objEH.CatchORA ( OraSession )
OraDatabase.Parameters.Remove "RTAG_ID_ORDER"
OraDatabase.Parameters.Remove "PROJ_ID"
OraDatabase.Parameters.Remove "USER_ID"
End Sub
'--------------------------------------------------------------------------------------------------------------------------
%>
<%
'------------ RUN BEFORE PAGE RENDER ----------
' --- Get Form details from DB ---
Call GetFormDetails ( Request("rtag_id_list"), objFormCollector )
' --- Enter Form Validation Rule Changes here... ----
'----------------------------------------------------
' --- RUN onPostBack ---
If Request("action") <> "" Then
If objForm.IsValidOnPostBack Then
' --- Form is Valid ---
Call MoveRelease()
If objEH.Finally Then
Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
End If
End If
End If
'----------------------------------------------
%>
Release Manager
<%
Call objFormComponent.FormEnd()
'-- FROM END ----------------------------------------------------------------------------------------------------------------
%>
