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

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|  form_edit_deps.asp
-'|	Used by JATS and ANT import pages to sanitize the package versions to be used
+'|  Used by JATS and ANT import pages to sanitize the package versions to be used
-'|  	Do not allow user to name packages that do not exist
+'|      Do not allow user to name packages that do not exist
-'|  	Do not allow the user to name package-versions that do not exist
+'|      Do not allow the user to name package-versions that do not exist
-'|	Used by Edit Dependencies button
+'|  Used by Edit Dependencies button
-'|		Restrict users to versions that exist
+'|      Restrict users to versions that exist
 '|
 '=====================================================
 %>
 <%
 Option explicit
 ' Good idea to set when using redirect
-Response.Expires = 0	' always load the page, dont store
+Response.Expires = 0    ' always load the page, dont store
 %>
 <!--#include file="common/conf.asp"-->
 <!--#include file="common/globals.asp"-->
 <!--#include file="common/formating.asp"-->
 <!--#include file="common/qstr.asp"-->
 <!--#include file="common/common_subs.asp"-->
 <%
 ' Make sure rtag_id is always present
 If Request("pv_id") = "" Then
-	Response.Redirect("index.asp")
+    Response.Redirect("index.asp")
 End If
 %>
 <%
 '------------ ACCESS CONTROL ------------------
 %>
    '    AntStyle('PackageName','PackageVersion');
    re.Pattern = "(^|\n)\s*([_A-Za-z0-9]+)\s*\(\s*\'([^\']*)\'\s*\,\s*\'([^\']*)\'\s*\)"
    Set Matches = re.Execute(SSdep_import)
-	Query_String = ReadFile( rootPath & "queries\form_edit_import_deps.sql" )
+    Query_String = ReadFile( rootPath & "queries\form_edit_import_deps.sql" )
-	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 "PKG_NAME", pkg_name , ORAPARM_INPUT, ORATYPE_STRING
+    OraDatabase.Parameters.Add "PKG_NAME", pkg_name , ORAPARM_INPUT, ORATYPE_STRING
-	OraDatabase.Parameters.Add "PKG_VERSION", pkg_version, ORAPARM_INPUT, ORATYPE_STRING
+    OraDatabase.Parameters.Add "PKG_VERSION", pkg_version, ORAPARM_INPUT, ORATYPE_STRING
-	Set OraParameter = OraDatabase.Parameters
+    Set OraParameter = OraDatabase.Parameters
    recCnt=0
    For Each Match in Matches
      build_type = Match.SubMatches(1)
      pkg_name = Match.SubMatches(2)
          Set rsDeps = OraDatabase.DbCreateDynaset( Query_String, cint(0))
          If rsDeps.RecordCount <> 0 Then
             SShtml_pkg_list = SShtml_pkg_list & GenerateEntry( recCnt, rsDeps("pkg_id"), rsDeps("pv_id"), rsDeps("pkg_name"), rsDeps("pkg_version"), builtTypeEnum, rsDeps("lpkg_version"))
             recCnt = recCnt + 1
-		    DataFound = true
+            DataFound = true
          End If
+         rsDeps.Close
+         Set rsDeps = Nothing
      End If
    Next
-	OraDatabase.Parameters.Remove "RTAG_ID"
+    OraDatabase.Parameters.Remove "RTAG_ID"
-	OraDatabase.Parameters.Remove "PKG_NAME"
+    OraDatabase.Parameters.Remove "PKG_NAME"
-	OraDatabase.Parameters.Remove "PKG_VERSION"
+    OraDatabase.Parameters.Remove "PKG_VERSION"
     Set OraParameter = Nothing
-    rsDeps.Close
-    Set rsDeps = Nothing
 End Sub
 '-------------------------------------------------
 ' Function:     Populate_from_Package
 ' Description:  Generate the body of the display based on package-versions in the current package
+'
 Sub Populate_from_Package( NNpv_id, nRtag_id, SShtml_pkg_list, BBDataFound )
-	Dim rsDeps, Query_String
+    Dim rsDeps, Query_String
     BBDataFound = FALSE
     recCnt = 0
-	Query_String = ReadFile( rootPath & "queries\edit_dependencies.sql" )
+    Query_String = ReadFile( rootPath & "queries\edit_dependencies.sql" )
-	OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "RTAG_ID", nRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
-	OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "PV_ID", NNpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
-	Set rsDeps = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+    Set rsDeps = OraDatabase.DbCreateDynaset( Query_String, cint(0))
-	While ((NOT rsDeps.BOF) AND (NOT rsDeps.EOF))
+    While ((NOT rsDeps.BOF) AND (NOT rsDeps.EOF))
         SShtml_pkg_list = SShtml_pkg_list & GenerateEntry( recCnt, rsDeps("pkg_id"), rsDeps("pv_id"), rsDeps("pkg_name"), rsDeps("pkg_version"), rsDeps("build_type"), rsDeps("lpkg_version"))
         recCnt = recCnt + 1
         BBDataFound = TRUE
-		rsDeps.MoveNext
+        rsDeps.MoveNext
-	WEnd
+    WEnd
-	OraDatabase.Parameters.Remove "RTAG_ID"
+    OraDatabase.Parameters.Remove "RTAG_ID"
-	OraDatabase.Parameters.Remove "PV_ID"
+    OraDatabase.Parameters.Remove "PV_ID"
 End Sub
 '-------------------------------------------------
 ' Function:    GenerateEntry
 ' Description: Generate one line of the import display
 If (Request("action") = "TextImport") Then
     Call Populate_from_Import ( Request("FRdeps"), HTML_pkg_list, DataFound )
 Else
     Call Populate_from_Package ( parPv_id, parRtag_id, HTML_pkg_list, DataFound )
     If Not DataFound Then
-       	Response.Redirect ("form_search_pkgs.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&add_type="& enum_ADD_DEPENDENCIES)
+        Response.Redirect ("form_search_pkgs.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"&add_type="& enum_ADD_DEPENDENCIES)
     End If
 End If
 %>
 <html>
 <head>
 // When the page is loaded
 window.onload = scanBadData;
 // ValidateForm
 function ValidateForm(){
-	return scanBadData();
+    return scanBadData();
+}
-//	Scan the form for bad entries and update the 'Update' button accordingly
+//  Scan the form for bad entries and update the 'Update' button accordingly
 function scanBadData() {
-	var elem = MM_findObj("btn_update")
+    var elem = MM_findObj("btn_update")
-	var rv = false;
+    var rv = false;
-	if (elem) {
+    if (elem) {
-		rv = document.getElementsByClassName("badPackage").length == 0;
+        rv = document.getElementsByClassName("badPackage").length == 0;
-		elem.disabled = !rv;
+        elem.disabled = !rv;
-	}
+    }
+}
 //  Update all packages to latest version
 function MergeAll() {
     var recId;
     for (recId=0; recId<<%=recCnt%>;recId++) {
-		Merge_Version(recId);
+        Merge_Version(recId);
-	}
+    }
+}
 // Restore original value
 function Merge_Version (recId) {
     endEditVerNum(recId);
     var ediv = MM_findObj("divLPV"+ recId.toString() );
     var epkg = MM_findObj("pkgn"+ recId.toString() );
-	var lpkg_version;
+    var lpkg_version;
-	el = MM_findObj( "lp" + recId.toString() );
+    el = MM_findObj( "lp" + recId.toString() );
-	if (el) {
+    if (el) {
-		lpkg_version = el.value;
+        lpkg_version = el.value;
-		if(epkg) epkg.value = lpkg_version;
+        if(epkg) epkg.value = lpkg_version;
-	}
+    }
     if(ediv) ediv.style.display = "none";
     var ebad = MM_findObj("divBver"+ recId.toString() );
     if(ebad) ebad.parentElement.removeChild(ebad);
-	scanBadData();
+    scanBadData();
+}
 // Highlight diff between release and user selection
 function Compare_Version ( recId ) {
-	var cv, lv, el;
+    var cv, lv, el;
     el = MM_findObj( "pkgn" + recId.toString() );
-	cv = (el) ? el.value : 0;
+    cv = (el) ? el.value : 0;
-	el = MM_findObj( "lp" + recId.toString() );
+    el = MM_findObj( "lp" + recId.toString() );
-	if (el)
+    if (el)
-	{
+    {
-		lv = el.value;
+        lv = el.value;
-		var ediv = MM_findObj("divLPV"+ recId.toString() );
+        var ediv = MM_findObj("divLPV"+ recId.toString() );
-		if (ediv)
+        if (ediv)
-		{
+        {
-			ediv.style.display = (cv == lv) ? 'none' : 'block';
+            ediv.style.display = (cv == lv) ? 'none' : 'block';
-		}
+        }
-	}
+    }
+}
 // Edit the version number
 var editData = new Object();
 function editVerNum(NNpkg_id, recId)
     // Show edit element and hide the fixed text
     elem.style.display = 'none';
     elemed.style.display = '';
-	// Delete the bad version indication
+    // Delete the bad version indication
     var ebad = MM_findObj("divBver"+ recId.toString() );
     if(ebad) ebad.parentElement.removeChild(ebad);
     // Populate essential fields
     elemed.onchange = function(){editUpdate(recId);}
     np.elem = elem;
     np.Value = elem.value;
     // Load version data into this new element
     getVersions(NNpkg_id, recId);
-	scanBadData();
+    scanBadData();
+}
 function editUpdate(recId)
+{
     var sd = editData[recId];
     sd.elem.value = sd.edit.value;
     Compare_Version(recId);
-	scanBadData();
+    scanBadData();
+}
 // Globals are used to save state information
 function endEditVerNum(recId)
+{
         sd.edit.style.display = 'none';
         sd.elem.style.display = '';
         delete editData[recId];
+    }
-	scanBadData();
+    scanBadData();
+}
 // Allow the user to populate the version selector box
 // Enables the selector once its been populated
 // Uses AJAX to populate the item on demand
               <tr>
                 <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
                 <td bgcolor="#FFFFFF" valign="top">
                   <!-- Body -->
                   <table width="100%" border="0" cellspacing="1" cellpadding="2">
-				    <form name="editdep" method="post" action="_update_dependencies.asp" onSubmit="return ValidateForm();">
+                    <form name="editdep" method="post" action="_update_dependencies.asp" onSubmit="return ValidateForm();">
-				      <tr>
+                      <tr>
                         <td colspan="2" width="1%" nowrap class="form_field"><%=pkgInfoHash.Item ("pkg_name")%>&nbsp;<%=pkgInfoHash.Item ("pkg_version")%></td>
                       </tr>
                       <tr>
                         <td colspan="2" width="1%" nowrap class="form_field">
                           <table width="100%" border="0" cellspacing="1" cellpadding="2">
                             <tr>
                               <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">Package Name<img src="images/h_trsp_dot.gif" width="1" height="20" align="absmiddle"></td>
                               <td background="images/bg_form_lightbluedark.gif" nowrap width="50%" class="form_field">Version</td>
-							  <td background="images/bg_form_lightbluedark.gif" nowrap width="50%" class="form_field">
+                              <td background="images/bg_form_lightbluedark.gif" nowrap width="50%" class="form_field">
                                 <a href='javascript:;' onClick='MergeAll();'><img src='images/bt_move_left.gif' border='0' title='Update all to released version' hspace='2' align='absmiddle'></a>
-								Released
+                                Released
                              </td>
                             </tr>
-                      		<%=HTML_pkg_list%>
+                            <%=HTML_pkg_list%>
                             <tr>
                               <td nowrap><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
                               <td></td>
-							  <td></td>
+                              <td></td>
                             </tr>
                           </table></td>
                       </tr>
                       <tr>
                         <td colspan="2" nowrap>
-						  <input type="reset" name="btn" value="&laquo; Back" class="form_btn" onClick="history.back();">
+                          <input type="reset" name="btn" value="&laquo; Back" class="form_btn" onClick="history.back();">
                           <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="window.location='dependencies.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=Request("rtag_id")%>';">
                           <input type="submit" name="btn" value="Update" class="form_btn" id="btn_update">
                           <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;" class="body_scol"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
                         </td>
                       </tr>
                       <%If HTML_pkg_list = "" Then%>
                       <tr>
                           <td colspan=3 background='images/bg_form_lightgray.gif' class='form_item err_alert'>No Packages Specified. All dependencies will be deleted</td>
                       </tr>
                       <%End If%>
-					  <input type="hidden" name="update_type" value="edit_import">
+                      <input type="hidden" name="update_type" value="edit_import">
-					  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
+                      <input type="hidden" name="pv_id" value="<%=parPv_id%>">
                       <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
                     </form>
                   </table>
                   <!-- END Body-->
                 </td>
       <!-------------------------------------------------->
     </td>
   </tr>
   <tr>
     <td valign="bottom" background="images/bg_lght_gray.gif">
-	<!-- FOOTER -->
+    <!-- FOOTER -->
-	<!--#include file="_footer.asp"-->
+    <!--#include file="_footer.asp"-->
-	</td>
+    </td>
   </tr>
 </table>
 </body>
 </html>
 <%

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_edit_deps.asp – Rev 5897 → 5899