Subversion Repositories DevTools

Rev

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

Rev 5181 Rev 5207
Line 27... Line 27...
27 
<!--#include file="_access_control_project.asp"-->
 27 
<!--#include file="_access_control_project.asp"-->
28 
<%
 28 
<%
29 
'------------ Variable Definition -------------
 29 
'------------ Variable Definition -------------
30 
Dim objSortHelper
 30 
Dim objSortHelper
31 
Dim rsQry
 31 
Dim rsQry
32 
Dim State
 - 
 
33 
Dim ctrlDisabled, bCanEdit
 32 
Dim ctrlDisabled, bCanEdit
34 
Dim returnUrl
 33 
Dim returnUrl
35 
 
 34 
 
36 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
37 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
Line 84... Line 83...
84 
      outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
 83 
      outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
85 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
 84 
      outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
86 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
 85 
      outobjDetails.Item ("owner_email") = rsQry("owner_email")
87 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
 86 
      outobjDetails.Item ("product_state_used") = rsQry("product_state_used")
88 
      outobjDetails.Item ("build_age") = rsQry("build_age")
 87 
      outobjDetails.Item ("build_age") = rsQry("build_age")
- 
 
 88 
      outobjDetails.Item ("lxr") = rsQry("lxr")
89 
      If rsQry("assoc_mass_ref") <> "" Then
 89 
      If rsQry("assoc_mass_ref") <> "" Then
90 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
 90 
      outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
91 
      End If
 91 
      End If
92 
   Else
 92 
   Else
93 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
 93 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. nRtagId="& nRtagId
Line 99... Line 99...
99 
End Sub
 99 
End Sub
100 
'--------------------------------------------------------------------------------------------------------------------------
 100 
'--------------------------------------------------------------------------------------------------------------------------
101 
Sub UpdateReleaseDetails ()
 101 
Sub UpdateReleaseDetails ()
102 
   On Error Resume Next
 102 
   On Error Resume Next
103 
 
 103 
 
- 
 
 104 
   Dim State
104 
   If request("product_state_used") = "on" Then
 105 
   If request("product_state_used") = "on" Then State = "Y" Else State = NULL
- 
 
 106 
 
105 
      State = "Y"
 107 
   Dim lxrState
106 
   Else
 - 
 
107 
      State = NULL
 108 
   If Request("lxr") = "on" Then lxrState = "Y" Else lxrState = "N"
108 
   End If
 - 
 
109 
 
 109 
 
110 
   OraDatabase.Parameters.Add "RTAG_ID",            Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 110 
   OraDatabase.Parameters.Add "RTAG_ID",            Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
111 
   OraDatabase.Parameters.Add "RTAG_NAME",          Request("rtag_name"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
 111 
   OraDatabase.Parameters.Add "RTAG_NAME",          Request("rtag_name"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
112 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",   Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 112 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",   Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
113 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 113 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
Line 115... Line 115...
115 
   OraDatabase.Parameters.Add "USER_ID",            objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 115 
   OraDatabase.Parameters.Add "USER_ID",            objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
116 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",     Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
 116 
   OraDatabase.Parameters.Add "PARENT_RTAG_ID",     Request("parent_rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
117 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 117 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
118 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
 118 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
119 
   OraDatabase.Parameters.Add "BUILD_AGE",          Request("build_age"),   ORAPARM_INPUT, ORATYPE_NUMBER
 119 
   OraDatabase.Parameters.Add "BUILD_AGE",          Request("build_age"),   ORAPARM_INPUT, ORATYPE_NUMBER
120 
 
 - 
 
- 
 
 120 
   OraDatabase.Parameters.Add "LXR",                lxrState,   ORAPARM_INPUT, ORATYPE_CHAR
121 
   objEH.TryORA ( OraSession )
 121 
   objEH.TryORA ( OraSession )
122 
 
 122 
 
123 
   OraDatabase.ExecuteSQL _
 123 
   OraDatabase.ExecuteSQL _
124 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( :RTAG_ID, :RTAG_NAME, :RTAG_DESCRIPTION, :PARENT_RTAG_ID, :MASSREF_RTAG_ID, :CONFIG_SPEC_BRANCH, :OWNER_EMAIL, :USER_ID, :STATE, :BUILD_AGE );   END;"
 124 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( " &_
- 
 
 125 
               " :RTAG_ID, " &_
- 
 
 126 
               " :RTAG_NAME," &_
- 
 
 127 
               " :RTAG_DESCRIPTION," &_
- 
 
 128 
               " :PARENT_RTAG_ID," &_
- 
 
 129 
               " :MASSREF_RTAG_ID," &_
- 
 
 130 
               " :CONFIG_SPEC_BRANCH," &_
- 
 
 131 
               " :OWNER_EMAIL," &_
- 
 
 132 
               " :USER_ID," &_
- 
 
 133 
               " :STATE," &_
- 
 
 134 
               " :BUILD_AGE," &_
- 
 
 135 
               " :LXR" &_
- 
 
 136 
   "); END;"
125 
 
 137 
 
126 
   objEH.CatchORA ( OraSession )
 138 
   objEH.CatchORA ( OraSession )
127 
 
 139 
 
128 
   OraDatabase.Parameters.Remove "RTAG_ID"
 140 
   OraDatabase.Parameters.Remove "RTAG_ID"
129 
   OraDatabase.Parameters.Remove "RTAG_NAME"
 141 
   OraDatabase.Parameters.Remove "RTAG_NAME"
Line 133... Line 145...
133 
   OraDatabase.Parameters.Remove "USER_ID"
 145 
   OraDatabase.Parameters.Remove "USER_ID"
134 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
 146 
   OraDatabase.Parameters.Remove "PARENT_RTAG_ID"
135 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
 147 
   OraDatabase.Parameters.Remove "MASSREF_RTAG_ID"
136 
   OraDatabase.Parameters.Remove "STATE"
 148 
   OraDatabase.Parameters.Remove "STATE"
137 
   OraDatabase.Parameters.Remove "BUILD_AGE"
 149 
   OraDatabase.Parameters.Remove "BUILD_AGE"
- 
 
 150 
   OraDatabase.Parameters.Remove "LXR"
138 
 
 151 
 
139 
End Sub
 152 
End Sub
140 
'--------------------------------------------------------------------------------------------------------------------------
 153 
'--------------------------------------------------------------------------------------------------------------------------
141 
%>
 154 
%>
142 
<%
 155 
<%
Line 268... Line 281...
268 
                        <td valign="top" nowrap class="form_iname">Comments</td>
 281 
                        <td valign="top" nowrap class="form_iname">Comments</td>
269 
                        <td valign="top"><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue( "rtag_description", objFormCollector.Item("description") ), 10, 60, "class='form_ivalue'" )%></td>
 282 
                        <td valign="top"><%=objFormComponent.TextArea ( "rtag_description", objForm.GetValue( "rtag_description", objFormCollector.Item("description") ), 10, 60, "class='form_ivalue'" )%></td>
270 
                        <td valign="top"><%=objForm.Validate ("rtag_description")%></td>
 283 
                        <td valign="top"><%=objForm.Validate ("rtag_description")%></td>
271 
                     </tr>
 284 
                     </tr>
272 
                     <tr>
 285 
                     <tr>
273 
                        <td width="19%" valign="top" nowrap class="form_iname">Clearcase Support Profile Branch</td>
 286 
                        <td valign="top" nowrap class="form_iname">Clearcase Support Profile Branch</td>
274 
 
 287 
 
275 
                        <td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "config_spec_branch", objForm.GetValue( "config_spec_branch", objFormCollector.Item("config_spec_branch") ), "class='form_ivalue' size='60'" )%></td>
 288 
                        <td valign="top" nowrap><%=objFormComponent.TextBox ( "config_spec_branch", objForm.GetValue( "config_spec_branch", objFormCollector.Item("config_spec_branch") ), "class='form_ivalue' size='60'" )%></td>
276 
                        <td width="9%" valign="top"><%=objForm.Validate ("config_spec_branch")%></td>
 289 
                        <td valign="top"><%=objForm.Validate ("config_spec_branch")%></td>
277 
                     </tr>
 290 
                     </tr>
278 
                     <tr>
 291 
                     <tr>
279 
                        <td width="19%" valign="top" nowrap class="form_iname">Autobuild Notification Emails</td>
 292 
                        <td valign="top" nowrap class="form_iname">Autobuild Notification Emails</td>
280 
 
 293 
 
281 
                        <td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "owner_email", objForm.GetValue( "owner_email", objFormCollector.Item("owner_email") ), "class='form_ivalue' size='60'" )%></td>
 294 
                        <td valign="top" nowrap><%=objFormComponent.TextBox ( "owner_email", objForm.GetValue( "owner_email", objFormCollector.Item("owner_email") ), "class='form_ivalue' size='60'" )%></td>
282 
                        <td width="9%" valign="top"></td>
 295 
                        <td valign="top"></td>
283 
                     </tr>
 296 
                     </tr>
284 
                     <tr>
 297 
                     <tr>
285 
                        <%If objFormCollector.Item("proj_id") <> 2 Then%>
 298 
                        <%If objFormCollector.Item("proj_id") <> 2 Then%>
286 
                           <td nowrap class="form_iname" valign="top">Associated MASS REF </td>
 299 
                           <td nowrap class="form_iname" valign="top">Associated MASS REF </td>
287 
                           <td valign="top" nowrap class="form_iname">
 300 
                           <td valign="top" nowrap class="form_iname">
Line 303... Line 316...
303 
                           </td>
 316 
                           </td>
304 
                           <td valign="top"></td>
 317 
                           <td valign="top"></td>
305 
                        <%End If%>
 318 
                        <%End If%>
306 
                     </tr>
 319 
                     </tr>
307 
                     <tr>
 320 
                     <tr>
308 
                        <td width="19%" valign="top" nowrap class="form_iname">Configured To Use Product States</td>
 321 
                        <td valign="top" nowrap class="form_iname">Configured To Use Product States</td>
309 
                        <%If IsNull(objFormCollector.Item("product_state_used")) Then%>
 322 
                        <%If IsNull(objFormCollector.Item("product_state_used")) Then%>
310 
                           <td valign="top"><input type="checkbox" name="product_state_used" <%=ctrlDisabled%>></td>
 323 
                           <td valign="top"><input type="checkbox" name="product_state_used" <%=ctrlDisabled%>></td>
311 
                        <%Else%>
 324 
                        <%Else%>
312 
                           <td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td>
 325 
                           <td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td>
313 
                        <%End If%>
 326 
                        <%End If%>
314 
                        <td width="9%" valign="top"></td>
 327 
                        <td valign="top"></td>
- 
 
 328 
                     </tr>
- 
 
 329 
 
- 
 
 330 
                     <tr>
- 
 
 331 
                        <td valign="top" nowrap class="form_iname">Build Age before warning</td>
- 
 
 332 
 
- 
 
 333 
                        <td valign="top" nowrap><%=objFormComponent.TextBox ( "build_age", objForm.GetValue( "build_age", objFormCollector.Item("build_age") ), "class='form_ivalue' size='5'" )%></td>
- 
 
 334 
                        <td valign="top"></td>
- 
 
 335 
 
315 
                     </tr>
 336 
                     </tr>
316 
 
 337 
 
317 
                     <tr>
 338 
                     <tr>
318 
                        <td width="19%" valign="top" nowrap class="form_iname">Build Age before warning</td>
 339 
                        <td valign="top" nowrap class="form_iname">LXR Support</td>
319 
 
 340 
 
- 
 
 341 
                        <td valign="top" nowrap>
320 
                        <td width="72%" valign="top" nowrap><%=objFormComponent.TextBox ( "build_age", objForm.GetValue( "build_age", objFormCollector.Item("build_age") ), "class='form_ivalue' size='5'" )%></td>
 342 
                            <input type="checkbox" name="lxr" <%=iif(objForm.GetValue( "lxr", objFormCollector.Item("lxr") ) = "Y", "checked","")%> <%=ctrlDisabled%>>
- 
 
 343 
                        </td>
321 
                        <td width="9%" valign="top"></td>
 344 
                        <td valign="top"></td>
322 
 
 345 
 
323 
                     </tr>
 346 
                     </tr>
324 
 
 347 
 
325 
 
 348 
 
326 
                     <tr>
 349 
                     <tr>