Subversion Repositories DevTools

Rev

Rev 7493 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7493 Rev 7572
Line 30... Line 30...
30 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
31 
Dim rsQry
 31 
Dim rsQry
32 
Dim parSourceRtagId
 32 
Dim parSourceRtagId
33 
Dim isSnapshot
 33 
Dim isSnapshot
34 
Dim isBranch
 34 
Dim isBranch
- 
 
 35 
Dim newRtagId
- 
 
 36 
 
35 
'------------ Constants Declaration -----------
 37 
'------------ Constants Declaration -----------
36 
'------------ Variable Init -------------------
 38 
'------------ Variable Init -------------------
37 
parSourceRtagId = Request("source_rtag_id")
 39 
parSourceRtagId = Request("source_rtag_id")
38 
objPMod.PersistInQryString("proj_id")
 40 
objPMod.PersistInQryString("proj_id")
39 
isSnapshot = RequestBool("snapshot", FALSE)
 41 
isSnapshot = RequestBool("snapshot", FALSE)
Line 93... Line 95...
93 
    objEH.ErrorRedirect = FALSE
 95 
    objEH.ErrorRedirect = FALSE
94 
    On Error Resume Next
 96 
    On Error Resume Next
95 
    objEH.TryORA ( OraSession )
 97 
    objEH.TryORA ( OraSession )
96
98
97 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE, :ORTAGID);   END;"
 99 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE, :ORTAGID);   END;"
- 
 
 100 
    newRtagId = OraDatabase.Parameters("ORTAGID").Value
98 
 
 101 
 
99 
    objEH.CatchORA ( OraSession )
 102 
    objEH.CatchORA ( OraSession )
100
103
101 
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
 104 
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
102 
    OraDatabase.Parameters.Remove "PROJ_ID"
 105 
    OraDatabase.Parameters.Remove "PROJ_ID"
Line 126... Line 129...
126 
    If objForm.IsValidOnPostBack Then
 129 
    If objForm.IsValidOnPostBack Then
127 
        ' --- Form is Valid ---
 130 
        ' --- Form is Valid ---
128 
        Call AddRelease()
 131 
        Call AddRelease()
129
132
130 
        If objEH.Finally Then
 133 
        If objEH.Finally Then
- 
 
 134 
            If Request("mode") = "S" Then
- 
 
 135 
                Call OpenInWindow ( "dependencies.asp?rtag_id="& Request("source_rtag_id") )
- 
 
 136 
            Else
- 
 
 137 
                If newRtagId <> "" Then
- 
 
 138 
                    Call OpenInWindow ( "dependencies.asp?rtag_id="& newRtagId )
- 
 
 139 
                Else
131 
            Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
 140 
                    Call OpenInWindow ( "rtree.asp?DONE=OK&"& objPMod.ComposeURL() )
- 
 
 141 
                End If
- 
 
 142 
            End If
132 
        End If
 143 
        End If
133
144
134 
    End If
 145 
    End If
135
146
136 
End If
 147 
End If