Subversion Repositories DevTools

Rev

Rev 6181 | Rev 6579 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6181 Rev 6543
Line 59... Line 59...
59 
 
 59 
 
60 
'----------------------------------------------
 60 
'----------------------------------------------
61 
%>
 61 
%>
62 
<%
 62 
<%
63 
'--------------------------------------------------------------------------------------------------------------------------
 63 
'--------------------------------------------------------------------------------------------------------------------------
- 
 
 64 
' Clean up a check box value to True or False
- 
 
 65 
Function CheckBoxValue( val )
- 
 
 66 
    If IsNull(val) Then
- 
 
 67 
        CheckBoxValue = FALSE
- 
 
 68 
    ElseIf Ucase(val) = "Y" Then
- 
 
 69 
        CheckBoxValue = TRUE
- 
 
 70 
    ElseIf Ucase(val) = "ON" Then
- 
 
 71 
        CheckBoxValue = TRUE
- 
 
 72 
    Else
- 
 
 73 
        CheckBoxValue = FALSE
- 
 
 74 
    End If
- 
 
 75 
End Function
- 
 
 76 
'--------------------------------------------------------------------------------------------------------------------------
64 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
 77 
Sub GetFormDetails ( nRtagId, ByRef outobjDetails )
65 
   Dim rsQry, query
 78 
   Dim rsQry, query
66 
 
 79 
 
67 
   OraDatabase.Parameters.Add "RTAG_ID",  nRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
 80 
   OraDatabase.Parameters.Add "RTAG_ID",  nRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
68 
 
 81 
 
Line 99... Line 112...
99 
End Sub
 112 
End Sub
100 
'--------------------------------------------------------------------------------------------------------------------------
 113 
'--------------------------------------------------------------------------------------------------------------------------
101 
Sub UpdateReleaseDetails ()
 114 
Sub UpdateReleaseDetails ()
102 
   On Error Resume Next
 115 
   On Error Resume Next
103 
 
 116 
 
104 
   Dim State
 117 
   Dim State    : State    = Iif(CheckBoxValue(request("product_state_used")),"Y",NULL)
105 
   If request("product_state_used") = "on" Then State = "Y" Else State = NULL
 118 
   Dim lxrState : lxrState = Iif(CheckBoxValue(request("lxr")),"Y","N")
106 
 
 - 
 
107 
   Dim lxrState
 119 
   Dim bAge     : bAge = Request("build_age")
108 
   If Request("lxr") = "on" Then lxrState = "Y" Else lxrState = "N"
 120 
   If bAge = 0 Then bAge = NULL
109 
 
 121 
 
110 
   OraDatabase.Parameters.Add "RTAG_ID",            Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 122 
   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
 123 
   OraDatabase.Parameters.Add "RTAG_NAME",          Trim(Request("rtag_name")),      ORAPARM_INPUT, ORATYPE_VARCHAR2
112 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",   Request("rtag_description"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 124 
   OraDatabase.Parameters.Add "RTAG_DESCRIPTION",   Trim(Request("rtag_description")), ORAPARM_INPUT, ORATYPE_VARCHAR2
113 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Request("config_spec_branch"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 125 
   OraDatabase.Parameters.Add "CONFIG_SPEC_BRANCH", Trim(Request("config_spec_branch")), ORAPARM_INPUT, ORATYPE_VARCHAR2
114 
   OraDatabase.Parameters.Add "OWNER_EMAIL",        Request("owner_email"),    ORAPARM_INPUT, ORATYPE_VARCHAR2
 126 
   OraDatabase.Parameters.Add "OWNER_EMAIL",        Trim(Request("owner_email")),    ORAPARM_INPUT, ORATYPE_VARCHAR2
115 
   OraDatabase.Parameters.Add "USER_ID",            objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 127 
   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
 128 
   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
 129 
   OraDatabase.Parameters.Add "MASSREF_RTAG_ID",    Request("massref_rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
118 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
 130 
   OraDatabase.Parameters.Add "STATE",              State,   ORAPARM_INPUT, ORATYPE_VARCHAR
119 
   OraDatabase.Parameters.Add "BUILD_AGE",          Request("build_age"),   ORAPARM_INPUT, ORATYPE_NUMBER
 131 
   OraDatabase.Parameters.Add "BUILD_AGE",          bAge,   ORAPARM_INPUT, ORATYPE_NUMBER
120 
   OraDatabase.Parameters.Add "LXR",                lxrState,   ORAPARM_INPUT, ORATYPE_CHAR
 132 
   OraDatabase.Parameters.Add "LXR",                lxrState,   ORAPARM_INPUT, ORATYPE_CHAR
121 
   objEH.TryORA ( OraSession )
 133 
   objEH.TryORA ( OraSession )
122 
 
 134 
 
123 
   OraDatabase.ExecuteSQL _
 135 
   OraDatabase.ExecuteSQL _
124 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( " &_
 136 
   "BEGIN   PK_RELEASE.UPDATE_RELEASE ( " &_
Line 156... Line 168...
156 
'------------ RUN BEFORE PAGE RENDER ----------
 168 
'------------ RUN BEFORE PAGE RENDER ----------
157 
' --- Get Form details from DB ---
 169 
' --- Get Form details from DB ---
158 
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
 170 
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
159 
 
 171 
 
160 
' --- Load Validation Rules ---
 172 
' --- Load Validation Rules ---
161 
objForm.UpdateRules ("id='rtag_name' IsRequired='Y'")
 173 
objForm.UpdateRules ("id='rtag_name' IsRequired='Y' IsName='Y' MinStringLength='2' MaxStringLength='150'")
162 
objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")
 174 
objForm.UpdateRules ("id='rtag_description' IsRequired='Y' MaxStringLength='4000' MinStringLength='10'")
163 
objForm.UpdateRules ("id='config_spec_branch' IsRequired='N' MaxStringLength='4000' MinStringLength='10'")
 175 
objForm.UpdateRules ("id='config_spec_branch' IsRequired='N' IsName='Y' MaxStringLength='4000' MinStringLength='10'")
- 
 
 176 
objForm.UpdateRules ("id='build_age' IsRequired='N' IsNumeric='Y' MinNumericValue='0' MaxNumericValue='365'")
164 
 
 177 
 
165 
' --- Enter Form Validation Rule Changes here... ----
 178 
' --- Enter Form Validation Rule Changes here... ----
166 
'----------------------------------------------------
 179 
'----------------------------------------------------
167 
 
 180 
 
168 
' --- RUN onPostBack ---
 181 
' --- RUN onPostBack ---
Line 245... Line 258...
245 
                  <!--#include file="messages/_msg_inline.asp"-->
 258 
                  <!--#include file="messages/_msg_inline.asp"-->
246 
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 259 
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
247 
                  <br>
 260 
                  <br>
248 
                  <table width="100%"  border="0" cellspacing="2" cellpadding="0">
 261 
                  <table width="100%"  border="0" cellspacing="2" cellpadding="0">
249 
                     <tr>
 262 
                     <tr>
250 
                        <td width="19%" valign="top" nowrap class="form_iname">Release Name </td>
 263 
                        <td valign="top" nowrap class="form_iname">Release Name </td>
251 
                        <td width="72%" valign="top" nowrap>
 264 
                        <td valign="top" nowrap>
252 
                           <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%>
 265 
                           <%=objFormComponent.TextBox ( "rtag_name", objForm.GetValue( "rtag_name", objFormCollector.Item("rtag_name") ), "class='form_ivalue' size='60'" )%>
253 
                        </td>
 266 
                        </td>
254 
                        <td width="9%" valign="top"><%=objForm.Validate ("rtag_name")%></td>
 267 
                        <td valign="top"><%=objForm.Validate ("rtag_name")%></td>
255 
                     </tr>
 268 
                     </tr>
256 
                     <tr>
 269 
                     <tr>
257 
                        <td nowrap class="form_iname" valign="top">Parent Release </td>
 270 
                        <td nowrap class="form_iname" valign="top">Parent Release </td>
258 
                        <td valign="top" nowrap class="form_iname">
 271 
                        <td valign="top" nowrap class="form_iname">
259 
                           <%
 272 
                           <%
Line 324... Line 337...
324 
                           <td valign="top"></td>
 337 
                           <td valign="top"></td>
325 
                        <%End If%>
 338 
                        <%End If%>
326 
                     </tr>
 339 
                     </tr>
327 
                     <tr>
 340 
                     <tr>
328 
                        <td valign="top" nowrap class="form_iname">Configured To Use Product States</td>
 341 
                        <td valign="top" nowrap class="form_iname">Configured To Use Product States</td>
329 
                        <%If IsNull(objFormCollector.Item("product_state_used")) Then%>
 - 
 
330 
                           <td valign="top"><input type="checkbox" name="product_state_used" <%=ctrlDisabled%>></td>
 - 
 
331 
                        <%Else%>
 - 
 
332 
                           <td valign="top"><input type="checkbox" name="product_state_used" checked <%=ctrlDisabled%>></td>
 342 
                        <td valign="top"><input type="checkbox" name="product_state_used" <%=iif(CheckBoxValue(objForm.GetValue( "product_state_used", objFormCollector.Item("product_state_used") )), "checked ","")%><%=ctrlDisabled%>></td>
333 
                        <%End If%>
 - 
 
334 
                        <td valign="top"></td>
 343 
                        <td valign="top"></td>
335 
                     </tr>
 344 
                     </tr>
336 
 
 345 
 
337 
                     <tr>
 346 
                     <tr>
338 
                        <td valign="top" nowrap class="form_iname">Build Age before warning</td>
 347 
                        <td valign="top" nowrap class="form_iname">Build Age before warning</td>
339 
 
 348 
 
- 
 
 349 
                        <td valign="top" nowrap>
340 
                        <td valign="top" nowrap><%=objFormComponent.TextBox ( "build_age", objForm.GetValue( "build_age", objFormCollector.Item("build_age") ), "class='form_ivalue' size='5'" )%></td>
 350 
                            <%=objFormComponent.TextBox ( "build_age", objForm.GetValue( "build_age", objFormCollector.Item("build_age") ), "class='form_ivalue' size='5'" )%></td>
341 
                        <td valign="top"></td>
 351 
                        <td valign="top"><%=objForm.Validate ("build_age")%></td>
342 
 
 352 
 
343 
                     </tr>
 353 
                     </tr>
344 
 
 354 
 
345 
                     <tr>
 355 
                     <tr>
346 
                        <td valign="top" nowrap class="form_iname">LXR Support</td>
 356 
                        <td valign="top" nowrap class="form_iname">LXR Support</td>
347 
 
 357 
 
348 
                        <td valign="top" nowrap>
 358 
                        <td valign="top" nowrap>
349 
                            <input type="checkbox" name="lxr"  <%=iif(objForm.GetValue( "lxr", objFormCollector.Item("lxr") ) = "Y", "checked ","")%><%=ctrlDisabled%> >
 359 
                            <input type="checkbox" name="lxr"  <%=iif(CheckBoxValue(objForm.GetValue( "lxr", objFormCollector.Item("lxr") )), "checked ","")%><%=ctrlDisabled%> >
350 
                        </td>
 360 
                        </td>
351 
                        <td valign="top"></td>
 361 
                        <td valign="top"></td>
352 
 
 362 
 
353 
                     </tr>
 363 
                     </tr>
354 
 
 364