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

 <%
 '=====================================================
-'                 NEW VERSION
+'   _form_new_version_page.asp
 '                      PAGE
 '=====================================================
 %>
 <!--#include file="_tabs.asp"-->
 <!--#include file="_drawExtensionSelectBox.asp"-->
 Dim parRename
 Dim rFile
 Dim disableBuildType
 Dim bCanRenamePackage
 Dim parPkgId
+Dim bNewerVersions
+Dim sNewerVersionsOptions
 '------------ Constants Declaration -----------
 '-----------------------------------------------------------------------------------------------------------------------------
 Sub GetPackageInfo( nPvId, outPkgInfo )
    Dim rsTemp, Query_String
-   If (IsEmpty(nPvId) OR newPackage > 0) Then Exit Sub
+   If (IsEmpty(nPvId) OR newPackage> 0) Then Exit Sub
    Query_String = _
    " SELECT pv.pv_id, pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, pv.change_type, pv.build_type, pv.is_patch"&_
    "  FROM packages pkg, package_versions pv"&_
    " WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& nPvId
 '-----------------------------------------------------------------------------------------------------------------------------
 Sub Get_All_Licences ( NNnewlicence_id )
    Dim rsTemp, Query_String, selected
-   Response.write "<option value='-1' >"& "100% Vix Developed" &"</option>"
+   Response.write "<option value='-1'>"& "100% Vix Developed" &"</option>"
    Query_String = _
    "   SELECT licence, name"&_
    "     FROM licences "&_
    "    ORDER BY name ASC"
    rsTemp.Close
    Set rsTemp = nothing
 End Sub
 '-----------------------------------------------------------------------------------------------------------------------------
+Sub Get_Newer_Versions()
+   Dim rsTemp, Query_String, el
+   bNewerVersions = False
+   If isNULL(parPv_id) OR parRename Then Exit Sub
+   Query_String = _
+        "SELECT" &_
+        "    pv.pv_id," &_
+        "    pv.pkg_version," &_
+        "    pv.dlocked," &_
+        "    TO_CHAR( pv.created_stamp,'DD-Mon-YYYY HH24:MI:SS' ) AS created_stamp" &_
+        " FROM" &_
+        "    package_versions pv," &_
+        "    package_versions pvc" &_
+        " WHERE" &_
+        "    pv.created_stamp> pvc.created_stamp" &_
+        "    AND pv.pkg_id = pvc.pkg_id" &_
+        "    AND NVL(pvc.v_ext, 'isNULL') = NVL(pv.v_ext, 'isNULL')" &_
+        "    AND pvc.build_type != 'Y'" &_
+        "    AND pvc.pv_id = " & parPv_id &_
+        " ORDER by pv.created_stamp desc"
+   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+   sNewerVersionsOptions = ""
+   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
+       bNewerVersions = True
+       el = IIF(rsTemp("dlocked") = "Y", "R&nbsp;", "&nbsp;&nbsp;&nbsp;&nbsp;") & rsTemp("pkg_version") & "&nbsp;&nbsp;" & rsTemp("created_stamp")
+       sNewerVersionsOptions = sNewerVersionsOptions & "<option>" & el & "</option>"
+      rsTemp.MoveNext
+   WEnd
+   rsTemp.Close
+   Set rsTemp = nothing
+End Sub
+'-----------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '===================== MAIN LINE ============================
 Dim bDisableAuto, bPatchOnly, bIsCots, bIsAuto
         minorState = "checked"
     Else
         patchState = "checked"
     End If
-ElseIf NOT (newPackage > 0 ) Then
+ElseIf NOT (newPackage> 0 ) Then
     ' Package already exists
     ' Creating a new Version of an existing Package
     '   Set build_type to Auto - New Versions start in Auto
     Call GetPackageInfo( parPv_id, objPkgInfo )
     objPkgInfo.Item("build_type") = "A"
    <%If disableBuildType Then%>
    changeToAutoBuild('D');
    <% End If %>
    var isAutobuild = document.NEWversion.version_type[0].checked;
-   if (!isAutobuild)
+   if (!isAutobuild) {
-   {
       changeToManualVersionNumberAssignment();
-   }
-   else
+   } else {
-   {
       changeToAutoVersionNumberAssignment();
+   }
    updateCopyButton();
    checkPackage();
    checkBaseView();
+{
    document.getElementById('change_type1').style.display = 'table-row';
    //document.getElementById('pkgver').style.display = 'none';
    savedVersion = document.getElementById('FRvnumber').value;
    document.getElementById('FRvnumber').disabled = true;
-   <%If NOT newPackage > 0 Then%>
+   <%If NOT newPackage> 0 Then%>
    document.getElementById('FRuseVersion').style.visibility = 'hidden';
    <%End If%>
    document.getElementById('FRvnumber').value = '(auto)';
    checkVersionNumber();
    resizeFrame();
 function changeToManualVersionNumberAssignment()
+{
    document.getElementById('change_type1').style.display = 'none';
    //document.getElementById('pkgver').style.display = 'table-row';
    document.getElementById('FRvnumber').disabled = false;
-   <%If NOT newPackage > 0 Then%>
+   <%If NOT newPackage> 0 Then%>
    document.getElementById('FRuseVersion').style.visibility = 'visible';
    <%End If%>
    if ( savedVersion.indexOf('(') != 0) {
        document.getElementById('FRvnumber').value = savedVersion;
    } else {
 //  Args:     data - New data value
 function updateCopyButton ()
+{
     var e = document.getElementById("FRpkgver");
     var el = document.getElementById('FRuseVersion');
-    if (e && el)
+    if (e && el) {
-    {
         var data = e.value;
         el.disabled = (data.indexOf('(') == 0)
+    }
+}
 //          Attached to: FRuseVersion
 //
 function useVersion()
+{
     var e = document.getElementById("FRpkgver");
-    if (e)
+    if (e) {
-    {
         var strUser = e.value;
-        if ( strUser.indexOf('(') != 0)
+        if ( strUser.indexOf('(') != 0) {
-        {
             var patt = /\.[a-z]{1,4}$/i;
             strUser = strUser.replace(patt,'');
             document.getElementById('FRvnumber').value = strUser;
             checkVersionNumber();
+        }
+}
 //////////////////////////////////////////////////////////////////
 // Function: checkPackage
 //
 // Purpose:
+// Returns: A promise
 //
 function checkPackage()
+{
     var f = document.getElementById('NEWversion');
-    if ( f.newPackage.value > 0 || f.renamePackage.value > 0 )
+    if ( f.newPackage.value> 0 || f.renamePackage.value> 0 ) {
-    {
         reseteMessage();
         MM_validateForm("--Silent",'FRpkgName','Package Name','RisPackage');
         checkPackageHighlight( ! document.MM_returnValue, 'Name well formed', 'Invalid Characters in name');
         if ( ! document.MM_returnValue ) return;
-        xmlHttp=GetXmlHttpObject(checkPackageDone);
-        if (xmlHttp==null)
-        {
-          alert ("Your browser does not support AJAX!");
-          return;
-        }
-        var url = "_json_checkPackage.asp?"
-                + "packageName=" + document.getElementById('FRpkgName').value
-                + "&Opr=checkName";
         MM_showProgressBar();
-        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
-        xmlHttp.send(null);
-    }
-}
-function checkPackageDone()
+        return jQuery.get('_json_checkPackage.asp',{
-{
-    //readyState of 4 or 'complete' represents that data has been returned
+                       packageName :  document.getElementById('FRpkgName').value,
-    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
+                       Opr : 'checkName'
-        //Gather the results from the callback
+                   }, function(){}, 'json'
-        var str = xmlHttp.responseText;
+            ).done(function(data, textStatus, jqXHR){
-        try {
+                try {
-            var myJson = JSON.parse(str);
-            var f = document.getElementById('NEWversion');
+                    var f = document.getElementById('NEWversion');
-            var pkgId = f.FRpkgId.value;
+                    var pkgId = f.FRpkgId.value;
-            if ( !(pkgId && myJson.result == pkgId)) {
+                    if ( !(pkgId != 0 && data.result == pkgId)) {
-                checkPackageHighlight(myJson.result != 0, 'Name is unused', 'Package Exists');
+                        checkPackageHighlight(data.result != 0, 'Name is unused', 'Package Exists');
-            } else {
+                    } else {
-                checkPackageHighlight(0, '', '');
+                        checkPackageHighlight(0, '', '');
-            }
+                    }
-        }
+                }
-        catch(e) {
+                catch(e) {
-            checkPackageHighlight( 1, '','Error in AJAX operation');
+                    checkPackageHighlight( 1, '','Error in AJAX operation');
-        }
+                }
+            }).fail(function(jqXHR, textStatus, errorThrown){
+                checkPackageHighlight( 1, '','Error in AJAX operation');
+            }).always(function(){
-        MM_hideProgressBar();
+                MM_hideProgressBar();
-        resizeFrame();
+                resizeFrame();
+            });
+    }
+    return jQuery.Deferred().resolve();
+}
 function checkPackageHighlight(v, msggood, msgbad)
+{
     if (v)
+    {
         setIdText('cpError',msgbad);
+}
 function checkBaseView()
+{
     var f = document.getElementById('NEWversion');
-    if ( f.newPackage.value > 0 )
+    if ( f.newPackage.value> 0 )
+    {
         reseteMessage();
         MM_validateForm("--Silent",'base_view_id','Base View','R');
         if ( ! document.MM_returnValue )
+        {
+}
 function checkLicence()
+{
     var f = document.getElementById('NEWversion');
-    if ( f.newPackage.value > 0 )
+    if ( f.newPackage.value> 0 )
+    {
         reseteMessage();
         MM_validateForm("--Silent",'licence_id','Licence','R');
         if ( ! document.MM_returnValue )
+        {
             setIdText('liError','');
+        }
+    }
+}
+// Returns: A promise
 function checkVersionNumber()
+{
    reseteMessage();
+   // Show/Hide COTS helper message
+   var ii = document.all['v_ext'].selectedIndex;
+   var isCots =  document.all['v_ext'].options[ii].hasAttribute('iscots');
+   Visible('cotsHint', isCots ? 'block': 'none' );
    if (document.NEWversion.version_type[0].checked)
+   {
         removeClass(document.getElementById('FRvnumber'), 'form_error' );
         setIdText('vnError','');
         var versionExt = document.all['v_ext'].value;
         document.all['FRnewver'].value = versionExt;
+        return jQuery.Deferred().resolve();
+   }
    else
+   {
         // Get Full version - store into hidden field processing
         var versionExt = document.all['v_ext'].value;
+        {
             addClass(document.getElementById('FRvnumber'), 'form_error' );
             setIdText('vnError','Invalid form');
             showeMessage(document.MM_error);
             fieldError = true;
-            return;
+            return jQuery.Deferred().resolve();
+        }
-        xmlHttp=GetXmlHttpObject(checkVersionExistsDone);
-        if (xmlHttp==null)
-        {
-            alert ("Your browser does not support AJAX!");
-            return;
-        }
-        var url = "_json_checkPackage.asp?"
-                + "packageName=" + document.getElementById('FRpkgName').value
-                + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value
-                + "&Opr=checkVer";
         MM_showProgressBar();
-        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
-        xmlHttp.send(null);
-    }
-   // Show/Hide COTS helper message
-   var ii = document.all['v_ext'].selectedIndex;
+        return jQuery.get('_json_checkPackage.asp',{
-   var isCots =  document.all['v_ext'].options[ii].hasAttribute('iscots');
+                       packageName :  document.getElementById('FRpkgName').value,
-   Visible('cotsHint', isCots ? 'block': 'none' );
+                       Opr : 'checkVer',
-}
-function checkVersionExistsDone()
-{
-    //readyState of 4 or 'complete' represents that data has been returned
+                       Version : document.all['FRvnumber'].value + document.all['v_ext'].value
-    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
-        //Gather the results from the callback
-        var myJson;
-        var str = xmlHttp.responseText;
-        try {
-            myJson = JSON.parse(str);
+                   }, function(){}, 'json'
-        }
-        catch(e) {
-            myJson = {};
-            myJson.error = 2;
-            myJson.emsgSummary = e.message;
+            ).done(function(data, textStatus, jqXHR){
-            myJson.SqlQry = '';
-        }
-        if(myJson.error)
+                    if(data.error) {
-        {
-            addClass(document.getElementById('FRvnumber'), 'form_error' );
+                        addClass(document.getElementById('FRvnumber'), 'form_error' );
-            setIdText('vnError','Error in AJAX operation');
+                        setIdText('vnError','Error in AJAX operation');
-            showeMessage(myJson.emsgSummary);
+                        showeMessage(data.emsgSummary);
-            fieldError = true;
+                        fieldError = true;
-        }
-        else if(myJson.result != 0)
+                    } else if(data.result != 0) {
-        {
-            addClass(document.getElementById('FRvnumber'), 'form_error' );
+                        addClass(document.getElementById('FRvnumber'), 'form_error' );
-            setIdText('vnError','Exists');
+                        setIdText('vnError','Exists');
-            showeMessage('Version already exists');
+                        showeMessage('Version already exists');
-            fieldError = true;
+                        fieldError = true;
-        }
-        else
+                    } else {
-        {
-            removeClass(document.getElementById('FRvnumber'), 'form_error' );
+                        removeClass(document.getElementById('FRvnumber'), 'form_error' );
-            setIdText('vnError','');
+                        setIdText('vnError','');
-        }
+                    }
+            }).fail(function(jqXHR, textStatus, errorThrown){
+                checkPackageHighlight( 1, '','Error in AJAX operation');
+            }).always(function(){
-        MM_hideProgressBar();
+                MM_hideProgressBar();
-        resizeFrame();
+                resizeFrame();
+            });
+    }
+}
 function checkReason()
+{
 <%If parRename <> "" Then%>
 function updateVersionInfo()
+{
    reseteMessage();
+   var urlArgs = {
+       packageName : document.getElementById('FRpkgName').value,
+       Version : document.all['FRvnumber'].value + document.all['v_ext'].value,
+       buildType : document.all['build_type'].value,
+       changeType : document.all['change_type'].value,
+       rtagId : document.all['rtag_id'].value,
+       pvId : document.all['OLDpv_id'].value,
+       vExt : document.all['v_ext'].value,
+       Opr : 'updateVer'
+   };
+   var f = document.getElementById('NEWversion');
+   if ( f.renamePackage.value> 0 ) {
+       urlArgs.Mode = 1;
+   }
-    xmlHttp=GetXmlHttpObject(updateVersionInfoDone);
+   return jQuery.get('_json_updateVersion.asp',urlArgs, function(){}, 'json'
-    if (xmlHttp==null)
-    {
-        alert ("Your browser does not support AJAX!");
+       ).done(function(data, textStatus, jqXHR){
-        return;
+           if(data.error) {
-    }
-    var url = "_json_updateVersion.asp?"
-            + "packageName=" + document.getElementById('FRpkgName').value
-            + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value
-            + "&buildType=" + document.all['build_type'].value
-            + "&changeType=" + document.all['change_type'].value
-            + "&rtagId=" + document.all['rtag_id'].value
-            + "&pvId=" + document.all['OLDpv_id'].value
-            + "&vExt=" + document.all['v_ext'].value
+               showeMessage(data.emsgDetails);
-            + "&Opr=updateVer";
+               fieldError = true;
-    var f = document.getElementById('NEWversion');
+           } else if(data.result != 0) {
-    if ( f.renamePackage.value > 0 ) {
+               showeMessage('Error changing version number');
-        url += "&Mode=1";
+               fieldError = true;
-    }
+           }
-    MM_showProgressBar();
-    xmlHttp.open("GET",url,false);          // `false` makes the request synchronous
-    xmlHttp.send(null);
-}
-function updateVersionInfoDone()
-{
-    //readyState of 4 or 'complete' represents that data has been returned
-    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
-        //Gather the results from the callback
-        var myJson;
-        var str = xmlHttp.responseText;
-//alert("Results:" + str);
-        try {
-            myJson = JSON.parse(str);
-        }
-        catch(e) {
-            myJson = {};
-            myJson.error = 2;
-            myJson.emsgDetails = e.message;
+       }).fail(function(jqXHR, textStatus, errorThrown){
-            myJson.SqlQry = '';
-        }
-        if(myJson.error)
-        {
-            showeMessage(myJson.emsgDetails);
-            fieldError = true;
-        }
-        else if(myJson.result != 0)
-        {
-            showeMessage('Error changing version number');
+           checkPackageHighlight( 1, '','Error in AJAX operation');
-            fieldError = true;
+       }).always(function(){
-        }
-        MM_hideProgressBar();
+           MM_hideProgressBar();
-        resizeFrame();
+           resizeFrame();
-    }
+       });
+}
 <%End If%>
 function reseteMessage()
+{
     var omsg, elem;
     if (checkMode == 1 )
+    {
         elem = document.getElementById("eMessage");
         omsg = elem.textContent || elem.innerText;
-        if ( (typeof osmg != 'undefined') && omsg.length > 0 )
+        if ( (typeof osmg != 'undefined') && omsg.length> 0 )
             omsg += '\n';
+    }
     else
+    {
         omsg = "";
 <%If NOT bInIframe Then %>
     function Dependency()
+    {
     <%If parRename <> "" Then%>
        parent.window.close();
-    <%ElseIf newPackage > 0 Then%>
+    <%ElseIf newPackage> 0 Then%>
        parent.window.location.href="<%=rFile%>?rtag_id=<%=parRtag_id%>";
     <%Else%>
        parent.window.location.href="<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>";
     <%End If%>
+    }
 ////////////////////////////////////////////////////////////////////////////////////////////////////////
 // This function returns true if form validation passes, else false
 // It is called when a user hits the submit button.
 ////////////////////////////////////////////////////////////////////////////////////////////////////////
-function validateFormNEWversion()
+function  validateFormNEWversion()
+{
     var f = document.getElementById('NEWversion');
     if (f == null)
         vixAlert('Internal Error<p>Failed To Get NEWversion');   // should never happen unless a coding/rendering mistake is made?
     else
+    {
         setIdText('eMessage','');
         fieldError = false;
         checkMode = 1;
-        checkPackage();
+        checkPackage().always(function(){
-        checkBaseView();
+            checkBaseView();
-        checkLicence();
+            checkLicence();
-        checkVersionNumber();
+            checkVersionNumber().always(function(){
-        <%If NOT parRename <> "" Then%>
+                <%If NOT parRename <> "" Then%>
-        checkReason();
+                checkReason();
-        <%End If%>
+                <%End If%>
-        if (!fieldError)
-        {
-            //  Export the change_type field in a sanitised form
-            var ct = getCheckedRadio(document.forms.NEWversion.elements.change_type1).value;
-            if(!document.NEWversion.version_type[0].checked) ct = 'F';
-            document.all['change_type'].value = ct;
-            MM_showProgressBar();
-            <%If parRename <> "" Then%>
-                updateVersionInfo();
                 if (!fieldError)
+                {
+                    //  Export the change_type field in a sanitised form
+                    var ct = getCheckedRadio(document.forms.NEWversion.elements.change_type1).value;
+                    if(!document.NEWversion.version_type[0].checked) ct = 'F';
+                    document.all['change_type'].value = ct;
+                    MM_showProgressBar();
+                    <%If parRename <> "" Then%>
+                        updateVersionInfo().always(function(){
+                            if (!fieldError)
+                            {
-                    <%If NOT bInIframe Then %>
+                                <%If NOT bInIframe Then %>
-                        parent.window.close();
+                                    parent.window.close();
-                        window.opener.document.location='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
+                                    window.opener.document.location='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
+                                <%Else%>
+                                    window.parent.location.reload(false);
+                                <%End If%>
+                                return true;
+                            }
+                        });
                     <%Else%>
-                        window.parent.location.reload(false);
+                        f.action='_new_version.asp';
+                        parent.window.location.href='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
+                        return true;
                     <%End If%>
-                    return true;
+                }
-            <%Else%>
+                // Hide progress bar that is exposed because the previous tests were OK
-                f.action='_new_version.asp';
+                MM_hideProgressBar();
-                parent.window.location.href='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
+                resizeFrame();
-                return true;
+                checkMode = 0;
-            <%End If%>
+            });
-        }
+        });
+    }
-    // Hide progress bar that is exposed because the previous tests were OK
-    MM_hideProgressBar();
-    resizeFrame();
-    checkMode = 0;
     return false;
+}
 </script>
 <!-- _form_new_version_page.asp -->
 <table width="650px" border="0" cellspacing="0" cellpadding="0">
    <tr>
       <td>
 <%If NOT bInIframe Then %>
-         <table width="100%" border="0" cellspacing="0" cellpadding="0" class='rounded_box rounded_box_std'>
+         <table width="100%" border="0" cellspacing="0" cellpadding="0" class='rounded_box'>
              <caption><%=parPage_title%></caption>
 <%Else%>
          <table width="100%" border="0" cellspacing="0" cellpadding="0">
 <%End If%>
             <tr>
-               <td bgcolor="#FFFFFF" valign="top">
+               <td valign="top">
                   <!-- Body -->
-                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
+                  <div class='Panel <%=IIF(NOT bInIframe,"PanelFrame","tight")%>'>
                      <form id="NEWversion"  name="NEWversion" method="post">
-                        <tr>
-                           <td colspan="2" width="1%" nowrap class="form_field">
-                              <table width="100%" border="0" cellspacing="1" cellpadding="5">
+                      <table width="100%" border="0" cellspacing="1" cellpadding="5" class='lhsGrey PanelPad'>
-                                 <!-- Package Name -->
+                         <!-- Package Name -->
+                         <tr>
+                            <td>Package Name</td>
+                           <% if newPackage> 0 OR bCanRenamePackage> 0 Then %>
+                                <td>
+                                  <input type="text" id="FRpkgName" name="FRpkgName"  size="40" value="<%=parPkgName%>" onBlur="checkPackage()">
+                                  <span id="cpError"></span>
+                                </td>
+                            <% Else %>
+                                <td class="form_field"><%=parPkgName%></td>
+                            <% End If %>
+                         </tr>
+                         <!--Base View -------------->
+                         <% if newPackage> 0 Then %>
+                            <tr>
+                                <td>To Base View</td>
+                                <td width="1%" nowrap>
+                                   <select name="base_view_id" id="base_view_id" class="form_item" onBlur="checkBaseView()">
+                                      <option></option>
+                                      <%Call Get_All_Base_Views(parBase_view_id)%>
+                                   </select>
+                                   <span id="bvError"></span>
+                                </td>
+                             </tr>
+                         <!--Personal View -------------->
+                           <%If QStrPar("Pview") <> "disable" Then%>
+                            <tr>
+                                <td>To Personal View</td>
+                               <td width="1%" nowrap background="images/bg_form_lightgray.gif">
+                                  <select name="personal_view_id">
+                                     <option value="">None</option>
+                                     <%Call Get_All_Personal_Views(objAccessControl.UserId )%>
+                                  </select>
+                               </td>
+                            </tr>
+                            <%End If%>
+                            <!-- Software Licence ----------------->
+                            <tr>
+                               <td>Software Licence<%=Quick_Help("Licence")%></td>
+                                <td width="1%" nowrap>
+                                   <select name="licence_id" id="licence_id" class="form_item" onBlur="checkLicence()">
+                                      <option></option>
+                                      <%Call Get_All_Licences(-2)%>
+                                   </select>
+                                   <span id="liError"></span>
+                                </td>
+                            </tr>
+                         <!--Dummy Line to highlight New Package Data -------------->
+                            <tr>
+                                <td></td>
+                                <td class="form_field"></td>
+                            </tr>
+                         <% End If %>
+                         <!-- Build Type Assignment ----------------->
+                         <tr>
+                            <td>Build Type<%=Quick_Help("BuildType")%></td>
+                            <td>
+                                <input name="build_type1" id="build_type_A" type="radio" value="A" checked onclick="changeToAutoBuild('A');"> Auto
+                                <input name="build_type1" id="build_type_M" type="radio" value="M" onclick="changeToAutoBuild('M');"> Manual
+                            </td>
+                         </tr>
+                         <!--Version Number Assignment -------------->
+                         <tr>
+                               <%
+                                    Dim flagAuto, flagMan
+                                    if bDisableAuto Then
+                                        flagAuto = "disabled"
+                                        flagMan = "checked"
+                                    Else
+                                        If bIsAuto Then
+                                            flagAuto = "checked"
+                                            flagMan = ""
+                                        Else
+                                            flagAuto = ""
+                                            flagMan = "checked"
+                                        End if
+                                    End if
+                               %>
+                            <td>Version Number Assignment<%=Quick_Help("ChangeType")%></td>
+                            <td>
+                                <input name="version_type" id="version_type_A" type="radio" value="A" <%=flagAuto%> onclick="changeToAutoVersionNumberAssignment();"> Auto
+                                <input name="version_type" id="version_type_M" type="radio" value="M" <%=flagMan%> onclick="changeToManualVersionNumberAssignment();"> Manual
+                            </td>
+                         </tr>
+                         <!-- New Version Number -->
+                         <tr>
+                            <td>New Version Number</td>
+                            <td nowrap>
+                                <span>
+                                    <input type="text" id="FRvnumber"
+                                            name="FRvnumber"
+                                             size="12" onBlur="checkVersionNumber()">
+                                            <span id="vnError"></span>
+                                   <%If NOT newPackage> 0 Then%>
+                                      <button type="button" style="visibility:hidden" id="FRuseVersion" class="form_item" onclick="useVersion();">&#8656;&nbsp;Copy</button>
+                                      <select id="FRpkgver"  name="FRpkgver" class="form_item"  onchange="updateCopyButton()";>
+                                         <option value=""></option>
+                                         <%
+                                         Set rsLatest = OraDatabase.DbCreateDynaset( Get_Latest_All_Ext( objPkgInfo.Item("pkg_id"), parPv_id ), cint(0))
+                                         If rsLatest.RecordCount> 0 Then
+                                            aVersions = rsLatest.GetRows()
+                                            lastRow = UBound( aVersions, 2 )
+                                            Set objSortHelper = New SortHelper
+                                            ' Sort versions
+                                            Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsLatest.FieldIndex("pkg_version") )
+                                            ' Descending order
+                                            For i = lastRow To 0 Step -1
+                                            %>
+                                               <option value="<%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>" <%=aVersions( rsLatest.FieldIndex("selected"), i )%>>
+                                                  <%If aVersions( rsLatest.FieldIndex("dlocked"), i ) = "Y" Then%>
+                                                     R&nbsp;
+                                                  <%Else%>
+                                                     &nbsp;&nbsp;&nbsp;&nbsp;
+                                                  <%End If%>
+                                                  <%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>
+                                               </option>
+                                            <%
+                                            Next
+                                            Set objSortHelper = nothing
+                                         End If
+                                         %>
+                                      </select>&nbsp;Existing Versions<%=Quick_Help("Existing")%>
+                                   <%End If%>
+                                   </span>
+                            </td>
+                         </tr>
+                         <tr>
+                            <td>Version Extension</td>
+                            <td>
+                               <DIV id="divVersionExt" name="divVersionExt">
+                                  <select name="v_ext" id="v_ext" class="form_item" onchange="checkVersionNumber()">
+                                     <%Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), true )%>
+                                  </select>
+                               </DIV>
+                              <div id=cotsHint style="display:none">
+                                  <p>The version number for a COTS package should be made up of the manufactures version number with a VIX PatchBuild number appended.
+                                     ie: '1.12-beta.0000'
+                              </div>
+                            </td>
+                         </tr>
+                         <%If NOT parRename <> "" Then%>
+                         <!-- Reason For This Version -->
+                         <tr>
+                            <td>Reason For This Version</td>
+                            <td nowrap width="100%" class="form_field">
+                               <textarea name="FRreason" id="FRreason"  class="form_item" style="width: 420px; height: 150px" onBlur="checkReason()"></textarea>
+                                <span id="frError"></span>
+                            </td>
+                         </tr>
+                        <%End If%>
+                        <tr id="change_type1">
+                           <td nowrap>Change Type</td>
+                           <td>
+                              <table width="100%" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
-                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Package Name</td>
+                                    <td width="1%">
-                                   <% if newPackage > 0 OR bCanRenamePackage > 0 Then %>
+                                      <%If bPatchOnly Then majorState = "disabled" %>
-                                        <td background="images/bg_form_lightgray.gif" class="form_item">
+                                      <input name="change_type1" type="radio" value="M" <%=majorState%>>
+                                    </td>
+                                    <td nowrap>
-                                          <input type="text" id="FRpkgName" name="FRpkgName" class="form_item" size="40" value="<%=parPkgName%>" onBlur="checkPackage()">
+                                       <span class="form_field">Major Change</span>
-                                          <span id="cpError"></span>
+                                    </td>
-                                        </td>
+                                    <td>&nbsp;</td>
-                                    <% Else %>
+                                    <td>
-                                        <td background="images/bg_form_lightgray.gif" class="form_field"><%=parPkgName%></td>
+                                       <span>A major number change indicates the contract of the package has changed in a non-backwardly compatible manner.</span>
-                                    <% End If %>
+                                    </td>
                                  </tr>
-                                 <!--Base View -------------->
-                                 <% if newPackage > 0 Then %>
-                                    <tr>
-                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Base View</td>
-                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">
-                                           <select name="base_view_id" id="base_view_id" class="form_item" onBlur="checkBaseView()">
-                                              <option></option>
-                                              <%Call Get_All_Base_Views(parBase_view_id)%>
-                                           </select>
-                                           <span id="bvError"></span>
-                                        </td>
-                                     </tr>
-                                 <!--Personal View -------------->
-                                   <%If QStrPar("Pview") <> "disable" Then%>
-                                    <tr>
-                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Personal View</td>
-                                       <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
-                                          <select name="personal_view_id" class="form_item">
-                                             <option value="">None</option>
-                                             <%Call Get_All_Personal_Views(objAccessControl.UserId )%>
-                                          </select>
-                                       </td>
-                                    </tr>
-                                    <%End If%>
-                                    <!-- Software Licence ----------------->
-                                    <tr>
-                                       <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Software Licence<%=Quick_Help("Licence")%></td>
-                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">
-                                           <select name="licence_id" id="licence_id" class="form_item" onBlur="checkLicence()">
-                                              <option></option>
-                                              <%Call Get_All_Licences(-2)%>
-                                           </select>
-                                           <span id="liError"></span>
-                                        </td>
-                                    </tr>
-                                 <!--Dummy Line to highlight New Package Data -------------->
-                                    <tr>
-                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field"></td>
-                                        <td background="images/bg_form_lightbluedark.gif" class="form_field"></td>
-                                    </tr>
-                                 <% End If %>
-                                 <!-- Build Type Assignment ----------------->
                                  <tr>
-                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Build Type<%=Quick_Help("BuildType")%></td>
-                                    <td background="images/bg_form_lightgray.gif" class="form_txt">
+                                    <td colspan="4"><hr width="100%" size="1" noshade></td>
-                                    <table>
-                                        <tr>
-                                            <td background="images/bg_form_lightgray.gif" class="form_txt">
-                                            <input name="build_type1" id="build_type_A" type="radio" value="A" checked onclick="changeToAutoBuild('A');"> Auto
-                                            <input name="build_type1" id="build_type_M" type="radio" value="M" onclick="changeToAutoBuild('M');"> Manual
-                                        </td>
-                                        </tr>
-                                    </table>
                                  </tr>
-                                 <!--Version Number Assignment -------------->
                                  <tr>
-                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Number Assignment<%=Quick_Help("ChangeType")%></td>
-                                    <td background="images/bg_form_lightgray.gif" class="form_txt">
-                                       <%
+                                    <td width="1%">
-                                            Dim flagAuto, flagMan
-                                            if bDisableAuto Then
-                                                flagAuto = "disabled"
+                                      <%If bPatchOnly Then minorState = "disabled" %>
-                                                flagMan = "checked"
-                                            Else
-                                                If bIsAuto Then
-                                                    flagAuto = "checked"
-                                                    flagMan = ""
-                                                Else
-                                                    flagAuto = ""
-                                                    flagMan = "checked"
-                                                End if
-                                            End if
-                                       %>
-                                        <table>
-                                        <tr>
-                                            <td background="images/bg_form_lightgray.gif" class="form_txt">
+                                      <input name="change_type1" type="radio" value="N" <%=minorState%>>
-                                            <input name="version_type" id="version_type_A" type="radio" value="A" <%=flagAuto%> onclick="changeToAutoVersionNumberAssignment();"> Auto
-                                            <input name="version_type" id="version_type_M" type="radio" value="M" <%=flagMan%> onclick="changeToManualVersionNumberAssignment();"> Manual
-                                        </td>
-                                        </tr>
-                                        </table>
                                     </td>
-                                 </tr>
-                                 <!-- New Version Number -->
+                                    <td align="center" nowrap>
-                                 <tr>
-                                    <td background="images/bg_form_lightbluedark.gif"  width="20%" class="form_field">New Version Number</td>
-                                    <td background="images/bg_form_lightgray.gif" >
-                                        <span class="form_item">
+                                       <span class="form_field">Minor Change</span>
-                                            <input type="text" id="FRvnumber"
-                                                    name="FRvnumber"
-                                                    class="form_item" size="12" onBlur="checkVersionNumber()">
-                                                    <span id="vnError"></span>
-                                           <%If NOT newPackage > 0 Then%>
-                                              <button type="button" style="visibility:hidden" id="FRuseVersion" class="form_item" onclick="useVersion();">&#8656;&nbsp;Copy</button>
-                                              <select id="FRpkgver"  name="FRpkgver" class="form_item" onchange="updateCopyButton()";>
-                                                 <option value=""></option>
-                                                 <%
-                                                 Set rsLatest = OraDatabase.DbCreateDynaset( Get_Latest_All_Ext( objPkgInfo.Item("pkg_id"), parPv_id ), cint(0))
-                                                 If rsLatest.RecordCount > 0 Then
-                                                    aVersions = rsLatest.GetRows()
-                                                    lastRow = UBound( aVersions, 2 )
-                                                    Set objSortHelper = New SortHelper
-                                                    ' Sort versions
-                                                    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsLatest.FieldIndex("pkg_version") )
-                                                    ' Descending order
-                                                    For i = lastRow To 0 Step -1
-                                                    %>
-                                                       <option value="<%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>" <%=aVersions( rsLatest.FieldIndex("selected"), i )%>>
-                                                          <%If aVersions( rsLatest.FieldIndex("dlocked"), i ) = "Y" Then%>
-                                                             R&nbsp;
-                                                          <%Else%>
-                                                             &nbsp;&nbsp;&nbsp;&nbsp;
-                                                          <%End If%>
-                                                          <%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>
-                                                       </option>
-                                                    <%
-                                                    Next
-                                                    Set objSortHelper = nothing
-                                                 End If
-                                                 %>
-                                              </select>&nbsp;Existing Versions<%=Quick_Help("Existing")%>
-                                           <%End If%>
-                                           </span>
                                     </td>
-                                 </tr>
+                                    <td>&nbsp;</td>
-                                 <tr>
+                                    <td>
-                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Extension</td>
-                                    <td background="images/bg_form_lightgray.gif" class="form_item">
-                                       <DIV id="divVersionExt" name="divVersionExt">
-                                          <select name="v_ext" id="v_ext" onchange="checkVersionNumber()">
-                                             <%
-                                             Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), true )
-                                             %>
-                                          </select>
-                                       </DIV>
-									  <div id=cotsHint style="display:none">
-                                          <p>The version number for a COTS package should be made up of the manufactures version number with a VIX PatchBuild number appended.
+                                       <span>A minor number change indicates the contract of the package has changed in a backwardly compatible manner.</span>
-                                             ie: '1.12-beta.0000'
-									  </div>
                                     </td>
                                  </tr>
-                                 <%If NOT parRename <> "" Then%>
-                                 <!-- Reason For This Version -->
                                  <tr>
-                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Reason For This Version</td>
-                                    <td background="images/bg_form_lightgray.gif" nowrap width="100%" class="form_field">
-                                       <textarea name="FRreason" id="FRreason" class="form_item" style="width: 420px; height: 150px" onBlur="checkReason()"></textarea>
-                                        <span id="frError"></span>
+                                    <td colspan="4"><hr width="100%" size="1" noshade></td>
-                                    </td>
                                  </tr>
-                                <%End If%>
-                                <tr id="change_type1">
-                                   <td background="images/bg_form_lightbluedark.gif" nowrap width="20%" class="form_field">Change Type</td>
-                                   <td background="images/bg_form_lightgray.gif" >
-                                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
-                                         <tr>
-                                            <td width="1%">
-                                              <%If bPatchOnly Then majorState = "disabled" %>
-                                              <input name="change_type1" type="radio" value="M" <%=majorState%>>
-                                            </td>
-                                            <td nowrap>
-                                               <span class="form_field">Major Change</span>
-                                            </td>
-                                            <td>&nbsp;</td>
-                                            <td>
-                                               <span class="form_txt">A major number change indicates the contract of the package has changed in a non-backwardly compatible manner.</span>
-                                            </td>
-                                         </tr>
-                                         <tr>
-                                            <td colspan="4"><hr width="100%" size="1" noshade></td>
-                                         </tr>
-                                         <tr>
-                                            <td width="1%">
-                                              <%If bPatchOnly Then minorState = "disabled" %>
-                                              <input name="change_type1" type="radio" value="N" <%=minorState%>>
-                                            </td>
-                                            <td align="center" nowrap>
-                                               <span class="form_field">Minor Change</span>
-                                            </td>
-                                            <td>&nbsp;</td>
-                                            <td>
-                                               <span class="form_txt">A minor number change indicates the contract of the package has changed in a backwardly compatible manner.</span>
-                                            </td>
-                                         </tr>
-                                         <tr>
-                                            <td colspan="4"><hr width="100%" size="1" noshade></td>
-                                         </tr>
-                                         <tr>
-                                            <td width="1%">
-                                               <input name="change_type1" type="radio" value="P" <%=patchState%>>
-                                            </td>
-                                            <td nowrap>
-                                               <span class="form_field">Patch Change</span>
-                                            </td>
-                                            <td>&nbsp;</td>
-                                            <td>
-                                               <span class="form_txt">A patch number change indicates the package has changed internally.</span>
-                                            </td>
-                                         </tr>
-                                      </table>
-                                   </td>
-                                </tr>
                                  <tr>
+                                    <td width="1%">
-                                    <td nowrap><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
+                                       <input name="change_type1" type="radio" value="P" <%=patchState%>>
+                                    </td>
+                                    <td nowrap>
+                                       <span class="form_field">Patch Change</span>
+                                    </td>
+                                    <td>&nbsp;</td>
+                                    <td>
+                                       <span>A patch number change indicates the package has changed internally.</span>
-                                    <td></td>
+                                    </td>
                                  </tr>
-                                 <input type="hidden" name="change_type" id="change_type" value="X">
-                                 <input type="hidden" name="build_type" id="build_type" value="A">
-                                 <input type="hidden" name="FRnewver" id="FRnewver" value="hello">
-                                 <input type="hidden" name="OLDpv_id" value="<%=parPv_id%>">
-                                 <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
-                                 <input type="hidden" name="newPackage" value="<%=newPackage%>">
-                                 <input type="hidden" name="renamePackage" value="<%=bCanRenamePackage%>">
-                                 <input type="hidden" id="FRpkgId" name="FRpkgId" value="<%=parPkgId%>">
-                                 <%If NOT ((newPackage > 0) OR bCanRenamePackage > 0) Then %>
-                                 <input type="hidden" id="FRpkgName" name="FRpkgName" value="<%=parPkgName%>">
-                                 <%End If%>
                               </table>
                            </td>
                         </tr>
+                         <input type="hidden" name="change_type" id="change_type" value="X">
+                         <input type="hidden" name="build_type" id="build_type" value="A">
+                         <input type="hidden" name="FRnewver" id="FRnewver" value="hello">
+                         <input type="hidden" name="OLDpv_id" value="<%=parPv_id%>">
+                         <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
+                         <input type="hidden" name="newPackage" value="<%=newPackage%>">
+                         <input type="hidden" name="renamePackage" value="<%=bCanRenamePackage%>">
+                         <input type="hidden" id="FRpkgId" name="FRpkgId" value="<%=parPkgId%>">
+                         <%If NOT ((newPackage> 0) OR bCanRenamePackage> 0) Then %>
+                         <input type="hidden" id="FRpkgName" name="FRpkgName" value="<%=parPkgName%>">
+                         <%End If%>
+                      </table>
+<%If not isNull(parPv_id) Then
+                    Get_Newer_Versions
+                    If bNewerVersions Then%>
+                    <div class='textPanel warningPanel'>
+                        <img src="images/i_warning.gif" width="16" height="16">
+                         Newer versions of this package exist. Considerations:
+                        <select class=fright><%=sNewerVersionsOptions%></select>
-                        <tr>
+                         <ul>
-                           <td nowrap width="100%" class="body_scol">
+                             <li>Use the latest version instead</li>
-                              <input type="submit" name="btn" value="Submit" class="form_btn" onClick="return validateFormNEWversion();">
+                             <li>Branch the current version</li>
-                              <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="Dependency();">
+                             <li>Base the 'new' version on the latest version</li>
+                         </ul>
+                    </div>
+                   <%End If
+End If%>
+                    <div class=buttonPanelWhite>
-                              <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
+                      <span id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</span>
+                      <input type="submit" name="btn" value="Submit" class="form_btn" onClick="return validateFormNEWversion();">
+                      <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="Dependency();">
-                           </td>
+                    </div>
-                        </tr>
+                    <div class='textPanel err_alert'>
-                        <tr><td id="eMessage" colspan=3 class="err_alert">ERROR: Page Java script did not load</td></tr>
+                        <span id="eMessage">ERROR: Page Java script did not load</span>
-                     </form>
+                 </form>
-                  </table>
+              </table>
-                  <!-- END Body-->
+              <!-- END Body-->
-               </td>
             </tr>
-         </table>
+         </div>
       </td>
    </tr>
 </table>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/_form_new_version_page.asp – Rev 6874 → 7001