Subversion Repositories DevTools

Rev

Rev 15 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
13 rsolanki 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
4 
'|                                                   |
5 
'|			          wAddProdNew				 	 |
6 
'|                                                   |
7 
'=====================================================
8 
%>
9 
<%
10 
Option explicit
11 
Response.Expires = 0
12 
%>
13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/config.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/_popup_window_common.asp"-->
17 
<%
18 
'------------ ACCESS CONTROL ------------------
19 
%>
20 
<!--#include file="_access_control_general.asp"-->
21 
<%
22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
24 
Dim objFormCollector
25 
Dim sMessage
26 
'------------ CONSTANTS DECLARATION -----------
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'>"
29 
'------------ VARIABLE INIT -------------------
30 
sMessage = NULL
31 
parBom_id = Request("bom_id")
32 
parOs_id = Request("os_id")
33 
Set objFormCollector = CreateObject("Scripting.Dictionary")
34 
'------------ CONDITIONS ----------------------
35 
'----------------------------------------------
36 
%>
37 
<%
38 
'--------------------------------------------------------------------------------------------------------------------------
39 
Function HasSimilarNames ( sProdName )
40 
	Dim rsQry
41 
 
42 
	HasSimilarNames = FALSE
43 
 
44 
	OraDatabase.Parameters.Add "PROD_NAME", sProdName, ORAPARM_INPUT, ORATYPE_VARCHAR2
45 
 
46 
	Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("SimilarProductNames.sql"), ORADYN_DEFAULT )
47 
	If rsQry.RecordCount > 0 Then
48 
		HasSimilarNames = TRUE
49 
	End If
50 
 
51 
	OraDatabase.Parameters.Remove "PROD_NAME"
52 
 
53 
	rsQry.Close
54 
	Set rsQry = Nothing
55 
End Function
56 
'--------------------------------------------------------------------------------------------------------------------------
57 
Sub AddProdToOs ()
58 
	On Error Resume Next
59 
 
60 
	OraDatabase.Parameters.Add "PROD_NAME", 	Request("prod_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
61 
	OraDatabase.Parameters.Add "PROD_VERSION", 	Request("prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
62 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
63 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
64 
 
65 
	objEH.TryORA ( OraSession )
66 
 
67 
	OraDatabase.ExecuteSQL _
68 
	"DECLARE "&_
69 
	"   outProdId NUMBER;"&_
70 
	"BEGIN   "&_
71 
	"   pk_Product.New_Product ( :PROD_NAME, :PROD_VERSION, :USER_ID, outProdId );"&_
72 
	"   pk_Product.Add_Product ( outProdId, :OS_ID, :USER_ID );"&_
73 
	"END;"
74 
 
75 
	objEH.CatchORA ( OraSession )
76 
 
77 
 
78 
	OraDatabase.Parameters.Remove "PROD_NAME"
79 
	OraDatabase.Parameters.Remove "PROD_VERSION"
80 
	OraDatabase.Parameters.Remove "OS_ID"
81 
	OraDatabase.Parameters.Remove "USER_ID"
82 
End Sub
83 
'--------------------------------------------------------------------------------------------------------------------------
84 
Sub AddProdToBaseEnv ()
85 
	On Error Resume Next
86 
 
87 
	OraDatabase.Parameters.Add "PROD_NAME", 	Request("prod_name"), 		ORAPARM_INPUT, ORATYPE_VARCHAR2
88 
	OraDatabase.Parameters.Add "PROD_VERSION", 	Request("prod_version"), 	ORAPARM_INPUT, ORATYPE_VARCHAR2
89 
	OraDatabase.Parameters.Add "BASE_ENV_ID", 	Request("base_env_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
15 rsolanki 90 
	OraDatabase.Parameters.Add "OS_ID", 		Request("os_id"), 			ORAPARM_INPUT, ORATYPE_NUMBER
13 rsolanki 91 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
92 
 
93 
	objEH.TryORA ( OraSession )
94 
 
95 
	OraDatabase.ExecuteSQL _
96 
	"DECLARE "&_
97 
	"   outProdId NUMBER;"&_
98 
	"BEGIN   "&_
99 
	"   pk_Product.New_Product ( :PROD_NAME, :PROD_VERSION, :USER_ID, outProdId );"&_
15 rsolanki 100 
	"   pk_Base_Env.Add_Product ( outProdId, :BASE_ENV_ID, :OS_ID, :USER_ID );"&_
13 rsolanki 101 
	"END;"
102 
 
103 
	objEH.CatchORA ( OraSession )
104 
 
105 
 
106 
	OraDatabase.Parameters.Remove "PROD_NAME"
107 
	OraDatabase.Parameters.Remove "PROD_VERSION"
108 
	OraDatabase.Parameters.Remove "BASE_ENV_ID"
15 rsolanki 109 
	OraDatabase.Parameters.Remove "OS_ID"
13 rsolanki 110 
	OraDatabase.Parameters.Remove "USER_ID"
111 
End Sub
112 
'--------------------------------------------------------------------------------------------------------------------------
113 
Sub AddProdNew ()
114 
 
115 
	If Request("skip_similar_names") = "" Then
116 
		If HasSimilarNames( Request("prod_name") ) Then
117 
			Call OpenInWindow ( "wAddProdSimilarNames.asp?prod_name="& Request("prod_name") &"&prod_version="& Request("prod_version") &"&"& objPMod.ComposeURL() )
118 
		End If
119 
	End If
120 
 
121 
	'-- Now add product
122 
	If Request("base_env_id") = "" Then
123 
		'-- Add to OS
124 
		Call AddProdToOs()
125 
 
126 
	Else
127 
		'-- Add to Base Env
128 
		Call AddProdToBaseEnv()
129 
 
130 
	End If
131 
 
132 
 
133 
 
134 
End Sub
135 
 
136 
'--------------------------------------------------------------------------------------------------------------------------
137 
%>
138 
<%
139 
'------------ RUN BEFORE PAGE RENDER ----------
140 
objPMod.PersistInQryString ( Array("base_env_id") )
141 
 
142 
' --- Get Form details from DB ---
143 
 
144 
' --- Load Validation Rules ---
145 
Call objForm.LoadValidationRules ( Array("prod_name","prod_version"), OraDatabase )		' Load Validation Rules
146 
 
147 
' --- Enter Form Validation Rule Changes here... ----
148 
'If Request("base_env_id") <> "" Then
149 
	' /* There is a problem if you want to add 3rd party product in OS and the Product Name is not to ERG standards.
150 
	'    I will allow entry of any kind of names and versions for now. */
151 
	objForm.UpdateRules ("id='prod_name' RegExp=''")
152 
	objForm.UpdateRules ("id='prod_version' RegExp=''")
153 
'End If
154 
'----------------------------------------------------
155 
 
156 
If CBool(Request("action")) Then
157 
	If objForm.IsValidOnPostBack Then
158 
		'-- Add Product
159 
		Call AddProdNew()
160 
 
161 
		If objEH.Finally Then
162 
			Call OpenInParentWindow ( Request("rfile") &"?ADDED=OK"& objPMod.ComposeURLWithout("rfile") )
163 
			Call CloseWindow()
164 
		End If
165 
	End If
166 
End If
167 
 
168 
'----------------------------------------------
169 
%>
170 
<html>
171 
<head>
172 
<title>Deployment Manager</title>
173 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
174 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
175 
<link href="scripts/deployment_manager.css" rel="stylesheet" type="text/css">
176 
<script language="JavaScript" src="scripts/common.js"></script>
177 
</head>
178 
 
179 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormName.prod_name.focus();">
180 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
181 
  <tr>
182 
    <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>
183 
    Enter Product Name and Version.
184 
      </td>
185 
  </tr>
186 
<%
187 
'-- FROM START --------------------------------------------------------------------------------------------------------------
188 
objFormComponent.FormName = "FormName"
189 
objFormComponent.Action = SCRIPT_NAME
190 
objFormComponent.OnSubmit = "ShowProgress();"
191 
Call objFormComponent.FormStart()
192 
%>
193 
  <tr>
194 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
195 
      <tr>
196 
        <td><%=ProgressBar()%></td>
197 
        <td align="right"><input name="btn" type="reset" class="form_btn" value="&laquo; Back" onClick="history.back();">
198 
        &nbsp;&nbsp;
199 
        <input name="btn" type="submit" class="form_btn" value="Add">
200 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
201 
      </tr>
202 
    </table></td>
203 
  </tr>
204 
  <tr>
205 
    <td>
206 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
207 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
208 
	<!--#include file="messages/_msg_inline.asp"-->
209 
    <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
210 
	<table width="100%"  border="0" cellspacing="2" cellpadding="0">
211 
      <tr>
212 
        <td nowrap class="form_iname" valign="top">Product Name </td>
213 
        <td valign="top"><%=objFormComponent.TextBox ( "prod_name", objForm.GetValue( "prod_name", objFormCollector.Item("prod_name") ), "size='60' class='form_ivalue'" )%></td>
214 
		<td valign="top"><%=objForm.Validate ("prod_name")%></td>
215 
      </tr>
216 
      <tr>
217 
        <td nowrap class="form_iname" valign="top">Product Version</td>
218 
        <td valign="top"><%=objFormComponent.TextBox ( "prod_version", objForm.GetValue( "prod_version", objFormCollector.Item("prod_version") ), "size='60' class='form_ivalue'" )%></td>
219 
		<td valign="top"><%=objForm.Validate ("prod_version")%></td>
220 
      </tr>
221 
      <tr>
222 
        <td width="10%" class="form_iname">&nbsp;</td>
223 
        <td width="1%">&nbsp;</td>
224 
		<td width="90%" class="val_err"></td>
225 
      </tr>
226 
    </table>
227 
	<!-- ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
228 
    </td>
229 
  </tr>
230 
  <%=objPMod.ComposeHiddenTags()%>
231 
  <input type="hidden" name="action" value="true">
232 
<%
233 
Call objFormComponent.FormEnd()
234 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
235 
%>
236 
</table>
237 
</body>
238 
</html>
239 
<%
240 
'------------ RUN AFTER PAGE RENDER -----------
241 
Set objFormCollector = Nothing
242 
'----------------------------------------------
243 
%><!--#include file="common/globals_destructor.asp"-->