Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|			          wAddProc					 	 |
 5 
'|                   wAddProc                        |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
Line 46... Line 46...
46 
'------------ RUN BEFORE PAGE RENDER ----------
 46 
'------------ RUN BEFORE PAGE RENDER ----------
47 
 
 47 
 
48 
 
 48 
 
49 
If CBool(Request("action")) Then
 49 
If CBool(Request("action")) Then
50 
 
 50 
 
51 
	Dim Query_String
 51 
   Dim Query_String
- 
 
 52 
 
- 
 
 53 
   If Request("isInterface") = "" Then
- 
 
 54 
      isInterface = "F"
- 
 
 55 
   Else
- 
 
 56 
      isInterface = "T"
- 
 
 57 
   End If
- 
 
 58 
 
- 
 
 59 
   Query_String = _
- 
 
 60 
   "   SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
- 
 
 61 
   "   AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
- 
 
 62 
   "   AND IS_INTERFACE = '"& isInterface &"'"
- 
 
 63 
 
- 
 
 64 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 65 
 
- 
 
 66 
   If rsTemp.RecordCount = 0 Then
- 
 
 67 
 
- 
 
 68 
      SEQ_proc_id = Get_From_DUAL("DEPLOYMENT_MANAGER.SEQ_PROC_ID.nextval")
- 
 
 69 
 
- 
 
 70 
      OraDatabase.Parameters.Add "PROC_ID",         SEQ_proc_id,              ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 71 
      OraDatabase.Parameters.Add "PKG_HEALTH_TAG",  Request("healthTag"),     ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 72 
      OraDatabase.Parameters.Add "PROC_DESC",       Request("procDesc"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 73 
      OraDatabase.Parameters.Add "CMD_INTERFACE",   Request("cmdInterface"),  ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 74 
      OraDatabase.Parameters.Add "PKG_OWNER",       Request("pkgOwner"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 75 
      OraDatabase.Parameters.Add "IS_INTERFACE",    isInterface,              ORAPARM_INPUT, ORATYPE_VARCHAR
- 
 
 76 
      OraDatabase.Parameters.Add "PV_ID",           Request("pv_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 77 
      OraDatabase.Parameters.Add "USER_ID",         objAccessControl.UserId,  ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 78 
 
- 
 
 79 
      objEH.TryORA ( OraSession )
- 
 
 80 
      On Error Resume Next
- 
 
 81 
 
- 
 
 82 
      OraDatabase.ExecuteSQL _
- 
 
 83 
      "BEGIN  PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PV_ID, :USER_ID);  END;"
- 
 
 84 
 
- 
 
 85 
      objEH.CatchORA ( OraSession )
- 
 
 86 
 
- 
 
 87 
      OraDatabase.Parameters.Remove "PROC_ID"
- 
 
 88 
      OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
- 
 
 89 
      OraDatabase.Parameters.Remove "PROC_DESC"
- 
 
 90 
      OraDatabase.Parameters.Remove "CMD_INTERFACE"
- 
 
 91 
      OraDatabase.Parameters.Remove "PKG_OWNER"
- 
 
 92 
      OraDatabase.Parameters.Remove "IS_INTERFACE"
- 
 
 93 
      OraDatabase.Parameters.Remove "PV_ID"
- 
 
 94 
      OraDatabase.Parameters.Remove "USER_ID"
- 
 
 95 
 
- 
 
 96 
      If objEH.Finally Then
- 
 
 97 
         Call OpenInParentWindow ("process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
- 
 
 98 
         Call CloseWindow()
- 
 
 99 
      End If
- 
 
 100 
 
- 
 
 101 
   Else
- 
 
 102 
      Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("pv_id") )
- 
 
 103 
   End If
- 
 
 104 
 
- 
 
 105 
   rsTemp.Close
- 
 
 106 
   Set rsTemp = nothing
52 
 
 107 
 
53 
	If Request("isInterface") = "" Then
 - 
 
54 
  		isInterface = "F"
 - 
 
55 
  	Else
 - 
 
56 
  		isInterface = "T"
 - 
 
57 
  	End If
- 
 
58
- 
 
59 
	Query_String = _
 - 
 
60 
	"	SELECT * FROM PROCESSES WHERE PROC_NAME = '"& Request("healthTag") &"'"&_
 - 
 
61 
	"	AND RUN_AS = '"& Request("cmdInterface") &"' AND PKG_OWNER = '"& Request("pkgOwner") &"'"&_
 - 
 
62 
	"	AND IS_INTERFACE = '"& isInterface &"'"
 - 
 
63
- 
 
64 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 - 
 
65
- 
 
66 
	If rsTemp.RecordCount = 0 Then
 - 
 
67 
 
 - 
 
68 
		objEH.Try
 - 
 
69 
 
 - 
 
70 
		SEQ_proc_id = Get_From_DUAL("DEPLOYMENT_MANAGER.SEQ_PROC_ID.nextval")
 - 
 
71 
 
 - 
 
72 
		OraDatabase.Parameters.Add "PROC_ID", 			SEQ_proc_id, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
73 
		OraDatabase.Parameters.Add "PKG_HEALTH_TAG", 	Request("healthTag"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
74 
		OraDatabase.Parameters.Add "PROC_DESC", 		Request("procDesc"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
75 
		OraDatabase.Parameters.Add "CMD_INTERFACE", 	Request("cmdInterface"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
76 
		OraDatabase.Parameters.Add "PKG_OWNER", 		Request("pkgOwner"), ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
77 
		OraDatabase.Parameters.Add "IS_INTERFACE", 		isInterface, ORAPARM_INPUT, ORATYPE_VARCHAR
- 
 
78 
		OraDatabase.Parameters.Add "PV_ID", 			Request("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
79 
		OraDatabase.Parameters.Add "USER_ID", 			objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
80
- 
 
81 
		OraSession.BeginTrans
 - 
 
82
- 
 
83 
		OraDatabase.ExecuteSQL _
 - 
 
84 
		"BEGIN  PK_PACKAGE.ADD_PROCESS( :PROC_ID, :PKG_HEALTH_TAG, :PROC_DESC, :CMD_INTERFACE, :PKG_OWNER, :IS_INTERFACE, :PV_ID, :USER_ID);  END;"
- 
 
85 
 
 - 
 
86 
	    OraSession.CommitTrans
 - 
 
87
- 
 
88 
		OraDatabase.Parameters.Remove "PROC_ID"
 - 
 
89 
		OraDatabase.Parameters.Remove "PKG_HEALTH_TAG"
 - 
 
90 
		OraDatabase.Parameters.Remove "PROC_DESC"
 - 
 
91 
		OraDatabase.Parameters.Remove "CMD_INTERFACE"
 - 
 
92 
		OraDatabase.Parameters.Remove "PKG_OWNER"
 - 
 
93 
		OraDatabase.Parameters.Remove "IS_INTERFACE"
 - 
 
94 
		OraDatabase.Parameters.Remove "PV_ID"
 - 
 
95 
		OraDatabase.Parameters.Remove "USER_ID"
 - 
 
96
- 
 
97 
		If objEH.Finally Then
 - 
 
98 
			Call OpenInParentWindow ("process_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 - 
 
99 
			Call CloseWindow()
 - 
 
100 
		End If
 - 
 
101
- 
 
102 
	Else
 - 
 
103 
		Call RaiseMsg ( enum_MSG_PROCESS_EXISTS, Request("pv_id") )
 - 
 
104 
	End If
- 
 
105
- 
 
106 
	rsTemp.Close
 - 
 
107 
	Set rsTemp = nothing
- 
 
108
- 
 
109 
End If
 108 
End If
110 
 
 109 
 
111 
 
 110 
 
112 
'----------------------------------------------
 111 
'----------------------------------------------
113 
%>
 112 
%>
Line 120... Line 119...
120 
<script language="JavaScript" src="scripts/common.js"></script>
 119 
<script language="JavaScript" src="scripts/common.js"></script>
121 
</head>
 120 
</head>
122 
 
 121 
 
123 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
 122 
<body background="images/bg_bage_0.gif" leftmargin="0" topmargin="0" onLoad="self.focus();FormSearch.prod_name.focus();">
124 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
 123 
<table width="100%"  border="0" cellspacing="0" cellpadding="10">
125 
  <tr>
 124 
   <tr>
126 
    <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 Process</span> <br>
 125 
      <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 Process</span> <br>
127 
    Add a process for the package version.
 126 
         Add a process for the package version.
128 
      </td>
 127 
      </td>
129 
  </tr>
 128 
   </tr>
130
- 
 
131 
<%
 129 
   <%
132 
'-- FROM START ---------------------------------------------------------------------------------------------------------------
 130 
   '-- FROM START ---------------------------------------------------------------------------------------------------------------
133 
objFormComponent.FormName = "FormSearch"
 131 
   objFormComponent.FormName = "FormSearch"
134 
objFormComponent.Action = "wAddProcessBySearch.asp"
 132 
   objFormComponent.Action = "wAddProcessBySearch.asp"
135 
Call objFormComponent.FormStart()
 133 
   Call objFormComponent.FormStart()
136 
%>
134 
   %>
137 
  <tr>
 135 
   <tr>
- 
 
 136 
      <td background="images/bg_quicksearch.gif" class="body_txt">
138 
    <td background="images/bg_quicksearch.gif" class="body_txt"><table width="100" border="0" cellspacing="3" cellpadding="0">
 137 
         <table width="100" border="0" cellspacing="3" cellpadding="0">
139 
        <tr>
 138 
            <tr>
140 
          <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
 139 
               <td nowrap class="body_txtw"><strong>Process Search</strong> </td>
141 
          <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
 140 
               <td><input name="prod_name" type="text" class="body_txt" size="20"></td>
142 
          <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
 141 
               <td><input name="btn" type="image" src="icons/b_search.gif" width="16" height="16" border="0"></td>
143 
        </tr>
 142 
            </tr>
144 
      </table></td>
 143 
         </table>
- 
 
 144 
      </td>
145 
  </tr>
 145 
   </tr>
146 
  <%=objPMod.ComposeHiddenTags()%>
 146 
   <%=objPMod.ComposeHiddenTags()%>
147 
<%
 147 
   <%
148 
Call objFormComponent.FormEnd()
 148 
   Call objFormComponent.FormEnd()
149 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 149 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
150 
%>
 150 
   %>
151 
 
 151 
 
152 
<%
 152 
   <%
153 
'-- FROM START --------------------------------------------------------------------------------------------------------------
 153 
   '-- FROM START --------------------------------------------------------------------------------------------------------------
154 
objFormComponent.FormName = "FormName"
 154 
   objFormComponent.FormName = "FormName"
155 
objFormComponent.Action = ScriptName
 155 
   objFormComponent.Action = ScriptName
156 
objFormComponent.OnSubmit = "ShowProgress();"
 156 
   objFormComponent.OnSubmit = "ShowProgress();"
157 
Call objFormComponent.FormStart()
 157 
   Call objFormComponent.FormStart()
158 
 
 158 
 
159 
%>
159 
   %>
160 
  <tr>
 160 
   <tr>
- 
 
 161 
      <td background="images/bg_login.gif">
161 
    <td background="images/bg_login.gif"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
 162 
         <table width="100%"  border="0" cellspacing="0" cellpadding="0">
162 
      <tr>
 163 
            <tr>
163 
        <td><%=ProgressBar()%></td>
 164 
               <td><%=ProgressBar()%></td>
164 
        <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
 165 
               <td align="right"><input name="btn" type="submit" class="form_btn" value="Submit">
165 
          <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();"></td>
 166 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="self.close();">
- 
 
 167 
               </td>
166 
      </tr>
 168 
            </tr>
- 
 
 169 
         </table>
167 
    </table></td>
 170 
      </td>
168 
  </tr>
 171 
   </tr>
169 
  <tr>
 172 
   <tr>
170 
    <td>
 173 
      <td>
171 
<!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
174 
         <!-- NEW PRODUCT ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
172 
	<%Call Messenger ( sMessage , 3, "100%" )%>
 175 
         <%Call Messenger ( sMessage , 3, "100%" )%>
173 
	<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
176 
         <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
174 
	<!--#include file="messages/_msg_inline.asp"-->
 177 
         <!--#include file="messages/_msg_inline.asp"-->
175 
<table width="664" border="0">
 178 
         <table width="664" border="0">
176 
  <tr>
 179 
            <tr>
177 
    <td><span class="body_txt">Package Health Tag</span>&nbsp;</td>
 180 
               <td><span class="body_txt">Package Health Tag</span>&nbsp;</td>
178 
    <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
 181 
               <td><input name="healthTag" type="text" class="body_txt" value="<%=healthTag%>">&nbsp;</td>
179 
  </tr>
 182 
            </tr>
180 
  <tr>
 183 
            <tr>
181 
    <td><span class="body_txt">Process Description</span></td>
 184 
               <td><span class="body_txt">Process Description</span></td>
182 
    <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea>
 185 
               <td><textarea name="procDesc" rows=3 cols=50 class="body_txt"><%=procDesc%></textarea></td>
183 
	</td>
 - 
 
184 
  </tr>
186 
            </tr>
185 
  <tr>
 187 
            <tr>
186 
    <td><span class="body_txt">Package/Product</span></td>
 188 
               <td><span class="body_txt">Package/Product</span></td>
187 
    <td><%
 189 
               <td>
- 
 
 190 
                  <%
188 
	Dim rsTemp
 191 
                  Dim rsTemp
189
192 
 
190 
	Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PV.PKG_ID = PKG.PKG_ID AND PV.PV_ID ="& Request("pv_id") &"", cint(0))
 193 
                  Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT * FROM PACKAGE_VERSIONS PV, PACKAGES PKG WHERE PV.PKG_ID = PKG.PKG_ID AND PV.PV_ID ="& Request("pv_id") &"", cint(0))
191 
	Response.Write("<input name=""pkg_version"" type=""text"" class=""body_txt"" value="& rsTemp("pkg_name") &" size=70 disabled>")
 194 
                  Response.Write("<input name=""pkg_version"" type=""text"" class=""body_txt"" value="& rsTemp("pkg_name") &" size=70 disabled>")
192 
	rsTemp.Close
 195 
                  rsTemp.Close
193 
	Set rsTemp = nothing
196 
                  Set rsTemp = nothing
- 
 
 197 
                  %>
194 
	%></td>
 198 
               </td>
195 
  </tr>
 199 
            </tr>
196 
  <tr>
 200 
            <tr>
197 
    <td><span class="body_txt">Command Interface</span></td>
 201 
               <td><span class="body_txt">Command Interface</span></td>
198 
    <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
 202 
               <td><input name="cmdInterface" type="text" class="body_txt" value="<%=cmdInterface%>" size=80></td>
199 
  </tr>
 203 
            </tr>
200 
  <tr>
 204 
            <tr>
201 
    <td><span class="body_txt">Is Interface</span></td>
 205 
               <td><span class="body_txt">Is Interface</span></td>
202 
    <td><input type="checkbox" name="isInterface">
 206 
               <td><input type="checkbox" name="isInterface">
203 
      <span class="body_txt">(Checked If True)</span> </td>
 207 
                  <span class="body_txt">(Checked If True)</span>
- 
 
 208 
               </td>
204 
  </tr>
 209 
            </tr>
205 
  <tr>
 210 
            <tr>
206 
    <td><span class="body_txt">Package Owner</span></td>
 211 
               <td><span class="body_txt">Package Owner</span></td>
207 
    <td><input name="pkgOwner" type="text" class="body_txt" value="<%=pkgOwner%>">
 212 
               <td><input name="pkgOwner" type="text" class="body_txt" value="<%=pkgOwner%>"></td>
208 
	</td>
 - 
 
209 
  </tr>
 213 
            </tr>
210 
  <tr>
 214 
            <tr>
211 
    <td>&nbsp;</td>
 215 
               <td>&nbsp;</td>
212 
    <td>&nbsp;</td>
 216 
               <td>&nbsp;</td>
213 
  </tr>
217 
            </tr>
214 
</table>
218 
         </table>
215 
</td>
 219 
      </td>
216 
  </tr>
 220 
   </tr>
217 
  <%=objPMod.ComposeHiddenTags()%>
 221 
   <%=objPMod.ComposeHiddenTags()%>
218 
  <input type="hidden" name="action" value="true">
 222 
   <input type="hidden" name="action" value="true">
219 
 
 - 
 
220
- 
 
221 
<%
 223 
   <%
222 
Call objFormComponent.FormEnd()
 224 
   Call objFormComponent.FormEnd()
223 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 225 
   '-- FROM END ----------------------------------------------------------------------------------------------------------------
224 
%>
 226 
   %>
225 
</table>
 227 
</table>
226 
</body>
 228 
</body>
227 
</html>
 229 
</html>
228 
<%
 230 
<%
229 
'------------ RUN AFTER PAGE RENDER -----------
 231 
'------------ RUN AFTER PAGE RENDER -----------