Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 7002
Line 485... Line 485...
485
   WEnd
485
   WEnd
486
   Response.Write "</select>"
486
   Response.Write "</select>"
487
 
487
 
488
   ' Create a hidden combo containing tags instead of names - we can use this to get a tag for a name without
488
   ' Create a hidden combo containing tags instead of names - we can use this to get a tag for a name without
489
   ' doing a database query
489
   ' doing a database query
490
   Response.Write "<div id='div_vcs_tag_combo' name='div_vcs_tag_combo' style='visibility:hidden'   >"
490
   Response.Write "<div id='div_vcs_tag_combo' name='div_vcs_tag_combo' style='visibility:hidden'>"
491
   Response.Write "<select id='vcs_tag_combo' name='vcs_tag_combo' disabled hidden  class='form_item' "& disableCriticalSectionEdit &">"
491
   Response.Write "<select id='vcs_tag_combo' name='vcs_tag_combo' disabled hidden  class='form_item' "& disableCriticalSectionEdit &">"
492
   rsTemp.MoveFirst
492
   rsTemp.MoveFirst
493
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
493
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
494
      Response.write "<option value='"& rsTemp.Fields("tag") &"'>"& rsTemp.Fields("tag") &"</option>"
494
      Response.write "<option value='"& rsTemp.Fields("tag") &"'>"& rsTemp.Fields("tag") &"</option>"
495
      rsTemp.MoveNext
495
      rsTemp.MoveNext
Line 544... Line 544...
544
         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag & "&bs_name=" & parBSName
544
         submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag & "&bs_name=" & parBSName
545
      End If
545
      End If
546
   End If
546
   End If
547
End Sub
547
End Sub
548
'----------------------------------------------------------------------------------------------------------------------
548
'----------------------------------------------------------------------------------------------------------------------
549
Function GetRowColor( sRowColor )
-
 
550
   If sRowColor = "#FFFFFF" Then
-
 
551
      GetRowColor = "#F5F5F5"
-
 
552
   Else
-
 
553
      GetRowColor = "#FFFFFF"
-
 
554
   End If
-
 
555
End Function
-
 
556
'----------------------------------------------------------------------------------------------------------------------
-
 
557
%>
549
%>
558
<%
550
<%
559
'------------------------------- RUN BEFORE PAGE RENDER ----------------------------
551
'------------------------------- RUN BEFORE PAGE RENDER ----------------------------
560
 
552
 
561
Call Get_Form_Details( parPv_id, objFormCollector )
553
Call Get_Form_Details( parPv_id, objFormCollector )
Line 882... Line 874...
882
</head>
874
</head>
883
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
875
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
884
<form id="pkginfo" name="pkginfo" method="post" onSubmit="return document.MM_returnValue;" action="<%=submit_action_url%>" class="form_tight">
876
<form id="pkginfo" name="pkginfo" method="post" onSubmit="return document.MM_returnValue;" action="<%=submit_action_url%>" class="form_tight">
885
   <table border="0" cellspacing="0" cellpadding="2">
877
   <table border="0" cellspacing="0" cellpadding="2">
886
      <tr>
878
      <tr>
887
         <td valign="top" nowrap class="wform_ttl" background="images/bg_form_lightgray.gif">
879
         <td nowrap class="wform_ttl">
888
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
880
            <table width="100%" border="0" cellspacing="1" cellpadding="2" class=lhsGrey>
889
               <tr>
881
               <tr>
890
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
882
                  <td nowrap>Package</td>
891
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objFormCollector.Item("pkg_name") &" "& objFormCollector.Item("pkg_version")%></td>
883
                  <td nowrap><%=objFormCollector.Item("pkg_name") &" "& objFormCollector.Item("pkg_version")%></td>
892
               </tr>
884
               </tr>
893
               <tr>
885
               <tr>
894
                  <td nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Deployable?<%=Quick_Help ( "deployable" )%></td>
886
                  <td nowrap>Deployable?<%=Quick_Help ( "deployable" )%></td>
895
                  <%
887
                  <%
896
                  FRdeployableYES = ""
888
                  FRdeployableYES = ""
897
                  FRdeployableNO = ""
889
                  FRdeployableNO = ""
898
 
890
 
899
                  If objForm.IsPostBack Then
891
                  If objForm.IsPostBack Then
Line 910... Line 902...
910
                        FRdeployableNO = "checked"
902
                        FRdeployableNO = "checked"
911
                     End If
903
                     End If
912
 
904
 
913
                  End If
905
                  End If
914
                  %>
906
                  %>
915
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">Yes<input name="FRdeployable" type="radio" value="1" <%=FRdeployableYES%>>
907
                  <td nowrap>Yes<input name="FRdeployable" type="radio" value="1" <%=FRdeployableYES%>>
916
                  &nbsp;&nbsp;No<input name="FRdeployable" type="radio" value="0" <%=FRdeployableNO%>></td>
908
                  &nbsp;&nbsp;No<input name="FRdeployable" type="radio" value="0" <%=FRdeployableNO%>></td>
917
               </tr>
909
               </tr>
918
               <tr>
910
               <tr>
919
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Version Control System</td>
911
                  <td nowrap>Version Control System</td>
920
                  <td nowrap background="images/bg_form_lightbluedark.gif">
912
                  <td nowrap>
921
                     <% Call RenderVCSCombo(objFormCollector.Item("vcs_tag"))%>
913
                     <% Call RenderVCSCombo(objFormCollector.Item("vcs_tag"))%>
922
                     <%If (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
914
                     <%If (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
923
                        <span class='err_alert'>[Not fully Supported]</span>
915
                        <span class='err_alert'>[Not fully Supported]</span>
924
                     <%End If%>
916
                     <%End If%>
925
                  </td>
917
                  </td>
Line 927... Line 919...
927
 
919
 
928
               <!--- Source Path ---------------------------------------------->
920
               <!--- Source Path ---------------------------------------------->
929
               <%If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then%>
921
               <%If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then%>
930
 
922
 
931
                  <tr>
923
                  <tr>
932
                     <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Source Path<%=Quick_Help ( "src_path" )%></td>
924
                     <td nowrap>Source Path<%=Quick_Help ( "src_path" )%></td>
933
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
925
                     <td nowrap>
934
                        <input name="FRpath" type="text" class="form_item" <%=disableCriticalSectionEdit%> id="FRpath" onchange="replace_back_slashes(this);validateCCPath();" value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>" size="60" maxlength="2000">
926
                        <input name="FRpath" type="text" class="form_item" <%=disableCriticalSectionEdit%> id="FRpath" onchange="replace_back_slashes(this);validateCCPath();" value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>" size="60" maxlength="2000">
935
                        <br>&nbsp;Example: /MASS_Dev_Infra/<%=objFormCollector.Item("pkg_name")%> <br>
927
                        <br>&nbsp;Example: /MASS_Dev_Infra/<%=objFormCollector.Item("pkg_name")%> <br>
936
                        <span class='val_err' id=ccPathErr style='display:none'></span>
928
                        <span class='val_err' id=ccPathErr style='display:none'></span>
937
                     </td>
929
                     </td>
938
                  </tr>
930
                  </tr>
939
               
931
               
940
                  <tr>
932
                  <tr>
941
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Label<%=Quick_Help ( "pkg_label" )%></td>
933
                     <td nowrap>Label<%=Quick_Help ( "pkg_label" )%></td>
942
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
934
                     <td nowrap>
943
                        <%
935
                        <%
944
                        sLabelReadOnly = ""
936
                        sLabelReadOnly = ""
945
                        sDefaultLabel = Default_Label(parPv_id, objFormCollector.Item("build_type"), objFormCollector.Item("change_type"), objFormCollector.Item("pkg_name"), objFormCollector.Item("pkg_version"), objFormCollector.Item("v_ext"))
937
                        sDefaultLabel = Default_Label(parPv_id, objFormCollector.Item("build_type"), objFormCollector.Item("change_type"), objFormCollector.Item("pkg_name"), objFormCollector.Item("pkg_version"), objFormCollector.Item("v_ext"))
946
 
938
 
947
                        If objFormCollector.Item("build_type") = "A" AND NOT criticalSectionIsEditable Then
939
                        If objFormCollector.Item("build_type") = "A" AND NOT criticalSectionIsEditable Then
Line 980... Line 972...
980
                     </td>
972
                     </td>
981
                  </tr>
973
                  </tr>
982
 
974
 
983
               <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then%>
975
               <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then%>
984
                  <tr>
976
                  <tr>
985
                     <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Source Path<%=Quick_Help ( "svn_source_path" )%></td>
977
                     <td nowrap>Source Path<%=Quick_Help ( "svn_source_path" )%></td>
986
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
978
                     <td nowrap>
987
                        <input name="FRpath" type="text" class="form_item" <%=disableCriticalSectionEdit%> id="FRpath" onchange="replace_back_slashes(this);validateSvnPath();" value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>" size="60" maxlength="2000">
979
                        <input name="FRpath" type="text" class="form_item" <%=disableCriticalSectionEdit%> id="FRpath" onchange="replace_back_slashes(this);validateSvnPath();" value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>" size="60" maxlength="2000">
988
                        <table class="form_txt">
980
                        <table>
989
                            <tr>
981
                            <tr>
990
                            <td>Example:</td>
982
                            <td>Example:</td>
991
                            <td>AUPERASVN0X/RepoName/<%=objFormCollector.Item("pkg_name")%>/trunk</td>
983
                            <td>AUPERASVN0X/RepoName/<%=objFormCollector.Item("pkg_name")%>/trunk</td>
992
                            </tr>
984
                            </tr>
993
                        </table>
985
                        </table>
994
                        <span class='val_err' id=svnPathErr style='display:none'></span>
986
                        <span class='val_err' id=svnPathErr style='display:none'></span>
995
                     </td>
987
                     </td>
996
                  </tr>
988
                  </tr>
997
                  <tr>
989
                  <tr>
998
                     <td nowrap valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Tag<%=Quick_Help ( "svn_tag" )%></td>
990
                     <td nowrap  nowrap>Tag<%=Quick_Help ( "svn_tag" )%></td>
999
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
991
                     <td nowrap>
1000
                        <%
992
                        <%
1001
                        sLabelReadOnly = ""
993
                        sLabelReadOnly = ""
1002
                        sDefaultLabel = Default_Label(parPv_id, objFormCollector.Item("build_type"), objFormCollector.Item("change_type"), objFormCollector.Item("pkg_name"), objFormCollector.Item("pkg_version"), objFormCollector.Item("v_ext"))
994
                        sDefaultLabel = Default_Label(parPv_id, objFormCollector.Item("build_type"), objFormCollector.Item("change_type"), objFormCollector.Item("pkg_name"), objFormCollector.Item("pkg_version"), objFormCollector.Item("v_ext"))
1003
 
995
 
1004
                        If objFormCollector.Item("build_type") = "A" AND NOT criticalSectionIsEditable Then
996
                        If objFormCollector.Item("build_type") = "A" AND NOT criticalSectionIsEditable Then
Line 1038... Line 1030...
1038
                            sDefaultLabel = sDefaultLabel & "@1234"
1030
                            sDefaultLabel = sDefaultLabel & "@1234"
1039
                        Else
1031
                        Else
1040
                            sDefaultLabel = sDefaultLabel & "[@1234]"
1032
                            sDefaultLabel = sDefaultLabel & "[@1234]"
1041
                        End If
1033
                        End If
1042
                        %>
1034
                        %>
1043
                        <table class="form_txt">
1035
                        <table>
1044
                            <tr>
1036
                            <tr>
1045
                            <td>Example:</td>
1037
                            <td>Example:</td>
1046
                            <td><%=sDefaultLabel%></td>
1038
                            <td><%=sDefaultLabel%></td>
1047
                            </tr>
1039
                            </tr>
1048
                        </table>
1040
                        </table>
Line 1050... Line 1042...
1050
                     </td>
1042
                     </td>
1051
                  </tr>
1043
                  </tr>
1052
 
1044
 
1053
               <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
1045
               <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
1054
                  <tr>
1046
                  <tr>
1055
                     <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Source Path<%=Quick_Help ( "src_path" )%></td>
1047
                     <td nowrap>Source Path<%=Quick_Help ( "src_path" )%></td>
1056
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1048
                     <td nowrap>
1057
                        <input name="FRpath" type="text" class="form_item" <%=disableCriticalSectionEdit%> id="FRpath" onchange="replace_back_slashes(this);" value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>" size="60" maxlength="2000">
1049
                        <input name="FRpath" type="text" class="form_item" <%=disableCriticalSectionEdit%> id="FRpath" onchange="replace_back_slashes(this);" value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>" size="60" maxlength="2000">
1058
                        <br>&nbsp;Example: /MASS_Dev_Infra/<%=objFormCollector.Item("pkg_name")%><br>
1050
                        <br>&nbsp;Example: /MASS_Dev_Infra/<%=objFormCollector.Item("pkg_name")%><br>
1059
                     </td>
1051
                     </td>
1060
                  </tr>
1052
                  </tr>
1061
 
1053
 
1062
                  <tr>
1054
                  <tr>
1063
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Label<%=Quick_Help ( "pkg_label" )%></td>
1055
                     <td nowrap>Label<%=Quick_Help ( "pkg_label" )%></td>
1064
                     <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1056
                     <td nowrap>
1065
                        <input type="text" name="FRlabel" id="FRlabel" maxlength="120" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=objForm.GetValue( "FRlabel", objFormCollector.Item("pkg_label") )%>" >
1057
                        <input type="text" name="FRlabel" id="FRlabel" maxlength="120" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=objForm.GetValue( "FRlabel", objFormCollector.Item("pkg_label") )%>">
1066
                     </td>
1058
                     </td>
1067
                  </tr>
1059
                  </tr>
1068
 
1060
 
1069
               <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then%>
1061
               <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then%>
1070
                  <input name="FRpath"  type="hidden" id="FRpath"  value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>">
1062
                  <input name="FRpath"  type="hidden" id="FRpath"  value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>">
1071
                  <input name="FRlabel" type="hidden" id="FRlabel" value="<%=sLabel%>">
1063
                  <input name="FRlabel" type="hidden" id="FRlabel" value="<%=sLabel%>">
1072
               <%Else%>
1064
               <%Else%>
1073
                  <tr>
1065
                  <tr>
1074
                     <td colspan=3 background="images/bg_form_lightbluedark.gif" class="sublbox_txt">
1066
                     <td colspan=3  class="sublbox_txt">
1075
                        <span class='err_alert'><b>WARNING:</b> Release Manager Website does not currently support the selected Version Control System</span>
1067
                        <span class='err_alert'><b>WARNING:</b> Release Manager Website does not currently support the selected Version Control System</span>
1076
                     </td>
1068
                     </td>
1077
                  </tr>
1069
                  </tr>
1078
                  <input name="FRpath"  type="hidden" id="FRpath"  value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>">
1070
                  <input name="FRpath"  type="hidden" id="FRpath"  value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>">
1079
                  <input name="FRlabel" type="hidden" id="FRlabel" value="<%=sLabel%>">
1071
                  <input name="FRlabel" type="hidden" id="FRlabel" value="<%=sLabel%>">
1080
               <%End If%>
1072
               <%End If%>
1081
 
1073
 
1082
               <tr>
1074
               <tr>
1083
                  <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Short Package Description<%=Quick_Help ( "pkg_info_short_desc" )%></td>
1075
                  <td>Short Package Description<%=Quick_Help ( "pkg_info_short_desc" )%></td>
1084
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1076
                  <td nowrap>
1085
                     <textarea name="pv_description" cols="57" rows="5" class="form_item" id="pv_description" onchange="strip_whitespace(this);validateDesc()"><%=objForm.GetValue( "pv_description", objFormCollector.Item("pv_description") )%></textarea>
1077
                     <textarea name="pv_description" cols="57" rows="5" class="form_item" id="pv_description" onchange="strip_whitespace(this);validateDesc()"><%=objForm.GetValue( "pv_description", objFormCollector.Item("pv_description") )%></textarea>
1086
                     <span class='val_err' id=descErr style='display:none'></span>
1078
                     <span class='val_err' id=descErr style='display:none'></span>
1087
                  </td>
1079
                  </td>
1088
               </tr>
1080
               </tr>
1089
               <tr>
1081
               <tr>
1090
                  <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Package Overview<%=Quick_Help ( "pkg_info_overview" )%></td>
1082
                  <td>Package Overview<%=Quick_Help ( "pkg_info_overview" )%></td>
1091
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1083
                  <td nowrap>
1092
                     <textarea name="pv_overview" cols="57" rows="10" class="form_item" id="pv_overview" onchange="strip_whitespace(this);validateOverview();"><%=objForm.GetValue( "pv_overview", objFormCollector.Item("pv_overview") )%></textarea>
1084
                     <textarea name="pv_overview" cols="57" rows="10" class="form_item" id="pv_overview" onchange="strip_whitespace(this);validateOverview();"><%=objForm.GetValue( "pv_overview", objFormCollector.Item("pv_overview") )%></textarea>
1093
                     <span class='val_err' id=viewErr style='display:none'></span>
1085
                     <span class='val_err' id=viewErr style='display:none'></span>
1094
                  </td>
1086
                  </td>
1095
               </tr>
1087
               </tr>
1096
 
1088
 
1097
               <tr>
1089
               <tr>
1098
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Build Standard</td>
1090
                  <td nowrap>Build Standard</td>
1099
                  <td nowrap background="images/bg_form_lightbluedark.gif">
1091
                  <td nowrap>
1100
                     <% Call RenderBldStdCombo(objFormCollector.Item("bs_name"))%>
1092
                     <% Call RenderBldStdCombo(objFormCollector.Item("bs_name"))
-
 
1093
                     If objFormCollector.Item("bs_name") = "ANT" Then
-
 
1094
                         %><span class='err_alert'> - Not recomended for new packages.</span><%
-
 
1095
                     End If
-
 
1096
                     %>
1101
                  </td>
1097
                  </td>
1102
               </tr>
1098
               </tr>
1103
 
1099
 
1104
               <tr>
1100
               <tr>
1105
                  <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Build Environment<%=Quick_Help ( "build_environment" )%></td>
1101
                  <td nowrap>Build Environment<%=Quick_Help ( "build_environment" )%></td>
1106
                  <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1102
                  <td nowrap>
1107
                     <%If objFormCollector.Item("is_build_env_required") = "N" Then%>
1103
                     <%If objFormCollector.Item("is_build_env_required") = "N" Then%>
1108
                        &nbsp;Build Environment not applicable
1104
                        &nbsp;Build Environment not applicable
1109
                     <%Else%>
1105
                     <%Else%>
1110
                     <%End If%>
1106
                     <%End If%>
1111
                     <div id="divBuildEnv" name="divBuildEnv" style="overflow: auto; <%If (objFormCollector.Item("is_build_env_required") = "N") Then%>display:none;<%Else%>display:block;<%End If%>">
1107
                     <div id="divBuildEnv" name="divBuildEnv" style="overflow: auto; <%If (objFormCollector.Item("is_build_env_required") = "N") Then%>display:none;<%Else%>display:block;<%End If%>">
1112
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
1108
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
1113
                           <tr>
1109
                           <tr>
1114
                              <td bgcolor="#FFFFFF">
1110
                              <td bgcolor="#FFFFFF">
1115
                                 <table width="100%" border="0" cellspacing="0" cellpadding="3">
1111
                                 <table width="100%" border="0" cellspacing="0" cellpadding="3" class=stdGrey>
1116
                                    <%
1112
                                    <%
1117
                                    OraDatabase.Parameters.Add "PV_ID",    parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
1113
                                    OraDatabase.Parameters.Add "PV_ID",    parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
1118
 
1114
 
1119
                                    query = _
1115
                                    query = _
1120
                                    " SELECT DECODE ( pkgbinfo.BM_ID, bm.BM_ID, 'checked', NULL ) AS checked,"&_
1116
                                    " SELECT DECODE ( pkgbinfo.BM_ID, bm.BM_ID, 'checked', NULL ) AS checked,"&_
Line 1127... Line 1123...
1127
                                    " WHERE pkgbinfo.BM_ID (+)= bm.BM_ID"&_
1123
                                    " WHERE pkgbinfo.BM_ID (+)= bm.BM_ID"&_
1128
                                    "   AND pkgbinfo.PV_ID (+)= :PV_ID"&_
1124
                                    "   AND pkgbinfo.PV_ID (+)= :PV_ID"&_
1129
                                    " ORDER BY UPPER(bm.bm_name) "
1125
                                    " ORDER BY UPPER(bm.bm_name) "
1130
 
1126
 
1131
                                    Set rsQry = OraDatabase.DbCreateDynaset( query, cint(0))
1127
                                    Set rsQry = OraDatabase.DbCreateDynaset( query, cint(0))
1132
                                    Dim rowColor
1128
                                    Dim rowClass : rowClass = "even"
1133
 
-
 
1134
                                    rowColor = "#F5F5F5"
-
 
1135
 
1129
 
1136
                                    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
1130
                                    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
1137
                                       checked = ""
1131
                                       checked = ""
1138
                                       If objForm.IsTicked( "be_id_list", rsQry("bm_id"), rsQry("checked") ) Then
1132
                                       If objForm.IsTicked( "be_id_list", rsQry("bm_id"), rsQry("checked") ) Then
1139
                                          checked = "checked"
1133
                                          checked = "checked"
1140
                                          objForm.SetValue "be_id_list", checked
1134
                                          objForm.SetValue "be_id_list", checked
1141
                                       End If
1135
                                       End If
1142
 
1136
 
1143
                                       rowColor = GetRowColor( rowColor )
1137
                                       rowClass = IIF( rowClass = "odd" , "even", "odd" )
1144
                                       %>
1138
                                       %>
1145
                                       <tr>
1139
                                       <tr class='nowrap tight <%=rowClass%>'>
1146
                                          <td width='1%' nowrap class="form_txt" bgcolor="<%=rowColor%>">
1140
                                          <td width='1%' >
1147
                                            <input type="checkbox" 
1141
                                            <input type="checkbox" 
1148
                                                   name="be_id_list" 
1142
                                                   name="be_id_list" 
1149
                                                   onClick="UpdateBeDisplay(this, 'build_type_<%=rsQry("bm_id")%>');" 
1143
                                                   onClick="UpdateBeDisplay(this, 'build_type_<%=rsQry("bm_id")%>');" 
1150
                                                   <%=disableCriticalSectionEdit%>
1144
                                                   <%=disableCriticalSectionEdit%>
1151
                                                   <%=IIf(rsQry("ISGENERIC"), " data-generic='1'","")%> 
1145
                                                   <%=IIf(rsQry("ISGENERIC"), " data-generic='1'","")%> 
1152
                                                   data-target-id='build_type_<%=rsQry("bm_id")%>'
1146
                                                   data-target-id='build_type_<%=rsQry("bm_id")%>'
1153
                                                   value="<%=rsQry("bm_id")%>" <%=checked%>>
1147
                                                   value="<%=rsQry("bm_id")%>" <%=checked%>>
1154
                                          </td>
1148
                                          </td>
1155
                                          <td width='1%' nowrap class="form_txt" bgcolor="<%=rowColor%>"><%=rsQry("bm_name")%></td>
1149
                                          <td width='1%' ><%=rsQry("bm_name")%></td>
1156
                                          <td width='98%' nowrap class="form_txt" bgcolor="<%=rowColor%>">
1150
                                          <td width='98%' >
1157
                                                <div id="build_type_<%=rsQry("bm_id")%>" <%=ShowHideBuildType( checked )%>>
1151
                                                <div id="build_type_<%=rsQry("bm_id")%>" <%=ShowHideBuildType( checked )%>>
1158
                                                    <% Call RenderBuildTypeCombo( rsQry("bsa_id"), rsQry("bm_id"), objFormCollector.Item("bs_id") )%>
1152
                                                    <% Call RenderBuildTypeCombo( rsQry("bsa_id"), rsQry("bm_id"), objFormCollector.Item("bs_id") )%>
1159
                                                </div>
1153
                                                </div>  
1160
                                          </td>
1154
                                          </td>
1161
                                          <%If checked = "checked" AND rsQry("bsa_id") = 0 Then%>
1155
                                          <%If checked = "checked" AND rsQry("bsa_id") = 0 Then%>
1162
                                             <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
1156
                                             <td>
1163
                                             <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>
1157
                                             <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>
1164
                                             <td class='val_err'>Required</td></td>
1158
                                             <td class='val_err'>Required</td>
1165
                                          <%End If%>
1159
                                          <%End If%>
1166
                                       </tr>
1160
                                       </tr>
1167
                                       <%rsQry.MoveNext
1161
                                       <%rsQry.MoveNext
1168
                                    WEnd
1162
                                    WEnd
1169
 
1163
 
Line 1181... Line 1175...
1181
               </tr>
1175
               </tr>
1182
            </table>
1176
            </table>
1183
         </td>
1177
         </td>
1184
      </tr>
1178
      </tr>
1185
      <tr>
1179
      <tr>
1186
		 <td align="right" >
1180
		 <td align="right">
1187
			<input id="btn_submit" type="submit" name="btn" value="Submit" <%If pageIsEditable Then%>class="form_btn_comp"<%Else%>disabled class="form_btn_comp_disabled"<%End If%>>
1181
			<input id="btn_submit" type="submit" name="btn" value="Submit" <%If pageIsEditable Then%>class="form_btn_comp"<%Else%>disabled class="form_btn_comp_disabled"<%End If%>>
1188
			<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
1182
			<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
1189
		 </td>
1183
		 </td>
1190
      </tr>
1184
      </tr>
1191
   </table>
1185
   </table>