Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6924
Line 11... Line 11...
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/qstr.asp"-->
 13 
<!--#include file="common/qstr.asp"-->
14 
<!--#include file="common/common_subs.asp"-->
 14 
<!--#include file="common/common_subs.asp"-->
15 
<!--#include file="common/common_dbedit.asp"-->
 15 
<!--#include file="common/common_dbedit.asp"-->
- 
 
 16 
<!--#include file="common/release_changed.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 17 
<!--#include file="common/_popup_window_common.asp"-->
17 
<!--#include file="common/formating.asp"-->
 18 
<!--#include file="common/formating.asp"-->
18 
<%
 19 
<%
19 
'------------ ACCESS CONTROL ------------------
 20 
'------------ ACCESS CONTROL ------------------
20 
%>
 21 
%>
Line 93... Line 94...
93 
     OraDatabase.ExecuteSQL _
 94 
     OraDatabase.ExecuteSQL _
94 
     "BEGIN   PK_RELEASE.ADD_PACKAGE ( :PV_ID, :VIEW_ID, :RTAG_ID, :USER_ID );   END;"
 95 
     "BEGIN   PK_RELEASE.ADD_PACKAGE ( :PV_ID, :VIEW_ID, :RTAG_ID, :USER_ID );   END;"
95 
   End If
 96 
   End If
96 
 
 97 
 
97 
   objEH.CatchORA ( OraSession )
 98 
   objEH.CatchORA ( OraSession )
- 
 
 99 
   On Error goto 0
98 
 
 100 
 
99 
   OraDatabase.Parameters.Remove "RTAG_ID"
 101 
   OraDatabase.Parameters.Remove "RTAG_ID"
100 
   OraDatabase.Parameters.Remove "PV_ID"
 102 
   OraDatabase.Parameters.Remove "PV_ID"
101 
   OraDatabase.Parameters.Remove "USER_ID"
 103 
   OraDatabase.Parameters.Remove "USER_ID"
102 
   OraDatabase.Parameters.Remove "VIEW_ID"
 104 
   OraDatabase.Parameters.Remove "VIEW_ID"
- 
 
 105 
 
- 
 
 106 
   Dim objRC: Set objRC = New ReleaseChanged
- 
 
 107 
   Call objRC.Run_ReleaseChanged(RtagId,pvId,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
- 
 
 108 
   Set objRC = Nothing
- 
 
 109 
 
103 
End Sub
 110 
End Sub
104 
 
 111 
 
105 
Function Release_Groups ( SSrtag_id, SSpkg_id )
 112 
Function Release_Groups ( SSrtag_id, SSpkg_id )
106 
	Release_Groups = _
 113 
	Release_Groups = _
107 
    "SELECT vi.view_id, vi.view_name, bv.hint"&_
 114 
    "SELECT vi.view_id, vi.view_name, bv.hint"&_