Subversion Repositories DevTools

Rev

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

Rev 23 Rev 29
Line 21... Line 21...
21 
<%
 21 
<%
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim objFormCollector
 24 
Dim objFormCollector
25 
Dim sMessage
 25 
Dim sMessage
- 
 
 26 
Dim aAddPkgList, aFullList, dAddPkgList, PvId
26 
'------------ CONSTANTS DECLARATION -----------
 27 
'------------ CONSTANTS DECLARATION -----------
27 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 28 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
28 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
 29 
Const LIMG_PRODUCT_UNPACKAGED = "<img src='icons/i_product_unpackaged.gif' width='19' height='19' hspace='2' align='absmiddle' title='Product is unofficial'>"
29 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 30 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
30 
'------------ VARIABLE INIT -------------------
 31 
'------------ VARIABLE INIT -------------------
31 
sMessage = NULL
 32 
sMessage = NULL
32 
parBom_id = Request("bom_id")
 33 
parBom_id = Request("bom_id")
33 
parOs_id = Request("os_id")
 34 
parOs_id = Request("os_id")
34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 35 
Set objFormCollector = CreateObject("Scripting.Dictionary")
- 
 
 36 
Set dAddPkgList = CreateObject("Scripting.Dictionary")
35 
'------------ CONDITIONS ----------------------
 37 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
 38 
'----------------------------------------------
37 
%>
 39 
%>
38 
<%
 40 
<%
39 
'--------------------------------------------------------------------------------------------------------------------------
 41 
'--------------------------------------------------------------------------------------------------------------------------
Line 74... Line 76...
74
76
75 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 77 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
76 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"),		ORAPARM_INPUT, ORATYPE_NUMBER
77 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
79 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
80 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 81 
	OraDatabase.Parameters.Add "BOM_ID",		parBom_id,					ORAPARM_INPUT, ORATYPE_NUMBER
79
82
80
83
81 
	objEH.TryORA ( OraSession )
 84 
	objEH.TryORA ( OraSession )
82
85
83 
	OraDatabase.ExecuteSQL _
 86 
	OraDatabase.ExecuteSQL _
84 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
 87 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
85
88
86 
	objEH.CatchORA ( OraSession )
 89 
	objEH.CatchORA ( OraSession )
- 
 
 90 
 
- 
 
 91 
	aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," )
- 
 
 92 
 
- 
 
 93 
 
- 
 
 94 
	' Clean empty parameters
- 
 
 95 
	For Each PvId In aFullList
- 
 
 96 
		If PvId <> "" Then
- 
 
 97 
			dAddPkgList.Add CStr( PvId ), Empty
- 
 
 98 
		End If
- 
 
 99 
	Next
- 
 
 100
- 
 
 101 
	aFullList = NULL
- 
 
 102 
	aAddPkgList = dAddPkgList.Keys
- 
 
 103 
 
- 
 
 104 
	For Each PvId In aAddPkgList
- 
 
 105 
		Call PopulateSBOMField(parBom_id, PvId, NULL, NULL )
- 
 
 106 
	Next
87
107
88
108
89 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 109 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
90 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 110 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
91 
	OraDatabase.Parameters.Remove "OS_ID"
 111 
	OraDatabase.Parameters.Remove "OS_ID"
92 
	OraDatabase.Parameters.Remove "USER_ID"
 112 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 113 
	OraDatabase.Parameters.Remove "BOM_ID"
93 
End Sub
 114 
End Sub
94 
'--------------------------------------------------------------------------------------------------------------------------
 115 
'--------------------------------------------------------------------------------------------------------------------------
95 
Sub AddProdToOs ()
 116 
Sub AddProdToOs ()
96 
	On Error Resume Next
 117 
	On Error Resume Next
97
118
98 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 119 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
99 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
120 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
121 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 122 
	OraDatabase.Parameters.Add "BOM_ID",		parBom_id,					ORAPARM_INPUT, ORATYPE_NUMBER
101
123
102 
	objEH.TryORA ( OraSession )
 124 
	objEH.TryORA ( OraSession )
103
125
104 
	OraDatabase.ExecuteSQL _
 126 
	OraDatabase.ExecuteSQL _
105 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
 127 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
106
128
107 
	objEH.CatchORA ( OraSession )
 129 
	objEH.CatchORA ( OraSession )
- 
 
 130 
 
- 
 
 131 
	aFullList = Split ( Replace( Request("prod_id_list"), " ", "" ), "," )
- 
 
 132 
 
- 
 
 133 
	' Clean empty parameters
- 
 
 134 
	For Each PvId In aFullList
- 
 
 135 
		If PvId <> "" Then
- 
 
 136 
			dAddPkgList.Add CStr( PvId ), Empty
- 
 
 137 
		End If
- 
 
 138 
	Next
- 
 
 139
- 
 
 140 
	aFullList = NULL
- 
 
 141 
	aAddPkgList = dAddPkgList.Keys
108
142
- 
 
 143 
	For Each PvId In aAddPkgList
- 
 
 144 
		Call PopulateSBOMField(parBom_id, PvId, NULL, NULL )
- 
 
 145 
	Next
- 
 
 146 
 
109
147
110 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 148 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
111 
	OraDatabase.Parameters.Remove "OS_ID"
 149 
	OraDatabase.Parameters.Remove "OS_ID"
112 
	OraDatabase.Parameters.Remove "USER_ID"
 150 
	OraDatabase.Parameters.Remove "USER_ID"
- 
 
 151 
	OraDatabase.Parameters.Remove "BOM_ID"
- 
 
 152 
 
113 
End Sub
 153 
End Sub
114 
'--------------------------------------------------------------------------------------------------------------------------
 154 
'--------------------------------------------------------------------------------------------------------------------------
115 
%>
 155 
%>
116 
<%
 156 
<%
117 
'------------ RUN BEFORE PAGE RENDER ----------
 157 
'------------ RUN BEFORE PAGE RENDER ----------