Subversion Repositories DevTools

Rev

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

Rev 3959 Rev 4025
Line 459... Line 459...
459 
End Function
 459 
End Function
460 
'----------------------------------------------------------------------------------------------------------------------
 460 
'----------------------------------------------------------------------------------------------------------------------
461 
' Renders the HTML for the build standard addendum drop down list boxes, ie. Prod, Debug, Prod+Debug, Java 1.4, Java 1.5, etc.
 461 
' Renders the HTML for the build standard addendum drop down list boxes, ie. Prod, Debug, Prod+Debug, Java 1.4, Java 1.5, etc.
462 
Sub RenderBuildTypeCombo( nBuildAddendum, nBuildMachine, nBuildStandard )
 462 
Sub RenderBuildTypeCombo( nBuildAddendum, nBuildMachine, nBuildStandard )
463 
 
 463 
 
- 
 
 464 
   If nBuildStandard <> "" Then
464 
   Query_String = "SELECT * FROM build_standards_addendum WHERE bs_id ="& nBuildStandard & " ORDER BY bsa_id DESC"
 465 
       Query_String = "SELECT * FROM build_standards_addendum WHERE bs_id ="& nBuildStandard & " ORDER BY bsa_id DESC"
465 
 
 466 
 
- 
 
 467 
       'Response.Write Query_String
466 
   Response.Write "<select name='build_type_comb_"& nBuildMachine &"' class='form_item'"& disableCriticalSectionEdit &">"
 468 
       Response.Write "<select name='build_type_comb_"& nBuildMachine &"' class='form_item'"& disableCriticalSectionEdit &">"
467 
 
 469 
 
468 
   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
 470 
       Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
469 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 471 
       While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
470 
 
 472 
 
471 
   If nBuildAddendum = rsTemp.Fields("bsa_id") Then
 473 
       If nBuildAddendum = rsTemp.Fields("bsa_id") Then
472 
      Response.write "<option value='"& rsTemp.Fields("bsa_id") &"' selected>"& rsTemp.Fields("bsa_name") &"</option>"
 474 
          Response.write "<option value='"& rsTemp.Fields("bsa_id") &"' selected>"& rsTemp.Fields("bsa_name") &"</option>"
473 
   Else
 475 
       Else
474 
      Response.write "<option value='"& rsTemp.Fields("bsa_id") &"'>"& rsTemp.Fields("bsa_name") &"</option>"
 476 
          Response.write "<option value='"& rsTemp.Fields("bsa_id") &"'>"& rsTemp.Fields("bsa_name") &"</option>"
475 
   End If
 477 
       End If
476 
   rsTemp.MoveNext
 478 
       rsTemp.MoveNext
477 
   WEnd
 479 
       WEnd
478 
   Response.Write "</select>"
 480 
       Response.Write "</select>"
479 
 
 481 
 
480 
   rsTemp.Close()
 482 
       rsTemp.Close()
481 
   Set rsTemp = nothing
 483 
       Set rsTemp = nothing
- 
 
 484 
   End If
482 
End Sub
 485 
End Sub
483 
'----------------------------------------------------------------------------------------------------------------------
 486 
'----------------------------------------------------------------------------------------------------------------------
484 
' Renders the HTML for the Version Control Settings drop down list box
 487 
' Renders the HTML for the Version Control Settings drop down list box
485 
Sub RenderVCSCombo(nTag)
 488 
Sub RenderVCSCombo(nTag)
486 
 
 489 
 
Line 587... Line 590...
587 
      args = args & ",'FRlabel','Subversion Tag','RisSVNTag'"
 590 
      args = args & ",'FRlabel','Subversion Tag','RisSVNTag'"
588 
      If (objFormCollector.Item("build_type") = "M" ) Then
 591 
      If (objFormCollector.Item("build_type") = "M" ) Then
589 
          args = args & ",'FRlabel','Subversion Tag','RisSVNPegTag'"
 592 
          args = args & ",'FRlabel','Subversion Tag','RisSVNPegTag'"
590 
      End If
 593 
      End If
591 
   End If
 594 
   End If
- 
 
 595 
   args = args & ",'pv_description','Package Description','RminLength:11'"
- 
 
 596 
   args = args & ",'pv_overview','Package Overview','RminLength:11'"
592 
   on_submit_validation = "onSubmit=""MM_validateForm(" & args & "); return document.MM_returnValue"""
 597 
   on_submit_validation = "onSubmit=""MM_validateForm(" & args & "); return document.MM_returnValue"""
593 
 
 598 
 
594 
End Sub
 599 
End Sub
595 
'----------------------------------------------------------------------------------------------------------------------
 600 
'----------------------------------------------------------------------------------------------------------------------
596 
' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database
 601 
' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database
Line 643... Line 648...
643 
' Dont need the build environment if the is_build_env_required is "N"
 648 
' Dont need the build environment if the is_build_env_required is "N"
644 
If objFormCollector.Item("is_build_env_required") = "N" Then
 649 
If objFormCollector.Item("is_build_env_required") = "N" Then
645 
   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")
 650 
   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")
646 
End If
 651 
End If
647 
 
 652 
 
- 
 
 653 
' Test for late entry of data
- 
 
 654 
'objForm.UpdateRules ("id='FRpath' IsRequired='N'")
- 
 
 655 
'objForm.UpdateRules ("id='FRlabel' IsRequired='N'")
- 
 
 656 
'objForm.UpdateRules ("id='pv_description' IsRequired='N'")
- 
 
 657 
'objForm.UpdateRules ("id='pv_overview' IsRequired='N'")
- 
 
 658 
 
648 
 
 659 
 
649 
 
 660 
 
650 
'--- Access Control Setup ------------
 661 
'--- Access Control Setup ------------
651 
pageIsEditable = Is_Page_Editable ( objFormCollector.Item ("dlocked") )
 662 
pageIsEditable = Is_Page_Editable ( objFormCollector.Item ("dlocked") )
652 
criticalSectionIsEditable = Is_Critical_Section_Editable ( objFormCollector.Item("dlocked") )
 663 
criticalSectionIsEditable = Is_Critical_Section_Editable ( objFormCollector.Item("dlocked") )
Line 1055... Line 1066...
1055 
 
 1066 
 
1056 
               <tr>
 1067 
               <tr>
1057 
                  <td>&nbsp;</td>
 1068 
                  <td>&nbsp;</td>
1058 
                  <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Short Package Description<%=Quick_Help ( "pkg_info_short_desc" )%></td>
 1069 
                  <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Short Package Description<%=Quick_Help ( "pkg_info_short_desc" )%></td>
1059 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
 1070 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1060 
                     <textarea name="pv_description" cols="57" rows="5" class="form_item" id="pv_description"><%=objForm.GetValue( "pv_description", objFormCollector.Item("pv_description") )%></textarea>
 1071 
                     <textarea name="pv_description" cols="57" rows="5" class="form_item" id="pv_description" onchange="strip_whitespace(this);"><%=objForm.GetValue( "pv_description", objFormCollector.Item("pv_description") )%></textarea>
1061 
                  </td>
 1072 
                  </td>
1062 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objForm.Validate ("pv_description")%></td>
 1073 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objForm.Validate ("pv_description")%></td>
1063 
               </tr>
 1074 
               </tr>
1064 
               <tr>
 1075 
               <tr>
1065 
                  <td>&nbsp;</td>
 1076 
                  <td>&nbsp;</td>
1066 
                  <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Package Overview<%=Quick_Help ( "pkg_info_overview" )%></td>
 1077 
                  <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Package Overview<%=Quick_Help ( "pkg_info_overview" )%></td>
1067 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
 1078 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1068 
                     <textarea name="pv_overview" cols="57" rows="10" class="form_item" id="pv_overview"><%=objForm.GetValue( "pv_overview", objFormCollector.Item("pv_overview") )%></textarea>
 1079 
                     <textarea name="pv_overview" cols="57" rows="10" class="form_item" id="pv_overview" onchange="strip_whitespace(this);"><%=objForm.GetValue( "pv_overview", objFormCollector.Item("pv_overview") )%></textarea>
1069 
                  </td>
 1080 
                  </td>
1070 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objForm.Validate ("pv_overview")%></td>
 1081 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objForm.Validate ("pv_overview")%></td>
1071 
               </tr>
 1082 
               </tr>
1072 
 
 1083 
 
1073 
               <tr>
 1084 
               <tr>
Line 1082... Line 1093...
1082 
                  <td>&nbsp;</td>
 1093 
                  <td>&nbsp;</td>
1083 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Build Environment<%=Quick_Help ( "build_environment" )%></td>
 1094 
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Build Environment<%=Quick_Help ( "build_environment" )%></td>
1084 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
 1095 
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1085 
                     <%If objFormCollector.Item("is_build_env_required") = "N" Then%>
 1096 
                     <%If objFormCollector.Item("is_build_env_required") = "N" Then%>
1086 
                        &nbsp;Build Environment not applicable
 1097 
                        &nbsp;Build Environment not applicable
- 
 
 1098 
                     <%Else%>
1087 
                     <%End If%>
 1099 
                     <%End If%>
1088 
 
 - 
 
1089 
                     <div id="divBuildEnv" name="divBuildEnv" style="width:320px; height:150px; overflow: auto; <%If (objFormCollector.Item("is_build_env_required") = "N") Then%>display:none;<%Else%>display:block;<%End If%>">
 1100 
                     <div id="divBuildEnv" name="divBuildEnv" style="width:320px; height:150px; overflow: auto; <%If (objFormCollector.Item("is_build_env_required") = "N") Then%>display:none;<%Else%>display:block;<%End If%>">
1090 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
 1101 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
1091 
                           <tr>
 1102 
                           <tr>
1092 
                              <td bgcolor="#FFFFFF">
 1103 
                              <td bgcolor="#FFFFFF">
1093 
                                 <table width="100%" border="0" cellspacing="0" cellpadding="3">
 1104 
                                 <table width="100%" border="0" cellspacing="0" cellpadding="3">
Line 1121... Line 1132...
1121 
                                       End If
 1132 
                                       End If
1122 
 
 1133 
 
1123 
                                       rowColor = GetRowColor( rowColor )
 1134 
                                       rowColor = GetRowColor( rowColor )
1124 
                                       %>
 1135 
                                       %>
1125 
                                       <tr>
 1136 
                                       <tr>
1126 
                                          <td nowrap class="form_txt" bgcolor="<%=rowColor%>"><input type="checkbox" name="be_id_list" onClick="ToggleDisplay('build_type_<%=rsQry("bm_id")%>');" <%=disableCriticalSectionEdit%> value="<%=rsQry("bm_id")%>" <%=checked%>></td>
 1137 
                                          <td width='1%' nowrap class="form_txt" bgcolor="<%=rowColor%>"><input type="checkbox" name="be_id_list" onClick="ToggleDisplay('build_type_<%=rsQry("bm_id")%>');" <%=disableCriticalSectionEdit%> value="<%=rsQry("bm_id")%>" <%=checked%>></td>
1127 
                                          <td nowrap class="form_txt" bgcolor="<%=rowColor%>"><%=rsQry("bm_name")%></td>
 1138 
                                          <td width='1%' nowrap class="form_txt" bgcolor="<%=rowColor%>"><%=rsQry("bm_name")%></td>
1128 
                                          <td nowrap class="form_txt" bgcolor="<%=rowColor%>"><div id="build_type_<%=rsQry("bm_id")%>" <%=ShowHideBuildType( checked )%>><% Call RenderBuildTypeCombo( rsQry("bsa_id"), rsQry("bm_id"), objFormCollector.Item("bs_id") )%></div></td>
 1139 
                                          <td width='98%' nowrap class="form_txt" bgcolor="<%=rowColor%>">
- 
 
 1140 
                                                <div id="build_type_<%=rsQry("bm_id")%>" <%=ShowHideBuildType( checked )%>>
- 
 
 1141 
                                                    <% Call RenderBuildTypeCombo( rsQry("bsa_id"), rsQry("bm_id"), objFormCollector.Item("bs_id") )%>
- 
 
 1142 
                                                </div>
- 
 
 1143 
                                          </td>
1129 
                                          <%If checked = "checked" AND rsQry("bsa_id") = 0 Then%>
 1144 
                                          <%If checked = "checked" AND rsQry("bsa_id") = 0 Then%>
- 
 
 1145 
                                             <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1130 
                                             <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><td background='images/red_dot.gif'><img src='images/spacer.gif' width='1' height='1'></td><td valign='top'><img src='icons/i_bulet_red.gif' width='4' height='4' hspace='3' vspace='4' border='0' align='absmiddle'></td><td class='val_err'>Required</td></td>
 1146 
                                             <td valign='top' width='1%'  style='vertical-align: middle;'><img src='icons/i_bulet_red.gif' width='4' height='4' hspace='3' vspace='4' border='0' align='absmiddle'></td>
- 
 
 1147 
                                             <td class='val_err'>Required</td></td>
1131 
                                          <%End If%>
 1148 
                                          <%End If%>
1132 
                                       </tr>
 1149 
                                       </tr>
1133 
                                       <%rsQry.MoveNext
 1150 
                                       <%rsQry.MoveNext
1134 
                                    WEnd
 1151 
                                    WEnd
1135 
 
 1152 
 
1136 
                                    rsQry.Close
 1153 
                                    rsQry.Close
1137 
                                    Set rsQry = Nothing
 1154 
                                    Set rsQry = Nothing
1138 
 
 1155 
 
1139 
                                    OraDatabase.Parameters.Remove "PV_ID"
 1156 
                                    OraDatabase.Parameters.Remove "PV_ID"
1140 
                                    %>
 1157 
                                    %>
1141 
                                    <tr>
 - 
 
1142 
                                       <td width="1"></td>
 - 
 
1143 
                                       <td width="1"></td>
 - 
 
1144 
                                       <td width="100%"></td>
 - 
 
1145 
                                    </tr>
 - 
 
1146 
                                 </table>
 1158 
                                 </table>
1147 
                              </td>
 1159 
                              </td>
1148 
                           </tr>
 1160 
                           </tr>
1149 
                        </table>
 1161 
                        </table>
1150 
                     </div>
 1162 
                     </div>