Subversion Repositories DevTools

Rev

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

Rev 62 Rev 5356
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wAddProd					 	 |
 5 
'|			          wAddProd					 	 |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
Response.Expires = 0
 11 
Response.Expires = 0
12 
%>
 12 
%>
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
 14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
 15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
 16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
 17 
<%
18 
'------------ ACCESS CONTROL ------------------
 18 
'------------ ACCESS CONTROL ------------------
19 
%>
 19 
%>
20 
<!--#include file="_access_control_general.asp"-->
 20 
<!--#include file="_access_control_general.asp"-->
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 
'------------ CONSTANTS DECLARATION -----------
 26 
'------------ CONSTANTS DECLARATION -----------
27 
Const LIMG_PRODUCT = "<img src='icons/i_product.gif' width='19' height='19' hspace='2' align='absmiddle'>"
 27 
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'>"
 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_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
 29 
Const LIMG_PRODUCT_PATCH = "<img src='icons/i_patch_small.gif' hspace='2' align='absmiddle'>"
30 
'------------ VARIABLE INIT -------------------
 30 
'------------ VARIABLE INIT -------------------
31 
sMessage = NULL
 31 
sMessage = NULL
32 
parBom_id = Request("bom_id")
 32 
parBom_id = Request("bom_id")
33 
parOs_id = Request("os_id")
 33 
parOs_id = Request("os_id")
34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
 34 
Set objFormCollector = CreateObject("Scripting.Dictionary")
35 
'------------ CONDITIONS ----------------------
 35 
'------------ CONDITIONS ----------------------
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
'--------------------------------------------------------------------------------------------------------------------------
 39 
'--------------------------------------------------------------------------------------------------------------------------
40 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
 40 
Sub GetFormDetails ( nBom_id, ByRef outobjDetails )
41 
	Dim rsQry, query
 41 
	Dim rsQry, query
42 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
42 
	OraDatabase.Parameters.Add "BOM_ID", 		nBom_id,		ORAPARM_INPUT, ORATYPE_NUMBER
43
43
44 
	query = _
 44 
	query = _
45 
	"  SELECT bo.RTAG_ID_FK,"&_
 45 
	"  SELECT bo.RTAG_ID_FK,"&_
46 
	"	   rm_proj.PROJ_ID,"&_
 46 
	"	   rm_proj.PROJ_ID,"&_
47 
	"	   rm_proj.PROJ_NAME,"&_
 47 
	"	   rm_proj.PROJ_NAME,"&_
48 
	"	   rt.RTAG_NAME"&_
 48 
	"	   rt.RTAG_NAME"&_
49 
	"  FROM BOMS bo,"&_
 49 
	"  FROM BOMS bo,"&_
50 
	"	   PROJECTS rm_proj,"&_
 50 
	"	   PROJECTS rm_proj,"&_
51 
	"	   RELEASE_TAGS rt"&_
 51 
	"	   RELEASE_TAGS rt"&_
52 
	" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
 52 
	" WHERE rt.PROJ_ID = rm_proj.PROJ_ID"&_
53 
	"   AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
 53 
	"   AND bo.RTAG_ID_FK = rt.RTAG_ID"&_
54 
	"   AND bo.BOM_ID = :BOM_ID"
 54 
	"   AND bo.BOM_ID = :BOM_ID"
55
55
56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 56 
	Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
57 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
 57 
	If (NOT rsQry.BOF) AND (NOT rsQry.EOF)Then
58 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
 58 
		outobjDetails.Item ("rtag_id_fk") = rsQry("rtag_id_fk")
59 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
 59 
		outobjDetails.Item ("proj_id") = rsQry("proj_id")
60 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
 60 
		outobjDetails.Item ("proj_name") = rsQry("proj_name")
61 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 61 
		outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
62
62
63 
	End If
 63 
	End If
64
64
65
65
66 
	OraDatabase.Parameters.Remove "BOM_ID"
 66 
	OraDatabase.Parameters.Remove "BOM_ID"
67
67
68 
	rsQry.Close
 68 
	rsQry.Close
69 
	Set rsQry = Nothing
 69 
	Set rsQry = Nothing
70 
End Sub
 70 
End Sub
71 
'--------------------------------------------------------------------------------------------------------------------------
 71 
'--------------------------------------------------------------------------------------------------------------------------
72 
Sub AddProdToBaseEnv ()
 72 
Sub AddProdToBaseEnv ()
73 
	On Error Resume Next
 73 
	On Error Resume Next
74
74
75 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 75 
	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
76 
	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
77 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
78 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
79
79
80
80
81 
	objEH.TryORA ( OraSession )
 81 
	objEH.TryORA ( OraSession )
82
82
83 
	OraDatabase.ExecuteSQL _
 83 
	OraDatabase.ExecuteSQL _
84 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
 84 
	"BEGIN   pk_Base_Env.Add_Product ( :PROD_ID_LIST, :BASE_ENV_ID, :OS_ID, :USER_ID );   END;"
85
85
86 
	objEH.CatchORA ( OraSession )
 86 
	objEH.CatchORA ( OraSession )
87
87
88
88
89 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 89 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
90 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
 90 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
91 
	OraDatabase.Parameters.Remove "OS_ID"
 91 
	OraDatabase.Parameters.Remove "OS_ID"
92 
	OraDatabase.Parameters.Remove "USER_ID"
 92 
	OraDatabase.Parameters.Remove "USER_ID"
93 
End Sub
 93 
End Sub
94 
'--------------------------------------------------------------------------------------------------------------------------
 94 
'--------------------------------------------------------------------------------------------------------------------------
95 
Sub AddProdToOs ()
 95 
Sub AddProdToOs ()
96 
	On Error Resume Next
 96 
	On Error Resume Next
97
97
98 
	OraDatabase.Parameters.Add "PROD_ID_LIST", 	Request("prod_id_list"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
 98 
	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
99 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
100 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
101
101
102 
	objEH.TryORA ( OraSession )
 102 
	objEH.TryORA ( OraSession )
103
103
104 
	OraDatabase.ExecuteSQL _
 104 
	OraDatabase.ExecuteSQL _
105 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
 105 
	"BEGIN   pk_Product.Add_Product ( :PROD_ID_LIST, :OS_ID, :USER_ID );   END;"
106
106
107 
	objEH.CatchORA ( OraSession )
 107 
	objEH.CatchORA ( OraSession )
108
108
109
109
110 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
 110 
	OraDatabase.Parameters.Remove "PROD_ID_LIST"
111 
	OraDatabase.Parameters.Remove "OS_ID"
 111 
	OraDatabase.Parameters.Remove "OS_ID"
112 
	OraDatabase.Parameters.Remove "USER_ID"
 112 
	OraDatabase.Parameters.Remove "USER_ID"
113 
End Sub
 113 
End Sub
114 
'--------------------------------------------------------------------------------------------------------------------------
 114 
'--------------------------------------------------------------------------------------------------------------------------
115 
%>
 115 
%>
116 
<%
 116 
<%
117 
'------------ RUN BEFORE PAGE RENDER ----------
 117 
'------------ RUN BEFORE PAGE RENDER ----------
118 
objPMod.PersistInQryString ( Array("base_env_id") )
 118 
objPMod.PersistInQryString ( Array("base_env_id") )
119 
 
 119 
 
120 
If CBool(Request("action")) Then
 120 
If CBool(Request("action")) Then
121 
	If Request("prod_id_list") <> "" Then
 121 
	If Request("prod_id_list") <> "" Then
122
122
123 
		'-- Add Product List
 123 
		'-- Add Product List
124 
		If Request("base_env_id") = "" Then
 124 
		If Request("base_env_id") = "" Then
125 
			Call AddProdToOs()
 125 
			Call AddProdToOs()
126 
		Else
 126 
		Else
127 
			Call AddProdToBaseEnv()
 127 
			Call AddProdToBaseEnv()
128 
		End If
 128 
		End If
129
129
130 
		If objEH.Finally Then
 130 
		If objEH.Finally Then
131 
			Call OpenInParentWindow ( Request("rfile") &"?ADDED=OK"& objPMod.ComposeURLWithout("rfile,base_env_id") )
 131 
			Call OpenInParentWindow ( Request("rfile") &"?ADDED=OK"& objPMod.ComposeURLWithout("rfile,base_env_id") )
132 
			Call CloseWindow()
 132 
			Call CloseWindow()
133 
		End If
 133 
		End If
134
134
135 
	Else
 135 
	Else
136 
		sMessage = "Please select Product(s) from Release Manager list then click Add."
 136 
		sMessage = "Please select Product(s) from Release Manager list then click Add."
137
137
138 
	End If
 138 
	End If
139
139
140 
End If
 140 
End If
141 
 
 141 
 
142 
Call GetFormDetails ( parBom_id, objFormCollector )
 142 
Call GetFormDetails ( parBom_id, objFormCollector )
143 
'----------------------------------------------
 143 
'----------------------------------------------
144 
%>
 144 
%>
145 
<html>
 145 
<html>
146 
<head>
 146 
<head>
147 
<title>Deployment Manager</title>
 147 
<title>Deployment Manager</title>
148 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 148 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
149 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 149 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
150 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
 150 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
151 
<script language="JavaScript" src="scripts/common.js"></script>
 151 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
152 
</head>
 152 
<script language="JavaScript" src="scripts/common.js"></script>
153 
 
 153 
</head>
154 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
 154 
 
155 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 155 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
156 
  <tr>
 156 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
157 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Product </span> <br>
 157 
  <tr>
158 
    Search for Product, Create New Product or select from Release Manager list.
 158 
    <td bgcolor="#FFFFFF" class="body_txt"><span class="body_h1"><img src="icons/i_linkarrow_black.gif" width="11" height="11" align="absmiddle">&nbsp;Add Product </span> <br>
159 
      </td>
 159 
    Search for Product, Create New Product or select from Release Manager list.
160 
  </tr>
 160 
      </td>
161
161 
  </tr>
162 
<%
 162
163 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 163 
<%
164 
objFormComponent.FormName = "FormSearch"
 164 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
165 
objFormComponent.Action = "wAddProdBySearch.asp"
 165 
objFormComponent.FormName = "FormSearch"
166 
Call objFormComponent.FormStart()
 166 
objFormComponent.Action = "wAddProdBySearch.asp"
167 
%>
167 
Call objFormComponent.FormStart()
168 
  <tr>
 168 
%>
169 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
 169 
  <tr>
170 
        <tr>
 170 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
171 
          <td nowrap class="body_txtw"><strong>Product Search</strong> </td>
 171 
        <tr>
172 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
 172 
          <td nowrap class="body_txtw"><strong>Product Search</strong> </td>
173 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
 173 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
174 
        </tr>
 174 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
175 
      </table></td>
 175 
        </tr>
176 
  </tr>
 176 
      </table></td>
177 
  <%=objPMod.ComposeHiddenTags()%>
 177 
  </tr>
178 
<%
 178 
  <%=objPMod.ComposeHiddenTags()%>
179 
Call objFormComponent.FormEnd()
 179 
<%
180 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 180 
Call objFormComponent.FormEnd()
181 
%>
 181 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
182 
 
 182 
%>
183 
<%
 183 
 
184 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 184 
<%
185 
objFormComponent.FormName = "FormName"
 185 
'-- FROM START --------------------------------------------------------------------------------------------------------------
186 
objFormComponent.Action = SCRIPT_NAME
 186 
objFormComponent.FormName = "FormName"
187 
objFormComponent.OnSubmit = "ShowProgress();"
 187 
objFormComponent.Action = SCRIPT_NAME
188 
Call objFormComponent.FormStart()
 188 
objFormComponent.OnSubmit = "ShowProgress();"
189 
%>
189 
Call objFormComponent.FormStart()
190 
  <tr>
 190 
%>
191 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 191 
  <tr>
192 
      <tr>
 192 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
193 
        <td><%=ProgressBar()%></td>
 193 
      <tr>
194 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
 194 
        <td><%=ProgressBar()%></td>
195 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 195 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Add">
196 
      </tr>
 196 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
197 
    </table></td>
 197 
      </tr>
198 
  </tr>
 198 
    </table></td>
199 
  <tr>
 199 
  </tr>
200 
    <td>
 200 
  <tr>
201 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
201 
    <td>
202 
	<%Call Messenger ( sMessage , 3, "100%" )%>
 202 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
203 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
203 
	<%Call Messenger ( sMessage , 3, "100%" )%>
204 
	<!--#include file="messages/_msg_inline.asp"-->
 204 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
205 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 205 
	<!--#include file="messages/_msg_inline.asp"-->
206 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
 206 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
207 
      <tr>
 207 
	<table width="100%"  border="0" cellspacing="10" cellpadding="0">
208 
        <td width="50%" valign="top" class="body_txt"><strong>Create New</strong><br>
 208 
      <tr>
209 
            <a href="wAddProdNew.asp?NEW=OK&<%=objPMod.ComposeURL()%>" class="menu_link"><img src="icons/i_product_new.gif" width="15" height="17" hspace="5" vspace="3" border="0" align="absmiddle">Product</a><br>
 209 
        <td width="50%" valign="top" class="body_txt"><strong>Create New</strong><br>
210 
        </td>
 210 
            <a href="wAddProdNew.asp?NEW=OK&<%=objPMod.ComposeURL()%>" class="menu_link"><img src="icons/i_product_new.gif" width="15" height="17" hspace="5" vspace="3" border="0" align="absmiddle">Product</a><br>
211 
        <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 211 
        </td>
212 
        <td width="50%" valign="top" nowrap class="body_txt"><strong>Add from Release Manager</strong><br>
212 
        <td width="1" background="images/bg_bage_2.gif"><img src="images/spacer.gif" width="1" height="1"></td>
213 
		  <%If (objFormCollector.Item("rtag_id_fk") <> "")  Then%>
 213 
        <td width="50%" valign="top" nowrap class="body_txt"><strong>Add from Release Manager</strong><br>
214 
		  <%=objFormCollector.Item ("proj_name") &"&nbsp;/&nbsp;"& objFormCollector.Item ("rtag_name")%>
 214 
		  <%If (objFormCollector.Item("rtag_id_fk") <> "")  Then%>
215 
		  <%Else%>
 215 
		  <%=objFormCollector.Item ("proj_name") &"&nbsp;/&nbsp;"& objFormCollector.Item ("rtag_name")%>
216 
		  <%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%>
 216 
		  <%Else%>
217 
		  <%End If%>
 217 
		  <%Call Messenger ( "This BOM does not have Release Manager Reference release.<br>Please edit BOM properties first.<br>" , 1, "100%" )%>
218 
          <br>
 218 
		  <%End If%>
219 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 219 
          <br>
220 
            <tr>
 220 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
221 
              <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
 221 
            <tr>
222 
              <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
 222 
              <td width="1"><img src="images/spacer.gif" width="1" height="1"></td>
223 
            </tr>
 223 
              <td width="100%"><img src="images/spacer.gif" width="1" height="1"></td>
224 
            <%
 224 
            </tr>
225 
	  ' -- Only run if links with Release Manager
 225 
            <%
226 
	  If (objFormCollector.Item("rtag_id_fk") <> "")  Then
 226 
	  ' -- Only run if links with Release Manager
227
227 
	  If (objFormCollector.Item("rtag_id_fk") <> "")  Then
228 
		  '===== Release Manager PRODUCTS =====
 228
229 
		  OraDatabase.Parameters.Add "RTAG_ID_FK", 				objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
229 
		  '===== Release Manager PRODUCTS =====
230 
		  OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", 	enumPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
230 
		  OraDatabase.Parameters.Add "RTAG_ID_FK", 				objFormCollector.Item("rtag_id_fk"),	ORAPARM_INPUT, ORATYPE_NUMBER
231 
		  OraDatabase.Parameters.Add "enumAUTOPRODUCTS_BASE_VIEW_ID", 	enumAUTOPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
231 
		  OraDatabase.Parameters.Add "enumPRODUCTS_BASE_VIEW_ID", 	enumPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
232 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
232 
		  OraDatabase.Parameters.Add "enumAUTOPRODUCTS_BASE_VIEW_ID", 	enumAUTOPRODUCTS_BASE_VIEW_ID,				ORAPARM_INPUT, ORATYPE_NUMBER
233
233 
		  OraDatabase.Parameters.Add "OS_ID", 						parOs_id,								ORAPARM_INPUT, ORATYPE_NUMBER
234 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsView.sql"), ORADYN_DEFAULT )
 234
235
235 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsView.sql"), ORADYN_DEFAULT )
236 
		  If rsQry.RecordCount < 1 Then
 236
237 
		  	Response.write "No Products Found."
 237 
		  If rsQry.RecordCount < 1 Then
238 
		  End If
 238 
		  	Response.write "No Products Found."
239
239 
		  End If
240 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 240
241 
		  %>
 241 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
242 
            <tr>
 242 
		  %>
243 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
 243 
            <tr>
244 
              <td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
 244 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>" <%=rsQry("used")%>></td>
245 
            </tr>
 245 
              <td nowrap class="body_txt"><%=Eval( rsQry("icon") )%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
246 
            <%rsQry.MoveNext%>
 246 
            </tr>
247 
            <%
 247 
            <%rsQry.MoveNext%>
248 
		  WEnd
 248 
            <%
249
249 
		  WEnd
250
250
251
251
252 
		  %>
 252
253 
		  </table>
 253 
		  %>
254 
		  <br><br>
 254 
		  </table>
255 
		  <!-- NEW PATCHES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 255 
		  <br><br>
256 
		  <strong>Add New Patches</strong><br>
256 
		  <!-- NEW PATCHES ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
257 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
 257 
		  <strong>Add New Patches</strong><br>
258 
		  <%
 258 
          <table width="100%"  border="0" cellspacing="3" cellpadding="0">
259 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsUnusedPatches.sql"), ORADYN_DEFAULT )
 259 
		  <%
260
260 
		  Set rsQry = OraDatabase.DbCreateDynaset( GetQuery ("ReleaseManagerProductsUnusedPatches.sql"), ORADYN_DEFAULT )
261 
		  If rsQry.RecordCount < 1 Then
 261
262 
		  	Response.write "No New Patches Found."
 262 
		  If rsQry.RecordCount < 1 Then
263 
		  End If
 263 
		  	Response.write "No New Patches Found."
264
264 
		  End If
265 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 265
266 
		  %>
 266 
		  While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
267 
            <tr>
 267 
		  %>
268 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>"></td>
 268 
            <tr>
269 
              <td nowrap class="body_txt"><%=LIMG_PRODUCT_PATCH%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
 269 
              <td nowrap class="form_iname"><input type="checkbox" name="prod_id_list" value="<%=rsQry("prod_id")%>"></td>
270 
            </tr>
 270 
              <td nowrap class="body_txt"><%=LIMG_PRODUCT_PATCH%><%=rsQry("pkg_name") &" "& rsQry("pkg_version")%></td>
271 
            <%rsQry.MoveNext%>
 271 
            </tr>
272 
            <%
 272 
            <%rsQry.MoveNext%>
273 
		  WEnd
 273 
            <%
274
274 
		  WEnd
275
275
276
276
277 
		  OraDatabase.Parameters.Remove "RM_BRANCH_ID"
 277
278 
		  OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"
 278 
		  OraDatabase.Parameters.Remove "RM_BRANCH_ID"
279 
		  OraDatabase.Parameters.Remove "enumAUTOPRODUCTS_BASE_VIEW_ID"
279 
		  OraDatabase.Parameters.Remove "enumPRODUCTS_BASE_VIEW_ID"
280 
		  OraDatabase.Parameters.Remove "OS_ID"
 280 
		  OraDatabase.Parameters.Remove "enumAUTOPRODUCTS_BASE_VIEW_ID"
281
281 
		  OraDatabase.Parameters.Remove "OS_ID"
282 
	  End If
 282
283 
	  %>
 283 
	  End If
284 
          </table></td>
 284 
	  %>
285 
        <td width="1" valign="top" class="body_txt"><img src="images/spacer.gif" width="1" height="320"></td>
 285 
          </table></td>
286 
      </tr>
 286 
        <td width="1" valign="top" class="body_txt"><img src="images/spacer.gif" width="1" height="320"></td>
287 
    </table>
 287 
      </tr>
288 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 288 
    </table>
289 
    </td>
 289 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
290 
  </tr>
 290 
    </td>
291 
  <%=objPMod.ComposeHiddenTags()%>
 291 
  </tr>
292 
  <input type="hidden" name="action" value="true">
 292 
  <%=objPMod.ComposeHiddenTags()%>
293 
<%
 293 
  <input type="hidden" name="action" value="true">
294 
Call objFormComponent.FormEnd()
 294 
<%
295 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 295 
Call objFormComponent.FormEnd()
296 
%>
 296 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
297 
</table>
 297 
%>
298 
</body>
 298 
</table>
299 
</html>
 299 
</body>
300 
<%
 300 
</html>
301 
'------------ RUN AFTER PAGE RENDER -----------
 301 
<%
302 
Set objFormCollector = Nothing
 302 
'------------ RUN AFTER PAGE RENDER -----------
303 
'----------------------------------------------
 303 
Set objFormCollector = Nothing
304 
%><!--#include file="common/globals_destructor.asp"-->
 304 
'----------------------------------------------
- 
 
 305 
%><!--#include file="common/globals_destructor.asp"-->