WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/_add_pkgs_to_release.asp



<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim pkgArray()
Dim pv_id_list
Dim bImode
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
bImode = ( Request("iMode") = "pending")
'----------------------------------------------
%>
<%
'--------------------------------------------------------------------------------------------------------------------
Sub Populate_pkgArray ( NNpkg_list, ARRpkg )

 
   If ( IsNull(AssocMASS) ) OR (AssocMASS <> "" AND (rsQry("v_ext") <> ".cr" AND rsQry("v_ext") <> ".mas" )) Then
 
      OraDatabase.Parameters.Add "PV_ID_LIST", sPvIdList, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
 
      OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.ADD_PACKAGE_BULK ( :PV_ID_LIST, :BASE_VIEW_ID, :RTAG_ID, :USER_ID, :IMODE ); END;"
 
      OraDatabase.Parameters.Remove "PV_ID_LIST"
   Else
      Err.Raise 8, "Cannot ADD a CORE/MASS package into a MASS_REF Reference Release!"
   End If

      '---- SQL parameters ----
      OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "BASE_VIEW_ID", Request("base_view_id"), ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "PERSONAL_VIEW_ID", Request("personal_view_id"), ORAPARM_INPUT, ORATYPE_NUMBER
      OraDatabase.Parameters.Add "IMODE", iif(bImode, "A", NULL), ORAPARM_INPUT, ORATYPE_CHAR
      '------------------------
 
      Call Seed_DB ( pkgArray, pv_id_list )
 
      If Err.Number = 0 Then

 
      OraDatabase.Parameters.Remove "RTAG_ID"
      OraDatabase.Parameters.Remove "USER_ID"
      OraDatabase.Parameters.Remove "BASE_VIEW_ID"
      OraDatabase.Parameters.Remove "PERSONAL_VIEW_ID"
      OraDatabase.Parameters.Remove "IMODE"
 
      If bAdded AND NOT bImode Then
        Dim objRC: Set objRC = New ReleaseChanged
        Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)
        Set objRC = Nothing
      End If
      

Rev 4955	Rev 5173
Line 28...	Line 28...
28	`<!--#include file="_access_control_project.asp"-->`	28	`<!--#include file="_access_control_project.asp"-->`
29	`<%`	29	`<%`
30	`'------------ Variable Definition -------------`	30	`'------------ Variable Definition -------------`
31	`Dim pkgArray()`	31	`Dim pkgArray()`
32	`Dim pv_id_list`	32	`Dim pv_id_list`
-		33	`Dim bImode`
33	`'------------ Constants Declaration -----------`	34	`'------------ Constants Declaration -----------`
34	`'------------ Variable Init -------------------`	35	`'------------ Variable Init -------------------`
-		36	`bImode = ( Request("iMode") = "pending")`
35	`'----------------------------------------------`	37	`'----------------------------------------------`
36	`%>`	38	`%>`
37	`<%`	39	`<%`
38	`'--------------------------------------------------------------------------------------------------------------------`	40	`'--------------------------------------------------------------------------------------------------------------------`
39	`Sub Populate_pkgArray ( NNpkg_list, ARRpkg )`	41	`Sub Populate_pkgArray ( NNpkg_list, ARRpkg )`
Line 95...	Line 97...
95		97
96	`If ( IsNull(AssocMASS) ) OR (AssocMASS <> "" AND (rsQry("v_ext") <> ".cr" AND rsQry("v_ext") <> ".mas" )) Then`	98	`If ( IsNull(AssocMASS) ) OR (AssocMASS <> "" AND (rsQry("v_ext") <> ".cr" AND rsQry("v_ext") <> ".mas" )) Then`
97		99
98	`OraDatabase.Parameters.Add "PV_ID_LIST", sPvIdList, ORAPARM_OUTPUT, ORATYPE_VARCHAR2`	100	`OraDatabase.Parameters.Add "PV_ID_LIST", sPvIdList, ORAPARM_OUTPUT, ORATYPE_VARCHAR2`
99		101
100	`OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.ADD_PACKAGE_BULK ( :PV_ID_LIST, :BASE_VIEW_ID, :RTAG_ID, :USER_ID ); END;"`	102	`OraDatabase.ExecuteSQL "BEGIN PK_ENVIRONMENT.ADD_PACKAGE_BULK ( :PV_ID_LIST, :BASE_VIEW_ID, :RTAG_ID, :USER_ID, :IMODE ); END;"`
101		103
102	`OraDatabase.Parameters.Remove "PV_ID_LIST"`	104	`OraDatabase.Parameters.Remove "PV_ID_LIST"`
103	`Else`	105	`Else`
104	`Err.Raise 8, "Cannot ADD a CORE/MASS package into a MASS_REF Reference Release!"`	106	`Err.Raise 8, "Cannot ADD a CORE/MASS package into a MASS_REF Reference Release!"`
105	`End If`	107	`End If`
Line 143...	Line 145...
143	`'---- SQL parameters ----`	145	`'---- SQL parameters ----`
144	`OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	146	`OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
145	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`	147	`OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER`
146	`OraDatabase.Parameters.Add "BASE_VIEW_ID", Request("base_view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	148	`OraDatabase.Parameters.Add "BASE_VIEW_ID", Request("base_view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
147	`OraDatabase.Parameters.Add "PERSONAL_VIEW_ID", Request("personal_view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`	149	`OraDatabase.Parameters.Add "PERSONAL_VIEW_ID", Request("personal_view_id"), ORAPARM_INPUT, ORATYPE_NUMBER`
-		150	`OraDatabase.Parameters.Add "IMODE", iif(bImode, "A", NULL), ORAPARM_INPUT, ORATYPE_CHAR`
148	`'------------------------`	151	`'------------------------`
149		152
150	`Call Seed_DB ( pkgArray, pv_id_list )`	153	`Call Seed_DB ( pkgArray, pv_id_list )`
151		154
152	`If Err.Number = 0 Then`	155	`If Err.Number = 0 Then`
Line 168...	Line 171...
168		171
169	`OraDatabase.Parameters.Remove "RTAG_ID"`	172	`OraDatabase.Parameters.Remove "RTAG_ID"`
170	`OraDatabase.Parameters.Remove "USER_ID"`	173	`OraDatabase.Parameters.Remove "USER_ID"`
171	`OraDatabase.Parameters.Remove "BASE_VIEW_ID"`	174	`OraDatabase.Parameters.Remove "BASE_VIEW_ID"`
172	`OraDatabase.Parameters.Remove "PERSONAL_VIEW_ID"`	175	`OraDatabase.Parameters.Remove "PERSONAL_VIEW_ID"`
-		176	`OraDatabase.Parameters.Remove "IMODE"`
173		177
174	`If bAdded Then`	178	`If bAdded AND NOT bImode Then`
175	`Dim objRC: Set objRC = New ReleaseChanged`	179	`Dim objRC: Set objRC = New ReleaseChanged`
176	`Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)`	180	`Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)`
177	`Set objRC = Nothing`	181	`Set objRC = Nothing`
178	`End If`	182	`End If`
179		183

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_add_pkgs_to_release.asp @ 5178 – Rev 4955 → 5173