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

 parPv_id = QStrPar("pv_id")
 parRfile = QStrPar("rfile")
 Set objPkgInfo = CreateObject("Scripting.Dictionary")
 '-----------------------------------------------------------------------------------------------------------------------------
 Sub GetPackageInfo( nPvId, outPkgInfo )
-  Dim rsTemp, Query_String
+   Dim rsTemp, Query_String
-  If IsEmpty(nPvId) Then Exit Sub
+   If IsEmpty(nPvId) Then Exit Sub
-  Query_String = _
+   Query_String = _
-  " SELECT pv.pv_id, pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, pv.build_type"&_
+   " SELECT pv.pv_id, pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.v_ext, pv.build_type"&_
-  "  FROM packages pkg, package_versions pv"&_
+   "  FROM packages pkg, package_versions pv"&_
-  " WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& nPvId
+   " WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& nPvId
-  Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
-  If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
+   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
-    outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")
+      outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")
-    outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")
+      outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")
-    outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")
+      outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")
-    outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")
+      outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")
-    outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")
+      outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")
-    outPkgInfo.Item("build_type") = rsTemp.Fields("build_type")
+      outPkgInfo.Item("build_type") = rsTemp.Fields("build_type")
-    If rsTemp.Fields("build_type") = "M" Then
+      If rsTemp.Fields("build_type") = "M" Then
-      objPkgInfo.Item("M_checked") = "checked"
+         objPkgInfo.Item("M_checked") = "checked"
-      objPkgInfo.Item("A_checked") = ""
+         objPkgInfo.Item("A_checked") = ""
-      objPkgInfo.Item("M_display") = "style='display:inline;'"
+         objPkgInfo.Item("M_display") = "style='display:inline;'"
-      objPkgInfo.Item("A_display") = "style='display:none;'"
+         objPkgInfo.Item("A_display") = "style='display:none;'"
-    ElseIf rsTemp.Fields("build_type") = "A" Then
+      ElseIf rsTemp.Fields("build_type") = "A" Then
-      objPkgInfo.Item("M_checked") = ""
+         objPkgInfo.Item("M_checked") = ""
-      objPkgInfo.Item("A_checked") = "checked"
+         objPkgInfo.Item("A_checked") = "checked"
-      objPkgInfo.Item("M_display") = "style='display:none;'"
+         objPkgInfo.Item("M_display") = "style='display:none;'"
-      objPkgInfo.Item("A_display") = "style='display:inline;'"
+         objPkgInfo.Item("A_display") = "style='display:inline;'"
-    End If
+      End If
-  End If
+   End If
-  rsTemp.Close
+   rsTemp.Close
-  Set rsTemp = nothing
+   Set rsTemp = nothing
 End Sub
 '-----------------------------------------------------------------------------------------------------------------------------
 Function GetVersionNumber(SSpkg_version, SSv_ext)
-  Dim versionNumber
+   Dim versionNumber
-  If SSv_ext <> "" Then
+   If SSv_ext <> "" Then
-    versionNumber = Replace(SSpkg_version, SSv_ext, "")
+      versionNumber = Replace(SSpkg_version, SSv_ext, "")
-  Else
+   Else
-    versionNumber = SSpkg_version
+      versionNumber = SSpkg_version
-  End If
+   End If
-  GetVersionNumber = versionNumber
+   GetVersionNumber = versionNumber
 End Function
 '-----------------------------------------------------------------------------------------------------------------------------
 Sub Rename_Pkg_Version ( NNpv_id, SSnewVersion, errMessage )
-  OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
-  OraDatabase.Parameters.Add "NNpv_id", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "NNpv_id", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
-  If Request("build_type") = "M" Then
-    ' Manual build
-    OraDatabase.Parameters.Add "SSpkg_version",  SSnewVersion & Request("v_ext"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
-  Else
-    ' Automated Build
-    OraDatabase.Parameters.Add "SSpkg_version",  Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
+   If Request("build_type") = "M" Then
+      ' Manual build
+      OraDatabase.Parameters.Add "SSpkg_version",  SSnewVersion & Request("v_ext"),      ORAPARM_INPUT, ORATYPE_VARCHAR2
-  End If
+   Else
+      ' Automated Build
+      OraDatabase.Parameters.Add "SSpkg_version",  Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
-  OraDatabase.Parameters.Add "BUILD_TYPE", Request("build_type"), ORAPARM_INPUT, ORATYPE_CHAR
-  OraDatabase.Parameters.Add "NNuser_id", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
+   End If
+   OraDatabase.Parameters.Add "BUILD_TYPE", Request("build_type"), ORAPARM_INPUT, ORATYPE_CHAR
+   OraDatabase.Parameters.Add "NNuser_id", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
-  OraDatabase.Parameters.Add "errMessage", 0, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
+   OraDatabase.Parameters.Add "errMessage", 0, ORAPARM_OUTPUT, ORATYPE_VARCHAR2
-  OraSession.BeginTrans
-  OraDatabase.ExecuteSQL _
+   objEH.TryORA ( OraSession )
-  "BEGIN Rename_Package_Version ( :NNpv_id,"&_
+   On Error Resume Next
-  "                               :SSpkg_version,"&_
-  "                               :BUILD_TYPE,"&_
-  "                               :NNuser_id,"&_
-  "                               :errMessage ); END;"
+   OraDatabase.ExecuteSQL _
+   "BEGIN Rename_Package_Version ( :NNpv_id,"&_
+   "                               :SSpkg_version,"&_
+   "                               :BUILD_TYPE,"&_
+   "                               :NNuser_id,"&_
+   "                               :errMessage ); END;"
-  'OraDatabase.ExecuteSQL _
+   objEH.CatchORA ( OraSession )
-  '    "BEGIN "&_
-  '  " Reset_Ignore_Warnings ( :NNpv_id, :RTAG_ID, :NNuser_id );"&_
-  '  " Touch_Release ( :RTAG_ID ); "&_
-  '  "END; "
-  errMessage = OraDatabase.Parameters("errMessage").Value
+   errMessage = OraDatabase.Parameters("errMessage").Value
-  OraSession.CommitTrans
-  OraDatabase.Parameters.Remove "RTAG_ID"
+   OraDatabase.Parameters.Remove "RTAG_ID"
-  OraDatabase.Parameters.Remove "NNpv_id"
+   OraDatabase.Parameters.Remove "NNpv_id"
-  OraDatabase.Parameters.Remove "SSpkg_version"
+   OraDatabase.Parameters.Remove "SSpkg_version"
-  OraDatabase.Parameters.Remove "NNuser_id"
+   OraDatabase.Parameters.Remove "NNuser_id"
-  OraDatabase.Parameters.Remove "errMessage"
+   OraDatabase.Parameters.Remove "errMessage"
-  OraDatabase.Parameters.Remove "BUILD_TYPE"
+   OraDatabase.Parameters.Remove "BUILD_TYPE"
 End Sub
 '-----------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 '-----------------------  MAIN LINE  ---------------------------
 '--- Process submition ---
 If CBool(QStrPar("action")) AND  objAccessControl.UserLogedIn  Then
-  Call Rename_Pkg_Version ( parPv_id, Request("FRnewver"), errMessage )
+   Call Rename_Pkg_Version ( parPv_id, Request("FRnewver"), errMessage )
-  If NOT IsNull(errMessage) Then
+   If NOT IsNull(errMessage) Then
-    Call RaiseMsgInParent ( Eval(errMessage), parRtag_id &"|"& parPv_id)
+      Call RaiseMsgInParent ( Eval(errMessage), parRtag_id &"|"& parPv_id)
-  Else
+   Else
-    Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
+      Call OpenInParentWindow ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
-  End If
+   End If
-  Call CloseWindow
+   Call CloseWindow
 End If
 %>
 <%Call GetPackageInfo( parPv_id, objPkgInfo )%>
 <html>
 <head>
 <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 <link rel="stylesheet" href="images/navigation.css" type="text/css">
 <script language="JavaScript" src="images/common.js"></script>
 <script language="JavaScript" type="text/JavaScript">
 <!--
-  function validateVersion()
+   function validateVersion()
-  {
+   {
-    var versionBase = document.getElementsByName('FRnewver')[0].value;
+      var versionBase = document.getElementsByName('FRnewver')[0].value;
-    var exts = document.getElementsByName('v_ext')[0]
+      var exts = document.getElementsByName('v_ext')[0]
-	var versionExt =  exts.options[exts.options.selectedIndex].value
+      var versionExt =  exts.options[exts.options.selectedIndex].value
-    var typeButtons = document.getElementsByName('build_type');
+      var typeButtons = document.getElementsByName('build_type');
-	var isAutobuild = typeButtons[1].checked;
+      var isAutobuild = typeButtons[1].checked;
-	document.MM_returnValue = MM_ValidateVersion(null, versionBase, versionExt, isAutobuild);
+      document.MM_returnValue = MM_ValidateVersion(null, versionBase, versionExt, isAutobuild);
-    return document.MM_returnValue;
+      return document.MM_returnValue;
-  }
+   }
-  // Change the elements displayed on the page depending on the build type selected.
+   // Change the elements displayed on the page depending on the build type selected.
-  function configurePage(buildType)
+   function configurePage(buildType)
-  {
+   {
-    var typeButtons = document.getElementsByName('build_type');
+      var typeButtons = document.getElementsByName('build_type');
-    if (buildType == "M")
+      if (buildType == "M")
-    {
+      {
-      Visible ('divVersionNumber','inline', 'divAutoVersion','none');
+         Visible ('divVersionNumber','inline', 'divAutoVersion','none');
-      typeButtons[0].checked = true;
+         typeButtons[0].checked = true;
-      addCots();
+         addCots();
-    }
+      }
-    else if (buildType == "A")
+      else if (buildType == "A")
-    {
+      {
-      Visible ('divVersionNumber','none', 'divAutoVersion','inline');
+         Visible ('divVersionNumber','none', 'divAutoVersion','inline');
-      typeButtons[1].checked = true;
+         typeButtons[1].checked = true;
-      removeCots();
+         removeCots();
-    }
+      }
-  }
+   }
-  // Add .cots extension to the list of extensions as it's not included in the intial query results.
+   // Add .cots extension to the list of extensions as it's not included in the intial query results.
-  function addCots()
+   function addCots()
-  {
+   {
-    var exts = document.getElementsByName('v_ext')[0];
+      var exts = document.getElementsByName('v_ext')[0];
-    for (index = 0; index < exts.length - 1; index++)
+      for (index = 0; index < exts.length - 1; index++)
-    {
-      // Loop through extensions to see where .cots should go and insert it there
-      if (exts.options[index].value.toLowerCase() < '.cots' && exts.options[index + 1].value.toLowerCase() > '.cots')
+      {
+         // Loop through extensions to see where .cots should go and insert it there
+         if (exts.options[index].value.toLowerCase() < '.cots' && exts.options[index + 1].value.toLowerCase() > '.cots')
+         {
-        var newOption = document.createElement('option');
+            var newOption = document.createElement('option');
-        newOption.text = '.cots';
+            newOption.text = '.cots';
-        newOption.value = '.cots';
+            newOption.value = '.cots';
-        try
+            try
-        {
+            {
-          exts.add(newOption, exts.options[index + 1]); // standards compliant
+               exts.add(newOption, exts.options[index + 1]); // standards compliant
-        }
+            }
-        catch(ex)
+            catch(ex)
-        {
+            {
-          exts.add(newOption, index + 1); // IE only
+               exts.add(newOption, index + 1); // IE only
+            }
-        }
+         }
+      }
-    }
+   }
+   // Remove the .cots extension from the list of extensions.
+   function removeCots()
-  }
+   {
+      var exts = document.getElementsByName('v_ext')[0];
-  // Remove the .cots extension from the list of extensions.
-  function removeCots()
-  {
-    var exts = document.getElementsByName('v_ext')[0];
-    for (index = 0; index < exts.length; index++)
+      for (index = 0; index < exts.length; index++)
-    {
-      if (exts.options[index].value == '.cots')
+      {
+         if (exts.options[index].value == '.cots')
+         {
-        exts.remove(index);
+            exts.remove(index);
+         }
+      }
-    }
+   }
+   // Change the selected extensions in the list to the existing package extension.
+   function selectExtension(extension)
-  }
+   {
+      var exts = document.getElementsByName('v_ext')[0];
+      // Set the first option as selected by default
+      exts.options[0].selected = true;
-  // Change the selected extensions in the list to the existing package extension.
-  function selectExtension(extension)
-  {
-    var exts = document.getElementsByName('v_ext')[0];
-    // Set the first option as selected by default
-    exts.options[0].selected = true;
-    for (index = 0; index < exts.length; index++)
+      for (index = 0; index < exts.length; index++)
-    {
-      if (exts.options[index].value == extension)
+      {
+         if (exts.options[index].value == extension)
+         {
-        exts.options[index].selected = true;
+            exts.options[index].selected = true;
+         }
+      }
-    }
+   }
-  }
 //-->
 </script>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();configurePage('<%=objPkgInfo("build_type")%>');selectExtension('<%=objPkgInfo("v_ext")%>');">
 <form name="renameversion" method="post" action="<%=scriptName%>" onsubmit="return validateVersion();">
-  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
+   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
-    <tr>
+      <tr>
-      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_off.gif" width="18" height="23" hspace="5" border="0"></td>
+         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_new_off.gif" width="18" height="23" hspace="5" border="0"></td>
-      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Reversion Package </td>
+         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Reversion Package </td>
-      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
+         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
-        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
+            <input type="submit" name="btn" value="Submit" class="form_btn_comp">
-        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
+            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
-      </td>
+         </td>
-      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
+         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
-        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
+         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
-    </tr>
+      </tr>
-    <tr>
+      <tr>
-      <td height="100%" width="1%">&nbsp;</td>
+         <td height="100%" width="1%">&nbsp;</td>
-      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
+         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
-        <table width="100%" border="0" cellspacing="1" cellpadding="2">
+         <table width="100%" border="0" cellspacing="1" cellpadding="2">
-          <tr>
+            <tr>
-            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
+               <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
-            <td width="1%" nowrap class="form_group" valign="bottom"></td>
+               <td width="1%" nowrap class="form_group" valign="bottom"></td>
-            <td nowrap width="100%"></td>
+               <td nowrap width="100%"></td>
-          </tr>
+            </tr>
-          <tr>
+            <tr>
-            <td width="1%">&nbsp;</td>
+               <td width="1%">&nbsp;</td>
-            <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
+               <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Package</td>
-            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objPkgInfo.Item("pkg_name")%></td>
+               <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objPkgInfo.Item("pkg_name")%></td>
-          </tr>
+            </tr>
-          <tr>
+            <tr>
-            <td>&nbsp;</td>
+               <td>&nbsp;</td>
-            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;</td>
+               <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">&nbsp;</td>
-            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
+               <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
-        <input name="build_type" type="radio" value="M" onclick="configurePage('M')"> Manual Build
+                  <input name="build_type" type="radio" value="M" onclick="configurePage('M')"> Manual Build
-        <input name="build_type" type="radio" value="A" onclick="configurePage('A')"> Automated Build
+                  <input name="build_type" type="radio" value="A" onclick="configurePage('A')"> Automated Build
-      </td>
+               </td>
-          </tr>
+            </tr>
-          <tr>
+            <tr>
-            <td>&nbsp;</td>
+               <td>&nbsp;</td>
-            <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Version</td>
+               <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Version</td>
-           <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
+               <td nowrap background="images/bg_form_lightbluedark.gif" class="form_txt">
-            <DIV id="divVersionNumber" name="divVersionNumber">
+                  <DIV id="divVersionNumber" name="divVersionNumber">
-            <input type="text" name="FRnewver" class="form_item" size="10" value="<%=GetVersionNumber(objPkgInfo.Item("pkg_version"), objPkgInfo.Item("v_ext"))%>">
+                     <input type="text" name="FRnewver" class="form_item" size="10" value="<%=GetVersionNumber(objPkgInfo.Item("pkg_version"), objPkgInfo.Item("v_ext"))%>">
-            </DIV>
+                  </DIV>
-            <div id="divAutoVersion" name="divAutoVersion">(auto-number)</div>
+                  <div id="divAutoVersion" name="divAutoVersion">(auto-number)</div>
-              <div id="divVersionExtension" name="divVersionExtension" style="display:inline;">
+                  <div id="divVersionExtension" name="divVersionExtension" style="display:inline;">
-              <select name="v_ext" id="v_ext" class="form_item">
+                     <select name="v_ext" id="v_ext" class="form_item">
-			  <%
+                        <%
-              Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), false )
+                        Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), false )
-              %>
+                        %>
-              </select>
+                     </select>
-              </div>
+                  </div>
-            </td>
+               </td>
-          </tr>
+            </tr>
-          <tr>
+            <tr>
-            <td width="1%">&nbsp;</td>
+               <td width="1%">&nbsp;</td>
-            <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
+               <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
-            <td nowrap width="100%"> <p>&nbsp;</p></td>
+               <td nowrap width="100%"> <p>&nbsp;</p></td>
-          </tr>
+            </tr>
-        </table>
+         </table>
-      </td>
+         </td>
-    </tr>
+      </tr>
-    <tr>
+      <tr>
-      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
+         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
-      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
+         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
-    </tr>
+      </tr>
-  </table>
+   </table>
 <input type="hidden" name="pv_id" value="<%=parPv_id%>">
 <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
 <input type="hidden" name="rfile" value="<%=parRfile%>">
 <input type="hidden" name="action" value="true">
 </form>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_rename_version.asp @ 129 – Rev 121 → 129