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

 <!--#include file="_access_control_general.asp"-->
 <%
 '------------ Variable Definition -------------
 Dim rsTemp, rsState
 Dim projId
+Dim pkgId
 Dim rsQry
 Dim isDaemonEnabledRelease
 '------------ Constants Declaration -----------
 Const IMG_SVTREE = "<img src='images/i_vtree_small.gif' hspace='3' align='absmiddle' border='0'>"
 Const IMG_WORLD = "<img src='images/i_foldero_small.gif' hspace='3' align='absmiddle' border='0'>"
 '------------ Variable Init -------------------
 '----------------------------------------------
 %>
 <%
 '-----------------------------------------------------------------------------------------------------------------------------
-Sub SetUnignoreWarnings (strList)
-   'Response.Write( pkgInfoHash.Item ("pkg_id"))
-   OraDatabase.Parameters.Add "RTAG_ID",   parRtag_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
-   OraDatabase.Parameters.Add "PKG_ID",    pkgInfoHash.Item ("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
-   OraDatabase.Parameters.Add "SELECTED",  strList,                     ORAPARM_INPUT, ORATYPE_VARCHAR2
-   If pkgInfoHash.Item ("v_ext") <> "" Then
-      OraDatabase.Parameters.Add "V_EXT",  pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
-   Else
-      OraDatabase.Parameters.Add "V_EXT",  NULL, ORAPARM_INPUT, ORATYPE_VARCHAR2
-   End If
-   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UnIgnoreUsedByPackagesInThisRelease.sql"), cint(0))
-   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
-      Call SetIgnoreWarnings(NULL, rsTemp("pv_id"), parRtag_id)
-      rsTemp.MoveNext()
-   Wend
-   Set rsTemp = Nothing
-   rsTemp.Close()
-   OraDatabase.Parameters.Remove "RTAG_ID"
-   OraDatabase.Parameters.Remove "PKG_ID"
-   OraDatabase.Parameters.Remove "V_EXT"
-   OraDatabase.Parameters.Remove "SELECTED"
-End Sub
-'-----------------------------------------------------------------------------------------------------------------------------
 isDaemonEnabledRelease = is_daemon_enabled_release(parRtag_id, TRUE)
 If Request("action") <> "" Then
    %>
             pvIdList.Add CStr( pvId ), Empty
          End if
          apvIdList = pvIdList.Keys
-         'strList = 0
-         'For Each pvId In apvIdList
-         '   strList = strList&", "&pvId
-         'Next
-         'Call SetUnignoreWarnings (strList)
-         'Call Notify ( parRtag_id )
       End If
       Response.Redirect("used_by.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
    Else
       Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 <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>
+<!-- TIPS -->
+<script language="JavaScript" src="images/tipster.js"></script>
 <script language="JavaScript" src="scripts/remote_scripting.js"></script>
 <!--#include file="_jquery_includes.asp"-->
 <script language="javascript">
 <!--
 function checkUncheckAll(theElement) {
 <!-- DROPDOWN MENUS -->
 <!--#include file="_menu_def.asp"-->
 <script language="JavaScript1.2" src="images/popup_menu.js"></script>
 <script language="JavaScript" type="text/javascript">
 <!--
+formTips.tips.thispackage       = stdTip(200, 'Used by this package', 'Display package and package versions that use exactly this version of this package' );
+formTips.tips.thisproject       = stdTip(200, 'Used by this project', 'Display projects that use any version of this package' );
 function RequestUsedByThisProject( paramString, rowId ){
    var requestURL = 'RequestUsedByThisProject.asp';
    // Show div
       //Send the xmlHttp get to the specified url
       xmlHttp_Get(xmlHttp, url);
+   }
+}
+function RequestUsedByThisPackage( paramString, rowId ){
+   var requestURL = 'UsedByPackageDetail.asp';
+   // Show div
+   ToggleDisplay( 'PKGID_'+ rowId, 'IMG_EXPAND_PKGID_' + rowId, 'IMG_COLLAPSE_PKGID_' + rowId );
+   // Set ajax divname
+   ajaxdivname = 'PKGID_'+ rowId;
+   if ( MM_findObj( ajaxdivname ).innerHTML == '<%=enumLOADING%>')
+   {
+      //Append the name to search for to the requestURL
+      var url = requestURL + paramString;
+      //Create the xmlHttp object to use in the request
+      //stateChangeHandler will fire when the state has changed, i.e. data is received back
+      // This is non-blocking (asynchronous)
+      xmlHttp = GetXmlHttpObject(stateChangeHandler);
+      //Send the xmlHttp get to the specified url
+      xmlHttp_Get(xmlHttp, url);
+   }
+}
 //-->
 </script>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" >
 <!-- MENU LAYERS -------------------------------------->
                   Call objFormComponent.FormEnd()
                   '-- FROM END ----------------------------------------------------------------------------------------------------------------
                   %>
                   <!------------------------------------------------------------>
                   <br>
-                  <span class="body_sect">Used by Projects</span>
+                  <span class="body_sect">Used by Projects</span><%=Quick_Help("thisproject")%>
                   <table width="100%"  border="0" cellspacing="1" cellpadding="4">
                      <tr>
                         <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
                         <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Project</td>
                      </tr>
                      WEnd
                      rsTemp.Close
                      Set rsTemp = nothing%>
                   </table><br>
+                  <!------------------------------------------------------------>
+                  <br>
+                  <span class="body_sect">Used by Packages</span><%=Quick_Help("thispackage")%>
+                  <table width="100%"  border="0" cellspacing="1" cellpadding="4">
+                     <tr>
+                        <td width="1%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col"></td>
+                        <td width="100%" background="images/bg_form_lightbluedark.gif" nowrap class="body_col">Package</td>
+                     </tr>
+                     <%
+                     'Dim currWorld, bgColor, linkSync
+                     currWorld = -1
+                     OraDatabase.Parameters.Add "PV_ID", parPv_id,    ORAPARM_INPUT, ORATYPE_NUMBER
+                     Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("UsedByPackageSummary.sql"), cint(0) )
+                     OraDatabase.Parameters.Remove "PV_ID"
+                     %>
+                     <%If rsTemp.RecordCount < 1 Then%>
+                        <tr>
+                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
+                           <td background="images/bg_form_lightgray.gif" nowrap class="form_item">&nbsp;</td>
+                        </tr>
+                     <%End If%>
+                     <%While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
+                        pkgId = rsTemp("pkg_id")
+                        %>
+                        <tr>
+                           <td background="images/bg_form_lightgray.gif" class="form_item"></td>
+                           <td nowrap background="images/bg_form_lightgray.gif" class="form_item">
+                              <SPAN id="IMG_EXPAND_PKGID_<%=pkgId%>" name="IMG_EXPAND_PKGID_<%=pkgId%>" style="display:block;"><a href="javascript:;" class="txt_linked" onClick="RequestUsedByThisPackage('?pv_id=<%=parPv_id%>&pkg_id=<%=pkgId%>', '<%=pkgId%>');"><img src="images/bt_plus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("pkg_name") &" ("& rsTemp("count") &")"%></a></SPAN>
+                              <SPAN id="IMG_COLLAPSE_PKGID_<%=pkgId%>" name="IMG_COLLAPSE_PKGID_<%=pkgId%>" style="display:none;"><a href="javascript:;" class="txt_linked" onClick="ToggleDisplay( 'PKGID_<%=pkgId%>', 'IMG_EXPAND_PKGID_<%=pkgId%>', 'IMG_COLLAPSE_PKGID_<%=pkgId%>');"><img src="images/bt_minus.gif" border="0" align="absmiddle" hspace="3"><%= rsTemp("pkg_name") &" ("& rsTemp("count") &")"%></a></SPAN>
+                              <DIV id="PKGID_<%=pkgId%>" name="PKGID_<%=projId%>" style="display:none;"><%=enumLOADING%></DIV>
+                           </td>
+                        </tr>
+                        <%rsTemp.MoveNext
+                     WEnd
+                     rsTemp.Close
+                     Set rsTemp = nothing%>
+                  </table><br>
                   <SPAN class="rep_small">NOTE: Versions in <SPAN class="err_alert">RED</SPAN> are different from <%=pkgInfoHash.Item("pkg_name") &" "& pkgInfoHash.Item("pkg_version")%></span>
                   <br>
                   <!-- END DETAILS ------------------------------------------------->
                </td>
                <td>&nbsp;</td>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/used_by.asp – Rev 5632 → 5925