Subversion Repositories DevTools

Rev

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

Rev 5648 Rev 5671
Line 271... Line 271...
271
End Sub
271
End Sub
272
'----------------------------------------------------------------------------------------------------------------------
272
'----------------------------------------------------------------------------------------------------------------------
273
Sub RenderRippleTypeCombo( cRippleType, cDLocked )
273
Sub RenderRippleTypeCombo( cRippleType, cDLocked )
274
 
274
 
275
   Dim isEditable
275
   Dim isEditable
-
 
276
   Dim ii
-
 
277
   Dim bFlag
276
 
278
 
277
   ' DEVI-49267 - ripple type needs to be changeable by team leaders post release so the permission constraint on
279
   ' DEVI-49267 - ripple type needs to be changeable by team leaders post release so the permission constraint on
278
   ' this is relaxed to non-critical info level (See definition of Is_Page_Editable() in common_subs.asp)
280
   ' this is relaxed to non-critical info level (See definition of Is_Page_Editable() in common_subs.asp)
279
   isEditable = Is_Page_Editable ( isDLocked )
281
   isEditable = Is_Page_Editable ( isDLocked )
280
 
282
 
-
 
283
 
281
   Query_String = "select * from ripple_field_states"
284
   If IsNull(cRippleType) Then
-
 
285
    cRippleType = "b"
-
 
286
   End If
-
 
287
 
282
 
288
 
283
   If (isEditable) Then
289
   If (isEditable) Then
284
      Response.Write "<select name='ripple_type_combo' id='rtc' class='form_item' onChange='changeToRippleType(this.options[this.selectedIndex].value)'>"
290
      Response.Write "<select name='ripple_type_combo' id='rtc' class='form_item' onChange='changeToRippleType(this.options[this.selectedIndex].value)'>"
285
   Else
291
   Else
286
      Response.Write "<select name='ripple_type_combo' id='rtc' class='form_item' disabled>"
292
      Response.Write "<select name='ripple_type_combo' id='rtc' class='form_item' disabled>"
287
   End If
293
   End If
288
 
294
 
289
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
295
   For ii=0 to ubound(rippleFieldValues)
-
 
296
      Dim val, name, selected
290
 
297
 
291
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
298
      val = rippleFieldValues(ii)
292
      If cRippleType = rsTemp.Fields("state_acronym") Then
299
      name = rippleFieldName(val, bFlag)
293
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") &"</option>"
-
 
294
      ElseIf IsNull(cRippleType) AND rsTemp.Fields("state_acronym") = "b" Then 'If nothing selected, select Build Number
300
      selected = iif(cRippleType = val, "selected", "")
295
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"' selected>"& rsTemp.Fields("state_name") & "</option>"
-
 
296
      Else
301
 
297
         Response.write "<option value='"& rsTemp.Fields("state_acronym") &"'>"& rsTemp.Fields("state_name") & "</option>"
302
      Response.write "<option value='"& val &"' "& selected &">"& name &"</option>"
298
      End If
-
 
299
      rsTemp.MoveNext
-
 
300
   WEnd
-
 
301
 
303
 
302
   rsTemp.Close()
304
   Next
303
   Set rsTemp = nothing
-
 
304
 
305
 
305
   Response.Write "</select>"
306
   Response.Write "</select>"
306
 
307
 
307
End Sub
308
End Sub
308
'------------------------------------------------------------------------------------------------------------------------------------
309
'------------------------------------------------------------------------------------------------------------------------------------
Line 530... Line 531...
530
      <tr>
531
      <tr>
531
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
532
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
532
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
533
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
533
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" AND isNotSdk Then%>
534
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" AND isNotSdk Then%>
534
               <tr>
535
               <tr>
535
                  <td>&nbsp;</td>
-
 
536
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>
536
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Pegged Version?<%=Quick_Help ( "pegged_version" )%></td>
537
                  <%
537
                  <%
538
                  Dim FRpeggedYES, FRpeggedNO, FRpegDisabled
538
                  Dim FRpeggedYES, FRpeggedNO, FRpegDisabled
539
 
539
 
540
                  FRpeggedYES = ""
540
                  FRpeggedYES = ""
Line 574... Line 574...
574
                  </td>
574
                  </td>
575
               </tr>
575
               </tr>
576
               <%End If%>
576
               <%End If%>
577
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
577
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
578
               <tr>
578
               <tr>
579
                  <td>&nbsp;</td>
-
 
580
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Advisory Ripple Version?<%=Quick_Help ( "advisory_ripple_version" )%></td>
579
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Advisory Ripple Version?<%=Quick_Help ( "advisory_ripple_version" )%></td>
581
                  <%
580
                  <%
582
                  Dim FRadvripYES, FRadvripNO, FRadvripDisabled
581
                  Dim FRadvripYES, FRadvripNO, FRadvripDisabled
583
 
582
 
584
                  FRadvripYES = ""
583
                  FRadvripYES = ""
Line 619... Line 618...
619
 
618
 
620
               </tr>
619
               </tr>
621
               <%End If%>
620
               <%End If%>
622
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
621
               <%If NOT IsNull(parRtag_id) AND parRtag_id <> "" Then%>
623
               <tr>
622
               <tr>
624
                  <td>&nbsp;</td>
-
 
625
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td>
623
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Build Inclusion?<%=Quick_Help ( "ripple_build" )%></td>
626
                  <%
624
                  <%
627
                  FRripplebuildYES = ""
625
                  FRripplebuildYES = ""
628
                  FRripplebuildNO = ""
626
                  FRripplebuildNO = ""
629
                  ' disabled="disabled" indicates the pv has been excluded indirectly
627
                  ' disabled="disabled" indicates the pv has been excluded indirectly
Line 670... Line 668...
670
                  </td>
668
                  </td>
671
               </tr>
669
               </tr>
672
               <%End If%>
670
               <%End If%>
673
               <%If isNotSdk Then %>
671
               <%If isNotSdk Then %>
674
               <tr>
672
               <tr>
675
                  <td>&nbsp;</td>
-
 
676
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td>
673
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Ripple Type?<%=Quick_Help ( "ripple_type" )%></td>
677
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
674
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
678
                    &nbsp;&nbsp;<% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%>&nbsp;&nbsp;
675
                    &nbsp;&nbsp;<% Call RenderRippleTypeCombo( objFormCollector.Item("ripple_field"), isDLocked )%>&nbsp;&nbsp;
679
                  </td>
676
                  </td>
680
                  <td background="images/bg_form_lightbluedark.gif">
677
                  <td background="images/bg_form_lightbluedark.gif">
Line 687... Line 684...
687
                     </font></b>
684
                     </font></b>
688
                  </td>
685
                  </td>
689
               </tr>
686
               </tr>
690
               <%End If%>
687
               <%End If%>
691
               <tr id="limits_row" style="visibility:hidden; position:static">
688
               <tr id="limits_row" style="visibility:hidden; position:static">
692
                  <td>&nbsp;</td>
-
 
693
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Version Field Limits</td>
689
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Version Field Limits</td>
694
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
690
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt" align="right">
695
                     Major&nbsp;&nbsp;<input name="Major" id="Major" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("major_limit")%>">&nbsp;&nbsp;<br>
691
                     Major&nbsp;&nbsp;<input name="Major" id="Major" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("major_limit")%>">&nbsp;&nbsp;<br>
696
                     Minor&nbsp;&nbsp;<input name="Minor" id="Minor" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("minor_limit")%>">&nbsp;&nbsp;<br>
692
                     Minor&nbsp;&nbsp;<input name="Minor" id="Minor" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("minor_limit")%>">&nbsp;&nbsp;<br>
697
                     Patch&nbsp;&nbsp;<input name="Patch" id="Patch" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("patch_limit")%>">&nbsp;&nbsp;<br>
693
                     Patch&nbsp;&nbsp;<input name="Patch" id="Patch" type="text" class="form_item" size="8" value="<%=objFormCollector.Item("patch_limit")%>">&nbsp;&nbsp;<br>