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

 Dim minorState
 Dim patchState
 Dim parBase_view_id
 Dim verNumber
 Dim parPkgName
+Dim parRename
+Dim rFile
 '------------ Constants Declaration -----------
-'------------ Variable Init -------------------
-parPv_id = QStrPar("pv_id")
-parBase_view_id = Request("base_view_id")
-parPkgName = QStrPar("pkgName")
-parPage_title = "NEW VERSION"
-If ( parPkgName <> "" ) Then
-    newPackage = 1
-    parPv_id = NULL
-Else
-    newPackage = 0
-End if
-majorState = ""
-minorState = ""
-patchState = "checked"
-Set objPkgInfo = CreateObject("Scripting.Dictionary")
 '-----------------------------------------------------------------------------------------------------------------------------
 Sub GetPackageInfo( nPvId, outPkgInfo )
    Dim rsTemp, Query_String
    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"&_
+   " SELECT pv.pv_id, pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, pv.change_type, pv.build_type"&_
    "  FROM packages pkg, package_versions pv"&_
    " WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& nPvId
    Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
    If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
       outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")
       outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")
       outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")
       outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")
+      outPkgInfo.Item("change_type") = rsTemp.Fields("change_type")
+      outPkgInfo.Item("build_type") = rsTemp.Fields("build_type")
       if rsTemp.Fields("v_ext") <> "" Then
         outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")
       Else
         outPkgInfo.Item("v_ext") = ""
       End If
 %>
 <%
 '===================== MAIN LINE ============================
 Dim bDisableAuto, bPatchOnly, bIsCots, bIsAuto
+'------------ Variable Init -------------------
+parPv_id = QStrPar("pv_id")
+parBase_view_id = Request("base_view_id")
+parPkgName = QStrPar("pkgName")
+parRename = QStrPar("renameMode")
+rFile = QStrPar("rFile")
+If IsEmpty(rFile) OR rFile = "" Then
+    rFile="dependencies.asp"
+End If
+newPackage = 0
+parPage_title = "NEW VERSION"
+If ( parPkgName <> "" ) Then
+    newPackage = 1
+    parPv_id = NULL
+End if
+majorState = ""
+minorState = ""
+patchState = "checked"
+Set objPkgInfo = CreateObject("Scripting.Dictionary")
+If parRename <> "" Then
+    parPage_title = "RENAME VERSION"
+    ' Package already exists
+    Call GetPackageInfo( parPv_id, objPkgInfo )
+    parPkgName = objPkgInfo.Item("pkg_name")
+    ' Extract version number without extension
+    verNumber = objPkgInfo.Item("pkg_version")
+    verNumber = Mid( verNumber,1, Len(verNumber) - Len(objPkgInfo.Item("v_ext")))
+    bIsCots = HasCotsExtension(objPkgInfo.Item("v_ext"))
+    'Disable the "Auto" build option if the package is a COTS package and the version doesn't have a patch-build number.
+    bDisableAuto = bIsCots and not HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))
+    'Enable only the "Patch Change" option if the package is a COTS package and the version has a patch-build number.
+    bPatchOnly = bIsCots and not HasWellFormedVersion(objPkgInfo.Item("pkg_version")) and HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))
+    ' Use existing change type and build type
+    bIsAuto = objPkgInfo.Item("build_type") = "A" AND NOT bDisableAuto
+    majorState = ""
+    minorState = ""
+    patchState = ""
+    If objPkgInfo.Item("change_type") = "M" Then
+        majorState = "checked"
+    ElseIf objPkgInfo.Item("change_type") = "N" Then
+        minorState = "checked"
+    Else
+        patchState = "checked"
+    End If
-If NOT (newPackage > 0 ) Then
+ElseIf NOT (newPackage > 0 ) Then
+    ' Package already exists
     Call GetPackageInfo( parPv_id, objPkgInfo )
     parPkgName = objPkgInfo.Item("pkg_name")
     ' Extract version number without extension
     verNumber = objPkgInfo.Item("pkg_version")
         removeClass(document.getElementById('FRreason'), 'form_error' );
         //setIdText('frError','');
+    }
+}
+<%If parRename <> "" Then%>
+function getCheckedRadio(radio_group) {
+    for (var i = 0; i < radio_group.length; i++) {
+        var button = radio_group[i];
+        if (button.checked) {
+            return button;
+        }
+    }
+    return undefined;
+}
+function updateVersionInfo()
+{
+   reseteMessage();
+    xmlHttp=GetXmlHttpObject(updateVersionInfoDone);
+    if (xmlHttp==null)
+    {
+        alert ("Your browser does not support AJAX!");
+        return;
+    }
+    var url = "_json_updateVersion.asp?"
+            + "packageName=" + document.getElementById('FRpkgName').value
+            + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value
+            + "&buildType=" + getCheckedRadio(document.forms.NEWversion.elements.build_type).value
+            + "&changeType=" + getCheckedRadio(document.forms.NEWversion.elements.change_type).value
+            + "&rtagId=" + document.all['rtag_id'].value
+            + "&pvId=" + document.all['OLDpv_id'].value
+            + "&vExt=" + document.all['v_ext'].value
+            + "&Opr=updateVer";
+    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;
+            myJson.SqlQry = '';
+        }
+        if(myJson.error)
+        {
+            showeMessage(myJson.emsgDetails);
+            fieldError = true;
+        }
+        else if(myJson.result != 0)
+        {
+            showeMessage('Error changing version number');
+            fieldError = true;
+        }
+        MM_hideProgressBar();
+    }
+}
+<%End If%>
 function reseteMessage()
+{
     if (checkMode == 0 )
+    {
         setIdText('eMessage','');
 <script>
 function Dependency()
+{
+<%If parRename <> "" Then%>
+   parent.window.close();
-<%If newPackage > 0 Then%>
+<%ElseIf newPackage > 0 Then%>
-   parent.window.location.href="dependencies.asp?rtag_id=<%=parRtag_id%>";
+   parent.window.location.href="<%=rFile%>?rtag_id=<%=parRtag_id%>";
 <%Else%>
-   parent.window.location.href="dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>";
+   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
         fieldError = false;
         checkMode = 1;
         checkPackage();
         checkBaseView();
         checkVersionNumber();
+        <%If NOT parRename <> "" Then%>
         checkReason();
+        <%End If%>
         if (!fieldError)
+        {
             MM_showProgressBar();
+            <%If parRename <> "" Then%>
+                updateVersionInfo();
+                if (!fieldError)
+                {
+                    parent.window.close();
+                    window.opener.document.location='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
+                    return true;
+                }
+            <%Else%>
-            f.action='_new_version.asp';
+                f.action='_new_version.asp';
-            parent.window.location.href='dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
+                parent.window.location.href='<%=rFile%>?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
-            return true;
+                return true;
+            <%End If%>
+        }
+    }
     // Hide progress bar that is exposed because the previous tests were OK
     MM_hideProgressBar();
                                              %>
                                           </select>
                                        </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>
                                  </tr>
+                                <%End If%>
                                 <tr id="change_type">
                                    <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>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_form_new_version_page.asp @ 4198 – Rev 4062 → 4198