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

 <%@LANGUAGE="VBSCRIPT"%>
 <%
 '=====================================================
 '|                                                   |
-'|                   Edit Project View Details    |
+'|          Edit/View Build Configuration            |
 '|                                                   |
 '=====================================================
 %>
 <%
 Option explicit
 ' --- RUN onPostBack ---
 If Request("action") <> "" Then
    If objForm.IsValidOnPostBack Then
+      If objAccessControl.IsVisible("ConfigureRelease") Then
-      Call DeleteDaemon(Request("rcon_id_list"))
+         Call DeleteDaemon(Request("rcon_id_list"))
+      End If
       If objEH.Finally Then
          Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
       End If
 '----------------------------------------------
 %>
 <html>
-<head>
+   <head>
-<title>Release Manager</title>
+      <title>Release Manager</title>
-<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
+      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
-<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
+      <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/release_manager_style.css" type="text/css">
-<link rel="stylesheet" href="images/navigation.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" src="images/common.js"></script>
-<!-- DROPDOWN MENUS -->
+      <!-- DROPDOWN MENUS -->
-<!--#include file="_menu_def.asp"-->
+      <!--#include file="_menu_def.asp"-->
-<script language="JavaScript1.2" src="images/popup_menu.js"></script>
+      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
-</head>
+   </head>
-<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
+   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
-<!-- MENU LAYERS -------------------------------------->
+      <!-- MENU LAYERS -------------------------------------->
-<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
+      <div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
-</div>
+      </div>
-<!-- TIPS LAYERS -------------------------------------->
+      <!-- TIPS LAYERS -------------------------------------->
-<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
+      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
-<!----------------------------------------------------->
+      <!----------------------------------------------------->
-<!-- HEADER -->
+      <!-- HEADER -->
-<!--#include file="_header.asp"-->
+      <!--#include file="_header.asp"-->
-<!-- BODY ---->
+      <!-- BODY ---->
-<table width="100%" border="0" cellspacing="0" cellpadding="0">
-<%
-'-- FROM START ---------------------------------------------------------------------------------------------------------
-objFormComponent.FormName = "FormName"
-objFormComponent.Action = ScriptName
-Call objFormComponent.FormStart()
-%>
-  <tr>
-    <td width="1" background="images/bg_home_orange.gif" valign="top">
-   </td>
-   <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF"><table width="10" border="0" cellspacing="0" cellpadding="0">
-      <tr>
-        <td width="1%"></td>
-        <td width="100%">
-<table width="100%"  border="0" cellspacing="0" cellpadding="0">
-            <tr>
-              <td nowrap class="body_txt">
-           </td>
-            </tr>
-          </table>
-          <table width="100%" border="0" cellspacing="0" cellpadding="0">
-            <tr>
-              <td nowrap class="form_ttl"><p>&nbsp;</p>
-                <p>ADMINISTER BUILD CONFIGURATION </p></td>
-              <td align="right" valign="bottom"></td>
-            </tr>
-        </table></td>
-        <td width="1%"></td>
-      </tr>
-      <tr>
-        <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
-        <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
-        <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
-      </tr>
-      <tr>
-        <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
-        <td bgcolor="#FFFFFF" valign="top">
-      <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-      <!--#include file="messages/_msg_inline.asp"-->
-      <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
-      <br>
-      <!-- BUTTONS CONTROL +++++++++++++++++++ -->
-      <%Call Action_Buttons ( "Add Daemon" )
-       ' Load some action buttons
-       Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase )
-       objBtnControl.ButtonSpacer = 1
-      %>
-      <!-- +++++++++++++++++++++++++++++++++++ -->
-      <table width="100%"  border="0" cellspacing="2" cellpadding="0">
+      <table width="100%" border="0" cellspacing="0" cellpadding="0">
-         </td>
-         <td width="9%" valign="top"></td>
-        </tr>
-                <tr>
-         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
-         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOSTNAME</td>
-         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
-         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
-         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
-         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
-         <td valign="top">
-        </tr>
          <%
-         query_string = "select * from release_config rc, gbe_machtype gbe "&_
-         " where rc.rtag_id = "& parRtagId &" and gbe.gbe_id = rc.gbe_id order by daemon_mode"
+         '-- FROM START ---------------------------------------------------------------------------------------------------------
-         Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
-         Dim daemon_mode, daemon
-         '--- Render rows ---
-          Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-         rcon_id = rsQry("rcon_id")
-         daemon   =   rsQry("daemon_hostname")
+         objFormComponent.FormName = "FormName"
-          If rsQry("daemon_mode") = "M" Then
+         objFormComponent.Action = ScriptName
-            daemon_mode = "MASTER"
+         Call objFormComponent.FormStart()
-          Else
-            daemon_mode = "SLAVE"
-          End If
          %>
-      <tr>
+         <tr>
+            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
+            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
+               <table width="10" border="0" cellspacing="0" cellpadding="0">
+                  <tr>
+                     <td width="1%"></td>
+                     <td width="100%">
+                        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
+                           <tr>
+                              <td nowrap class="body_txt"></td>
+                           </tr>
+                        </table>
+                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
+                           <tr>
+                              <td nowrap class="form_ttl">
+                                 <p>&nbsp;</p>
+                                 <p>
+                                    <%If objAccessControl.IsVisible("ConfigureRelease") Then%>
+                                       ADMINISTER
+                                    <%Else%>
+                                       VIEW
+                                    <%End If%>
+                                    BUILD CONFIGURATION
+                                 </p>
+                              </td>
+                              <td align="right" valign="bottom"></td>
+                           </tr>
+                        </table>
+                     </td>
+                     <td width="1%"></td>
+                  </tr>
+                  <tr>
+                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
+                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
+                     <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
+                  </tr>
+                  <tr>
+                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
+                     <td bgcolor="#FFFFFF" valign="top">
+                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+                        <!--#include file="messages/_msg_inline.asp"-->
+                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
+                        <br>
+                        <!-- BUTTONS CONTROL +++++++++++++++++++ -->
+                        <%
+                        If objAccessControl.IsVisible("ConfigureRelease") Then
+                           Call Action_Buttons ( "Add Daemon" )
+                        End If
+                        ' Load some action buttons
+                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase )
+                        objBtnControl.ButtonSpacer = 1
+                        %>
+                        <!-- +++++++++++++++++++++++++++++++++++ -->
+                        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
+                     </td>
+                     <td width="9%" valign="top"></td>
+                  </tr>
+                  <tr>
+                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
+                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOSTNAME</td>
+                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
+                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
+                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
+                     <%If objAccessControl.IsVisible("ConfigureRelease") Then%>
+                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
+                     <%End If%>
+                     <td valign="top">
+                  </tr>
+                  <%
+                  query_string = "select * from release_config rc, gbe_machtype gbe "&_
+                  " where rc.rtag_id = "& parRtagId &" and gbe.gbe_id = rc.gbe_id order by daemon_mode"
+                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
+                  Dim daemon_mode, daemon
+                  Dim cbtype
+                  cbtype = "hidden"
+                  If objAccessControl.IsVisible("ConfigureRelease") Then
+                     cbtype = "checkbox"
+                  End If
+                  '--- Render rows ---
+                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+                     rcon_id = rsQry("rcon_id")
+                     daemon  = rsQry("daemon_hostname")
+                     If rsQry("daemon_mode") = "M" Then
+                        daemon_mode = "MASTER"
+                     Else
+                        daemon_mode = "SLAVE"
+                     End If
+                     %>
+                     <tr>
-        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
+                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
-      </tr>
+                     </tr>
-       <tr>
+                     <tr>
-      <%If rsQry("daemon_mode") = "M" AND rsQry.RecordCount <> 1 Then%>
+                        <%If rsQry("daemon_mode") = "M" AND rsQry.RecordCount <> 1 Then%>
-       <td align="center"><input type="checkbox" name="rcon_id_list" value="<%=rsQry("rcon_id")%>" disabled></td>
+                           <td align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>" disabled></td>
-      <%Else%>
+                        <%Else%>
-       <td align="center"><input type="checkbox" name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
+                           <td align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
-      <%End If%>
+                        <%End If%>
-       <td nowrap class="body_rowg"><%=rsQry("daemon_hostname")%></td>
+                        <td nowrap class="body_rowg"><%=rsQry("daemon_hostname")%></td>
-       <td nowrap class="body_rowg"><%=daemon_mode%></td>
+                        <td nowrap class="body_rowg"><%=daemon_mode%></td>
-       <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
+                        <td nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
-       <td nowrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
+                        <td nowrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
+                        <%If objAccessControl.IsVisible("ConfigureRelease") Then%>
-       <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
+                           <td nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
+                        <%End If%>
-       </tr>
+                     </tr>
-       <%
+                     <%
-          rsQry.MoveNext
+                     rsQry.MoveNext
-       Loop
+                  Loop
-             rsQry.Close()
+                  rsQry.Close()
-            Set rsQry = nothing
+                  Set rsQry = nothing
-        %>
+                  %>
+                  <tr>
+                     <td class="form_iname">&nbsp;</td>
+                     <td>&nbsp;</td>
+                     <td class="val_err"></td>
+                  </tr>
+               </table>
+            </td>
+            <td background="images/lbox_bgside_white.gif">&nbsp;</td>
+         </tr>
-        <tr>
+         <tr>
-          <td class="form_iname">&nbsp;</td>
+            <td background="images/bg_action_norm.gif" ></td>
+            <td align="right" background="images/bg_action_norm.gif" >
+               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%>
+               <%=objPMod.ComposeHiddenTags()%>
+               <%If objAccessControl.IsVisible("ConfigureRelease") Then%>
+                  <input name="btn" type="submit" class="form_btn" value="Delete">
+               <%End If%>
+               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
+               <input type="hidden" name="action" value="true">
-          <td>&nbsp;</td>
+            </td>
+            <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
+         </tr>
+         <tr>
+            <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
-          <td class="val_err"></td>
+            <td background="images/lbox_bg_blue.gif"></td>
+            <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
-          </tr>
+         </tr>
       </table>
-      </td>
-        <td background="images/lbox_bgside_white.gif">&nbsp;</td>
-      </tr>
-     <tr>
-        <td background="images/bg_action_norm.gif" ></td>
-        <td align="right" background="images/bg_action_norm.gif" >
-      <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%>
-      <%=objPMod.ComposeHiddenTags()%>
-      <%If objAccessControl.IsActive("AdminView") Then%>
-      <input name="btn" type="submit" class="form_btn" value="Delete">
-      <%End If%>
-      <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
-      <input type="hidden" name="action" value="true">
-      </td>
-        <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
-      </tr>
-      <tr>
-        <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
-        <td background="images/lbox_bg_blue.gif"></td>
-        <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
-      </tr>
-    </table>
-   <!-- ACTION BUTTONS ---------------------------------------------->
+      <!-- ACTION BUTTONS ---------------------------------------------->
-   <!-- ACTION BUTTONS END  ------------------------------------------></td>
+      <!-- ACTION BUTTONS END  ------------------------------------------></td>
-   <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
+      <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
   </tr>
   <tr>
     <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
     <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
   </tr>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/release_config.asp @ 151 – Rev 129 → 151