WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/web/_wform_pkg_info.asp

 parVCSTag = QStrPar("vcs_tag")
 parBSName = QStrPar("bs_name")
 '----------------------------------------------
 %>
 <%
-Sub MessageBox_BM_Exclusivity()
-%><script language="Javascript">
-alert("You cannot select Generic with other BUILD MACHINE options!")
-history.reload()
-</script>
-<%
-End Sub
-Sub MessageBox_RequiredFieldsEmpty()
-%><script language="Javascript">
-alert("One or more required fields are still empty!\nFill in and submit, or cancel.")
-history.reload()
-</script>
-<%
-End Sub
-Sub MessageBox_Need_A_BuildStandard()
-%><script language="Javascript">
-alert("This is an auto-build package version, and so a build standard/environment is required!\nFill in and re-submit, or cancel.")
-history.reload()
-</script>
-<%
-End Sub
 '----------------------------------------------------------------------------------------------------------------------
 ' Function to get the build standard name (eg. JATS) from a build standard ID
 Function bs_name_from_bs_id( nBs_Id )
    Dim rsTemp, Query_String
          submit_action_url = scriptName & "?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&vcs_tag=" & parVCSTag & "&bs_name=" & parBSName
       End If
    End If
 End Sub
 '----------------------------------------------------------------------------------------------------------------------
-' This subroutine sets up the on_submit_validation string to be used in the form tag to validate certain fields
-' in client-side javascript when a user tries to submit the form
-Sub Determine_On_Submit_Validation
-   on_submit_validation = ""
-   Dim args
-   If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then
-      ' Do clearcase path + label validation
-      args = "'FRlabel','Label','RisCCLabel','FRpath','Source Path','RisCCPath'"
-   ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then
-      ' Do subversion tag validation
-      args = "'FRpath','Source Path','RisSVNPath'"
-      args = args & ",'FRlabel','Subversion Tag','RisSVNTag'"
-      If (objFormCollector.Item("build_type") = "M" ) Then
-          args = args & ",'FRlabel','Subversion Tag','RisSVNPegTag'"
-      End If
-   End If
-   args = args & ",'pv_description','Package Description','RminLength:11'"
-   args = args & ",'pv_overview','Package Overview','RminLength:11'"
-   on_submit_validation = "onSubmit=""MM_validateForm(" & args & "); return document.MM_returnValue"""
-   on_submit_validation = ""
-End Sub
-'----------------------------------------------------------------------------------------------------------------------
-' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database
-Function Get_BM_ID_for_BM_Name(nBm_Name)
-   Dim rsTemp, Query_String
-   Get_BM_ID_for_BM_Name = ""
-   Query_String = "SELECT bm_id FROM build_machines bm WHERE bm.bm_name = '" & nBm_Name & "'"
-   Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
-   Get_BM_ID_for_BM_Name = ""
-   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
-      Get_BM_ID_for_BM_Name = rsTemp("bm_id")
-   End If
-End Function
-'----------------------------------------------------------------------------------------------------------------------
 Function GetRowColor( sRowColor )
    If sRowColor = "#FFFFFF" Then
       GetRowColor = "#F5F5F5"
    Else
       GetRowColor = "#FFFFFF"
 '----------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '------------------------------- RUN BEFORE PAGE RENDER ----------------------------
-Call LoadFieldRules ( "'FRlabel','FRpath','pv_description','pv_overview','be_id_list'", objForm )      ' Load Validation Rules
 Call Get_Form_Details( parPv_id, objFormCollector )
-'--- From Validation Rule Changes ----
-' Dont need the label if the package version is uncontrolled
-If (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then
-   objForm.UpdateRules ("id='FRlabel' IsRequired='N'")
-End If
-' Dont need the path if the package version is uncontrolled
-If (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then
-   objForm.UpdateRules ("id='FRpath' IsRequired='N'")
-End If
-' Dont need the build environment if the is_build_env_required is "N"
-If objFormCollector.Item("is_build_env_required") = "N" Then
-   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")
-End If
-' Test for late entry of data
-'objForm.UpdateRules ("id='FRpath' IsRequired='N'")
-'objForm.UpdateRules ("id='FRlabel' IsRequired='N'")
-'objForm.UpdateRules ("id='pv_description' IsRequired='N'")
-'objForm.UpdateRules ("id='pv_overview' IsRequired='N'")
 '--- Access Control Setup ------------
 pageIsEditable = Is_Page_Editable ( objFormCollector.Item ("dlocked") )
 criticalSectionIsEditable = Is_Critical_Section_Editable ( objFormCollector.Item("dlocked") )
 isWIP = PackageExists(parRtag_id,parPv_id,"work_in_progress")
    disableCriticalSectionEdit = ""
 Else
    disableCriticalSectionEdit = "disabled"
 End If
-' Disable "Required" warnings for fields that cannot be edited by the current user at this time
-If NOT criticalSectionIsEditable Then
-   objForm.UpdateRules ("id='FRlabel' IsRequired='N'")
-   objForm.UpdateRules ("id='FRpath' IsRequired='N'")
-   objForm.UpdateRules ("id='be_id_list' IsRequired='N'")
-End If
 '--- Process Submission ---------------
 If objForm.IsPostBack Then
-   ' use of the drop down lists or the submit button gets us in here
-   If objForm.IsValidOnPostBack Then
-      ' only get here if the form is valid
       ' has the user pressed the submit button?
-      If Request("btn") = "Submit" Then
+    If Request("btn") = "Submit" Then
-         If objFormCollector.Item("build_type") = "A" AND UCase(objFormCollector.Item("bs_name")) = "NONE" Then
-            Call MessageBox_Need_A_BuildStandard()
-         Else
-            Dim aBuildEnvList, nBuildEnv, display
-            display = false
-            If UCase(objFormCollector.Item("bs_name")) <> "NONE" Then
-               ' Check for mutual exclusivity rules on the build standard addendum items
-               aBuildEnvList = Split( Replace( Request("be_id_list"), " ", "" ) , ",")
-               ' If >1 build machine items have been selected....
-               If UBound(aBuildEnvList) > 0 Then
-                  Dim bm_id_generic
-                  bm_id_generic = Get_BM_ID_for_BM_Name("Generic")
-                  ' If one of the selected build mnachines is "Generic" then we have a mutual exclusivity violation
-                  For Each nBuildEnv In aBuildEnvList
-                     If nBuildEnv = bm_id_generic Then
-                        display = true
-                     End If
-                  Next
-               End If
-            End If
-            If display then
-               Call MessageBox_BM_Exclusivity()
-            Else
-               Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview") )
+        Call Update_Pkg_Info ( parPv_id, QStrPar("FRdeployable"), QStrPar("FRlabel"), QStrPar("FRpath"), QStrPar("pv_description"), QStrPar("pv_overview") )
-               Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
+        Call OpenInParentWindow ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&hidenv=true" )
-               Call CloseWindow
+        Call CloseWindow
-            End If
+        Response.End
-         End If
-      Else
-         ' We come through here when a user modifies the VCS or Build Standard drop down list settings
-         ' We must stay in the form. There is nothing to do yet. The user may not have finished making their edits yet.
-      End If
-   Else
-      ' The form is still invalid but we only want to issue the warning message if the user pressed the submit button
-      If Request("btn") = "Submit" Then
-         Call MessageBox_RequiredFieldsEmpty()
-      End If
    End If
 End If
 ' Determine the URL to use when and if this form is refreshed using F5, or when a user changes the
 ' values in one of the drop down lists and the form is reloaded with additional or changed parameters
 ' The html form will use the result of this in its action tag.
 Call Determine_submit_action_url()
-Call Determine_On_Submit_Validation()
 '--------------------------------------------------------------------------------------------
 %>
 <html>
 <head>
 <title>Release Manager</title>
 <!-- TIPS -->
 <script language="JavaScript" src="images/tipster.js"></script>
 <script language="JavaScript" src="images/_help_tips.js"></script>
 <script language="JavaScript" type="text/javascript">
 <!--
+//  Validate tags on window load
+window.onload = function(e)
+{
+<%If (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) AND criticalSectionIsEditable Then%>
+    validateSvnPath();
+    validateSvnTag();
+<%End If%>
+<%If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) AND criticalSectionIsEditable Then%>
+    validateCCPath();
+    validateCCLabel();
+<%End If%>
+    validateDesc();
+    validateOverview();
+}
 // This function is the onchange event handler for the Version Control System drop down list box.
 // It will re-format the web page URL to pass the vcs_tag paramter reflecting the users choice in the drop down list,
 // and submit the form using the updated URL.
 function vcs_changed() {
          if (tc == null) {
             alert('Javascript Error : Failed to get vcs_tag_combo');
+         }
          else {
             // Form the new URL with the updated VCS tag passed as a parameter
-            var tc2 = document.getElementById('vcs_name_combo');
-            if (tc2.options[nc.selectedIndex].value == 'Concurrent Versions System')
-            {
-               alert('The Concurrent Versions System (CVS) is not fully supported by ERG.\n' +
-                     'This means you will have to manually build this package.\n' +
-                     'Please ensure you assign the version number manually, if that is not already so.\n');
-            }
             <%If IsNull(parBSName) OR parBSName = "" Then%>
                f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&vcs_tag=" + tc.options[nc.selectedIndex].value;
             <%Else%>
                f.action = "_wform_pkg_info.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>&bs_name=<%=parBSName%>&vcs_tag=" + tc.options[nc.selectedIndex].value;
             <%End If%>
          f.submit();
+      }
+   }
+}
+//
+//  Update the Build Enviroment Display
+//  Generic is not allowed to be checked if any of the others are checked
+//  If Generic is ticked - then untick all others and hide associated combobox
+//  If Generic is not ticked - the untick Generic and hide associated combobox
+function UpdateBeDisplay(me, targetId)
+{
+    // Toggle related target id
+    ToggleDisplay(targetId);
+    if (me.checked) {
+        // Handle Generic changes
+        isGeneric = me.getAttribute("data-generic");
+        items = document.getElementsByName("be_id_list");
+        if (isGeneric){
+            // Generic item has been checked
+            for(idx = 0;idx < items.length; idx++){
+                item = items[idx];
+                if ( item != me ) {
+                    item.checked = false;
+                    target = item.getAttribute("data-target-id");
+                    el = document.getElementById(target);
+                    el.style.display = 'none';
+                }
+            }
+        } else {
+            for(idx = 0;idx < items.length; idx++){
+                item = items[idx];
+                itemGeneric = item.getAttribute("data-generic");
+                if(itemGeneric) {
+                    item.checked = false;
+                    target = item.getAttribute("data-target-id");
+                    el = document.getElementById(target);
+                    el.style.display = 'none';
+                }
+            }
+        }
+    }
+}
+var bPathOk = true;
+var bLabelOk = true;
+var bDescOk = true;
+var bOverview = true;
+function validateDesc()
+{
+    document.MM_returnValue = true;
+    document.MM_error = "";
+    e = MM_findObj('pv_description');
+    if ( e.value.length )
+        MM_validateForm('--Silent','--NoPrefix','pv_description','Package Description','minLength:10');
+    bDescOk = document.MM_returnValue;
+    setIdText('descErr',document.MM_error);
+    parent.resizeIframe();
+}
+function validateOverview()
+{
+    document.MM_returnValue = true;
+    document.MM_error = "";
+    e = MM_findObj('pv_overview');
+    if ( e.value.length )
+        MM_validateForm('--Silent','--NoPrefix','pv_overview','Package Overview','minLength:20');
+    bOverview = document.MM_returnValue;
+    setIdText('viewErr',document.MM_error);
+    parent.resizeIframe();
+}
+//  Validate the SVN Path
+//
+function validateSvnPath()
+{
+    document.MM_returnValue = true;
+    document.MM_error = "";
+    e = MM_findObj('FRpath');
+    if ( e.value.length )
+        MM_validateForm('--Silent','--NoPrefix','FRpath','Source Path','RisSVNPath');
+    bPathOk = document.MM_returnValue;
+    setIdText('svnPathErr',document.MM_error);
+    parent.resizeIframe();
+}
+//  Validate the SVN Tag
+//
+function validateSvnTag()
+{
+    document.MM_returnValue = true;
+    document.MM_error = "";
+    e = MM_findObj('FRlabel');
+    if ( e.value.length )
+        MM_validateForm('--Silent','--NoPrefix','FRlabel','Subversion Tag','RisSVNTag');
+    bLabelOk = document.MM_returnValue;
+    setIdText('svnTagErr',document.MM_error);
+<%If (objFormCollector.Item("build_type") = "M" ) Then%>
+    if(bLabelOk){
+        MM_validateForm('--Silent','FRlabel','Subversion Tag','RisSVNPegTag');
+        bLabelOk = document.MM_returnValue;
+        setIdText('svnTagErr',document.MM_error);
+    }
+<%End If%>
+    parent.resizeIframe();
+}
+//  Validate the CC Path
+//
+function validateCCPath()
+{
+    document.MM_returnValue = true;
+    document.MM_error = "";
+    e = MM_findObj('FRpath');
+    if ( e.value.length)
+        MM_validateForm('--Silent','--NoPrefix','FRpath','Source Path','RisCCPath');
+    bPathOk = document.MM_returnValue;
+    setIdText('ccPathErr',document.MM_error);
+    parent.resizeIframe();
+}
+//  Validate the CC Label
+//
+function validateCCLabel()
+{
+    document.MM_returnValue = true;
+    document.MM_error = "";
+    e = MM_findObj('FRlabel');
+    if ( e.value.length)
+        MM_validateForm('--Silent','--NoPrefix','FRlabel','Label','RisCCLabel');
+    bLabelOk = document.MM_returnValue;
+    setIdText('ccLabelErr',document.MM_error);
+    parent.resizeIframe();
+}
+//  Show/Hide error message in specified element
+function setIdText(id, text) {
+    var element = document.getElementById(id);
+    if ( element ) {
+    while (element.firstChild!==null)
+        element.removeChild(element.firstChild); // remove all existing content
+        if(text){
+            element.appendChild(document.createTextNode(text));
+            element.style.display = 'block';
+        }
+        else {
+            element.style.display = 'none';
+        }
+    }
+    updateSubmit();
+}
+// Enable/disable the submit button
+// Based on the state of bPathOk and bLabelOk
+function updateSubmit(){
+    var element = document.getElementById('btn_submit');
+    if ( element ) {
+        element.disabled = !(bPathOk && bLabelOk && bOverview && bDescOk);
+        if (element.disabled) {
+            removeClass(element, 'form_btn_comp');
+            addClass(element, 'form_btn_comp_disabled');
+        } else {
+            removeClass(element, 'form_btn_comp_disabled') ;
+            addClass(element, 'form_btn_comp');
+        }
+    }
+}
 // This function will replace back slashes with forward slashes and can be used with an onchange event on fields
 // where back slashes may be entered
 function replace_back_slashes(e) {
    strip_whitespace(e);
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 <!-- TIPS LAYERS -------------------------------------->
 <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 <!----------------------------------------------------->
-<form id="pkginfo" name="pkginfo" method="post" <%=on_submit_validation%> action="<%=submit_action_url%>" class="form_tight">
+<form id="pkginfo" name="pkginfo" method="post" onSubmit="return document.MM_returnValue;" action="<%=submit_action_url%>" class="form_tight">
    <table border="0" cellspacing="0" cellpadding="2">
       <tr>
          <td valign="top" nowrap class="wform_ttl" background="images/bg_form_lightgray.gif">
             <table width="100%" border="0" cellspacing="1" cellpadding="2">
                <tr>
                </tr>
                <tr>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Version Control System</td>
                   <td nowrap background="images/bg_form_lightbluedark.gif">
                      <% Call RenderVCSCombo(objFormCollector.Item("vcs_tag"))%>
+                     <%If (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
+                        <span class='err_alert'>[Not fully Supported]</span>
+                     <%End If%>
                   </td>
                </tr>
                <!--- Source Path ---------------------------------------------->
                <%If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then%>
                   <tr>
                      <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Source Path<%=Quick_Help ( "src_path" )%></td>
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
-                        <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">
+                        <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">
                         <br>&nbsp;Example: /MASS_Dev_Infra/core_cs <br>
+                        <span class='val_err' id=ccPathErr style='display:none'></span>
                      </td>
                   </tr>
                   <tr>
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Label<%=Quick_Help ( "pkg_label" )%></td>
                               End If
                               objForm.SetValue "FRlabel", sLabel
                            End If
                         End If
                         %>
-                        <input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=sLabel%>" <%=sLabelReadOnly%>>
+                        <input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);validateCCLabel();" value="<%=sLabel%>" <%=sLabelReadOnly%>>
                         <br>&nbsp;Example: core_cs_1.0.0000.cr<br>
-                        <%=objForm.Validate ("FRlabel")%>
+                        <span class='val_err' id=ccLabelErr style='display:none'></span>
                      </td>
                   </tr>
                <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then%>
                   <tr>
                      <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Source Path<%=Quick_Help ( "svn_source_path" )%></td>
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
-                        <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">
+                        <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">
                         <br>&nbsp;Example: AUPERASVN01/RepoName/myPackage/trunk<br>
+                        <span class='val_err' id=svnPathErr style='display:none'></span>
                      </td>
                   </tr>
                   <tr>
                      <td nowrap valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Tag<%=Quick_Help ( "svn_tag" )%></td>
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
                               objForm.SetValue "FRlabel", sLabel
                            End If
                         End If
                         %>
-                        <input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=sLabel%>" <%=sLabelReadOnly%>>
+                        <input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);validateSvnTag();" value="<%=sLabel%>" <%=sLabelReadOnly%>>
                         <%
                         If objFormCollector.Item("build_type") = "M" Then
                             %> <br>&nbsp;Example: <%=sDefaultLabel%>@1234<br> <%
                         Else
                             %> <br>&nbsp;Example: <%=sDefaultLabel%>[@1234]<br> <%
                         End If
                         %>
-                        <%=objForm.Validate ("FRlabel")%>
+                        <span class='val_err' id=svnTagErr style='display:none'></span>
                      </td>
                   </tr>
                <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
                   <tr>
                   <tr>
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Label<%=Quick_Help ( "pkg_label" )%></td>
                      <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
                         <input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=objForm.GetValue( "FRlabel", objFormCollector.Item("pkg_label") )%>" >
                      </td>
-                     <%=objForm.Validate ("FRlabel")%>
                   </tr>
                <%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_UNCONTROLLED_TAG) Then%>
                   <input name="FRpath"  type="hidden" id="FRpath"  value="<%=objForm.GetValue( "FRpath", objFormCollector.Item("src_path") )%>">
                   <input name="FRlabel" type="hidden" id="FRlabel" value="<%=sLabel%>">
                <%End If%>
                <tr>
                   <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Short Package Description<%=Quick_Help ( "pkg_info_short_desc" )%></td>
                   <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
-                     <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>
+                     <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>
-                  <%=objForm.Validate ("pv_description")%>
+                     <span class='val_err' id=descErr style='display:none'></span>
                   </td>
                </tr>
                <tr>
                   <td valign="top" background="images/bg_form_lightbluedark.gif" class="form_field">Package Overview<%=Quick_Help ( "pkg_info_overview" )%></td>
                   <td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
-                     <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>
+                     <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>
-                  <%=objForm.Validate ("pv_overview")%>
+                     <span class='val_err' id=viewErr style='display:none'></span>
                   </td>
                </tr>
                <tr>
                   <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Build Standard</td>
                                  <table width="100%" border="0" cellspacing="0" cellpadding="3">
                                     <%
                                     OraDatabase.Parameters.Add "PV_ID",    parPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
                                     query = _
-                                    " SELECT DECODE ( pkgbinfo.BM_ID,"&_
+                                    " SELECT DECODE ( pkgbinfo.BM_ID, bm.BM_ID, 'checked', NULL ) AS checked,"&_
-                                    "                    bm.BM_ID, 'checked',"&_
-                                    "            NULL ) AS checked,"&_
                                     "      bm.BM_ID,"&_
                                     "      bm.BM_NAME, "&_
-                                    "      pkgbinfo.BSA_ID"&_
+                                    "      pkgbinfo.BSA_ID, "&_
+                                    "      DECODE (UPPER(bm.BM_NAME) , UPPER('Generic'), 1, NULL ) AS isGeneric" &_
                                     "  FROM BUILD_MACHINES bm,"&_
                                     "        PACKAGE_BUILD_INFO pkgbinfo"&_
                                     " WHERE pkgbinfo.BM_ID (+)= bm.BM_ID"&_
                                     "   AND pkgbinfo.PV_ID (+)= :PV_ID"&_
                                     " ORDER BY UPPER(bm.bm_name) "
                                     Set rsQry = OraDatabase.DbCreateDynaset( query, cint(0))
                                     Dim rowColor
                                     rowColor = "#F5F5F5"
                                        End If
                                        rowColor = GetRowColor( rowColor )
                                        %>
                                        <tr>
-                                          <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>
+                                          <td width='1%' nowrap class="form_txt" bgcolor="<%=rowColor%>">
+                                            <input type="checkbox"
+                                                   name="be_id_list"
+                                                   onClick="UpdateBeDisplay(this, 'build_type_<%=rsQry("bm_id")%>');"
+                                                   <%=disableCriticalSectionEdit%>
+                                                   <%=IIf(rsQry("ISGENERIC"), "data-generic='1'","")%>
+                                                   data-target-id='build_type_<%=rsQry("bm_id")%>'
+                                                   value="<%=rsQry("bm_id")%>" <%=checked%>>
+                                          </td>
                                           <td width='1%' nowrap class="form_txt" bgcolor="<%=rowColor%>"><%=rsQry("bm_name")%></td>
                                           <td width='98%' 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>
                            </tr>
                         </table>
                      </div>
                   </td>
-                  <%=objForm.Validate("be_id_list")%>
                </tr>
             </table>
          </td>
       </tr>
       <tr>
 		 <td align="right" >
-			<input type="submit" name="btn" value="Submit" <%If pageIsEditable Then%>class="form_btn_comp"<%Else%>disabled class="form_btn_comp_disabled"<%End If%>>
+			<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%>>
 			<input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="parent.closeIFrame();">
 		 </td>
       </tr>
    </table>
    <input type="hidden" name="pv_id"   id="pv_id"   value="<%=parPv_id%>">
    <input type="hidden" name="rtag_id" id="rtag_id" value="<%=parRtag_id%>">
    <input type="hidden" name="vcs_tag" id="vcs_tag" value="<%=parVCSTag%>">
    <input type="hidden" name="bs_name" id="bs_name" value="<%=parBSName%>">
+   <%objForm.AddPostBack()%>
 </form>
 </body>
 </html>
 <%
 '------------- RUN AFTER PAGE RENDER ---------------

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_wform_pkg_info.asp – Rev 5590 → 5596