Subversion Repositories DevTools

Rev

Rev 5658 | Rev 5957 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5658 Rev 5952
Line 91... Line 91...
91
91
92 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE );   END;"
 92 
    OraDatabase.ExecuteSQL "BEGIN PK_RELEASE.NEW_RELEASE ( :RTAG_NAME, :RTAG_DESCRIPTION, :PROJ_ID, :SOURCE_RTAG_ID, :IS_BRANCH, :USER_ID, :OMODE );   END;"
93 
 
 93 
 
94 
    objEH.CatchORA ( OraSession )
 94 
    objEH.CatchORA ( OraSession )
95
95
96 
    OraDatabase.Parameters.Add "SOURCE_RTAG_ID"
 96 
    OraDatabase.Parameters.Remove "SOURCE_RTAG_ID"
97 
    OraDatabase.Parameters.Add "PROJ_ID"
 97 
    OraDatabase.Parameters.Remove "PROJ_ID"
98 
    OraDatabase.Parameters.Add "RTAG_NAME"
 98 
    OraDatabase.Parameters.Remove "RTAG_NAME"
99 
    OraDatabase.Parameters.Add "RTAG_DESCRIPTION"
 99 
    OraDatabase.Parameters.Remove "RTAG_DESCRIPTION"
100 
    OraDatabase.Parameters.Add "USER_ID"
 100 
    OraDatabase.Parameters.Remove "USER_ID"
101 
    OraDatabase.Parameters.Add "IS_BRANCH"
 101 
    OraDatabase.Parameters.Remove "IS_BRANCH"
102 
    OraDatabase.Parameters.Add "OMODE"
 102 
    OraDatabase.Parameters.Remove "OMODE"
103 
End Sub
 103 
End Sub
104 
'--------------------------------------------------------------------------------------------------------------------------
 104 
'--------------------------------------------------------------------------------------------------------------------------
105 
%>
 105 
%>
106 
<%
 106 
<%
107 
'------------ RUN BEFORE PAGE RENDER ----------
 107 
'------------ RUN BEFORE PAGE RENDER ----------