<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
' Add
' --- PROCESS FORM ---
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
%>
<%
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
Dim ProblemsString
Dim OverideWarnings
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
ProblemsString = NULL
OverideWarnings = "N"
If InStr( 1, Request("btn"), "YES", 1 ) > 0 Then OverideWarnings = "Y"
'----------------------------------------------
%>
<%
Sub AddReleaseReference ( nRtagId, nRefRtagId, outProblemsString )
OraDatabase.Parameters.Add "RTAG_ID", nRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "REF_RTAG_ID", nRefRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
OraDatabase.Parameters.Add "PROBLEM_STRING", NULL, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
objEH.TryORA ( OraSession )
On Error Resume Next
OraDatabase.ExecuteSQL _
" BEGIN "&_
" PK_RELEASE.ADD_RELEASE_REFERENCE ( :RTAG_ID, :REF_RTAG_ID, :PROBLEM_STRING ); "&_
" END; "
objEH.CatchORA ( OraSession )
outProblemsString = OraDatabase.Parameters("PROBLEM_STRING").Value
OraDatabase.Parameters.Remove "RTAG_ID"
OraDatabase.Parameters.Remove "REF_RTAG_ID"
OraDatabase.Parameters.Remove "PROBLEM_STRING"
End Sub
%>
<%
'----------------------- MAIN LINE ---------------------------
'------ ACCESS CONTROL ----------
If NOT objAccessControl.IsVisible("AddReleaseReference") Then
Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
End If
'--------------------------------
If (Request("RefRtag_id") <> "") AND (Request("ToRtag_id") <> "") Then
'--- Process submition ---
Call AddReleaseReference ( Request("ToRtag_id"), Request("RefRtag_id"), ProblemsString )
If IsNull( ProblemsString ) Then
Response.Redirect( "dependencies.asp?rtag_id="& Request("ToRtag_id") )
End If
Else
Err.Raise 8, "This page requires more paramaters to run. "& objPMod.ComposeURL()
End If
'----------------------------------------------------------------
%>
Release Manager
