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

 <!--#include file="common/_form_window_common.asp"-->
 <!--#include file="_action_buttons.asp"-->
 <!--#include file="class/classActionButtonControl.asp"-->
 <!--#include file="common/daemon_instructions.asp"-->
 <%
-' Set rfile parameter. This is a return page after Login
-Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 objPMod.PersistInQryString("proj_id")
 '------------ ACCESS CONTROL ------------------
 'Let users view the build status without being logged in, but as soon as they try and submit the form, check
 'their login status.
 If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>
 <!--#include file="_access_control_login.asp"-->
 <!--#include file="_access_control_project.asp"-->
 <%End If%>
 <!--#include file="_access_control_general.asp"-->
+<% '------------ Scripts -------------------------- %>
+<script type="text/javascript" src="scripts/json2.js"></script>
 <%
 '------------ Variable Definition -------------
 Dim objSortHelper
 Dim rsQry
 Dim parRtagId
 Dim parSourceRtagId
 Dim query_string
-Dim objBtnControl
 Dim rcon_id
 Dim shref_base
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 parRtagId = Request("rtag_id")
 objPMod.PersistInQryString("rtag_id")
-Set objBtnControl = New ActionButtonControl
 '----------------------------------------------
 %>
 <%
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
 End If
 '----------------------------------------------
 %>
+<script language="JavaScript" type="text/JavaScript">
+window.addEventListener ?
+window.addEventListener("load",InitShow,false) :
+window.attachEvent && window.attachEvent("onload",InitShow);
+function InitShow(e)
+{
+    toggleDispClass('rootCause',0);
+    toggleDispClass('rootFile',0);
+}
+function toggleDispClass(cname,flip)
+{
+    var cookieName = 'RELMGR_BUILDSTATUS';
+    var cv = JSON.parse(getCookie(cookieName));
+    if (!cv)
+        cv = new Object;
+    if (!cv.BuildStatus)
+        cv.BuildStatus = new Object;
+    var state = cv.BuildStatus[cname];
+    if (state === undefined)
+        state = true;
+    if (flip>0)
+        state = !state;
+    cv.BuildStatus[cname] = state;
+    // Reflect the current state in the checkbox
+    var de = document.getElementById(cname);
+    if (de)
+        de.checked = state;
+    var elements = new Array();
+    elements = getElementsByClassName(cname);
+    for(i in elements ){
+        if (state) {
+            elements[i].style.display = "";
+        }
+        else {
+            elements[i].style.display = "none";
+        }
+    }
+    setCookie(cookieName, JSON.stringify(cv), 365 );
+}
+</script>
 <html>
    <head>
       <title>Release Manager</title>
       <meta http-equiv="Pragma" content="no-cache">
       <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
                            </span>
                            <tr>
                               <td background="images/bg_table_col.gif" class="err_alert"><b>Directly</b></td>
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td>
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td>
-                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE
+                              <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ROOT CAUSE</td>
+                           </tr>
+                           <tr>
+                           <td colspan=3></td>
+                           <td class="body_row">
+                           <fieldset class="fset" align="right">
+                                Show
+                                <input type="checkbox" checked value=0 name="showCause" id="rootCause" onClick="toggleDispClass('rootCause',1);">Config Errors
+                                <input type="checkbox" checked value=0 name="showFile"  id="rootFile"  onClick="toggleDispClass('rootFile',1);">Build Errors
+                           </fieldset>
-                              </td>
+                           </td>
                            </tr>
                            <%
                            query_string = " select pkg.pkg_name, pv.pkg_version, pv.pv_id, dnr.rtag_id, dnr.root_cause, dnr.root_file, pv.pv_description"&_
                                           "   from do_not_ripple dnr, package_versions pv, packages pkg"&_
                                           "  where dnr.rtag_id = "& parRtagId &_
                                           "    and dnr.root_pv_id is null"&_
                                           "  order by pkg_name"
                            Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
                            '--- Render rows ---
                            Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+                            Dim rowClass
+                            Dim rowData
+                            ' root_file, if supplied, indicates a build failure log file exists
+                            ' this should always prevail over the textual root_cause
+                            If IsNull(rsQry("root_file")) Then
+                               rowClass = "rootCause"
+                               rowData = rsQry("root_cause")
+                            Else
+                                rowClass = "rootFile"
+                                rowData = "<a class=""txt_linked"" title=""" & rsQry("root_file") &_
+                                          " Log file may have expired."" " &_
+                                          "href=""" & shref_base & rsQry("root_file") & """>" &_
+                                          "Build Failure Log File</a>"
+                            End If
                            %>
-                              <tr>
+                              <tr class="<%=rowClass%>">
                                  <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                               </tr>
-                              <tr>
+                              <tr class="<%=rowClass%>">
                                  <td nowrap width="1%">
                                     <!-- The use of the isChecked() javascript function below, enables the submit button if any checkboxes are checked, -->
                                     <!-- else it will disable the submit button. The function is badly named, but nevertheless, that is what it does.   -->
                                     <input type="checkbox" value="<%=rsQry("pv_id")%>" name="pv_id_list" id="pv_id_list" onClick="isChecked('pv_id_list','submit');">
                                  </td>
                                  <td nowrap class="body_rowg"><a class="txt_linked" href="dependencies.asp?pv_id=<%=rsQry("pv_id")%>&rtag_id=<%=rsQry("rtag_id")%>" title="<%=rsQry("pv_description")%>"><%=rsQry("pkg_name")%></a></td>
                                  <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
-                                 <%
-                                 ' root_file, if supplied, indicates a build failure log file exists
-                                 ' this should always prevail over the textual root_cause
-                                 If IsNull(rsQry("root_file")) Then%>
-                                    <td nowrap class="body_rowg"><%=rsQry("root_cause")%></td>
+                                 <td nowrap class="body_rowg"><%=rowData%></td>
-                                 <%Else%>
-                                    <td nowrap class="body_rowg">
-                                       <a class="txt_linked" title="<%=rsQry("root_file")%> Log file may have expired." href="<%=shref_base & rsQry("root_file")%>">
-                                          Build Failure Log File
-                                       </a>
-                                    </td>
-                                 <%End If%>
                               </tr>
-                              <%
+                           <%
-                              rsQry.MoveNext
+                            rsQry.MoveNext
                            Loop%>
                            <tr>
                               <td background="images/bg_table_col.gif" class="err_alert"><b>Indirectly</b></td>
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE NAME</td>
                               <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">PACKAGE VERSION</td>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/build_status.asp @ 3959 – Rev 2365 → 3959