Subversion Repositories DevTools

Rev

Rev 5190 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5190 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|          Edit/View Build Configuration            |
 5 
'|          Edit/View Build Configuration            |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
%>
 8 
%>
9 
<%
 9 
<%
10 
Option explicit
 10 
Option explicit
11 
' Good idea to set when using redirect
 11 
' Good idea to set when using redirect
12 
Response.Expires = 0   ' always load the page, dont store
 12 
Response.Expires = 0   ' always load the page, dont store
13 
%>
 13 
%>
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
 18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/_form_window_common.asp"-->
 19 
<!--#include file="common/_form_window_common.asp"-->
20 
<!--#include file="_action_buttons.asp"-->
 20 
<!--#include file="_action_buttons.asp"-->
21 
 
 21 
 
22 
<!--#include file="class/classActionButtonControl.asp"-->
 22 
<!--#include file="class/classActionButtonControl.asp"-->
23 
<%
 23 
<%
24 
objPMod.PersistInQryString("proj_id")
 24 
objPMod.PersistInQryString("proj_id")
25 
'------------ ACCESS CONTROL ------------------
 25 
'------------ ACCESS CONTROL ------------------
26 
'Let users view the build configuration without being logged in, but as soon as they try and submit the form, check
 26 
'Let users view the build configuration without being logged in, but as soon as they try and submit the form, check
27 
'their login status.
 27 
'their login status.
28 
If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>
 28 
If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>
29 
<!--#include file="_access_control_login.asp"-->
 29 
<!--#include file="_access_control_login.asp"-->
30 
<!--#include file="_access_control_project.asp"-->
 30 
<!--#include file="_access_control_project.asp"-->
31 
<%End If%>
 31 
<%End If%>
32 
<!--#include file="_access_control_general.asp"-->
 32 
<!--#include file="_access_control_general.asp"-->
33 
<%
 33 
<%
34 
'------------ Variable Definition -------------
 34 
'------------ Variable Definition -------------
35 
Dim objSortHelper
 35 
Dim objSortHelper
36 
Dim rsQry
 36 
Dim rsQry
37 
Dim parRtagId
 37 
Dim parRtagId
38 
Dim query_string
 38 
Dim query_string
39 
Dim objBtnControl
 39 
Dim objBtnControl
40 
Dim rcon_id
 40 
Dim rcon_id
41 
'------------ Constants Declaration -----------
 41 
'------------ Constants Declaration -----------
42 
'------------ Variable Init -------------------
 42 
'------------ Variable Init -------------------
43 
parRtagId = Request("rtag_id")
 43 
parRtagId = Request("rtag_id")
44 
objPMod.PersistInQryString("rtag_id")
 44 
objPMod.PersistInQryString("rtag_id")
45 
Set objBtnControl = New ActionButtonControl
 45 
Set objBtnControl = New ActionButtonControl
46 
'----------------------------------------------
 46 
'----------------------------------------------
47 
%>
 47 
%>
48 
<%
 48 
<%
49 
'--------------------------------------------------------------------------------------------------------------------------
 49 
'--------------------------------------------------------------------------------------------------------------------------
50 
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
 50 
Sub GetFormDetails ( parRtagId, ByRef outobjDetails )
51 
   Dim rsQry, query
 51 
   Dim rsQry, query
52 
 
 52 
 
53 
 
 53 
 
54 
   OraDatabase.Parameters.Add "RTAG_ID",    parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
 54 
   OraDatabase.Parameters.Add "RTAG_ID",    parRtagId,      ORAPARM_INPUT, ORATYPE_NUMBER
55 
 
 55 
 
56 
   query = _
 56 
   query = _
57 
   " SELECT * "&_
 57 
   " SELECT * "&_
58 
   "  FROM RELEASE_TAGS rt"&_
 58 
   "  FROM RELEASE_TAGS rt"&_
59 
   " WHERE rt.RTAG_ID = :RTAG_ID"
 59 
   " WHERE rt.RTAG_ID = :RTAG_ID"
60 
 
 60 
 
61 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 61 
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
62 
 
 62 
 
63 
   OraDatabase.Parameters.Remove "RTAG_ID"
 63 
   OraDatabase.Parameters.Remove "RTAG_ID"
64 
 
 64 
 
65 
 
 65 
 
66 
 
 66 
 
67 
   If rsQry.RecordCount > 0 Then
 67 
   If rsQry.RecordCount > 0 Then
68 
      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
 68 
      outobjDetails.Item ("rtag_id") = rsQry("rtag_id")
69 
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
 69 
      outobjDetails.Item ("rtag_name") = rsQry("rtag_name")
70 
   Else
 70 
   Else
71 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
 71 
      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parRtagId="& parRtagId
72 
 
 72 
 
73 
   End If
 73 
   End If
74 
 
 74 
 
75 
   rsQry.Close
 75 
   rsQry.Close
76 
   Set rsQry = Nothing
 76 
   Set rsQry = Nothing
77 
End Sub
 77 
End Sub
78 
'--------------------------------------------------------------------------------------------------------------------------
 78 
'--------------------------------------------------------------------------------------------------------------------------
79 
Sub DeleteDaemon(rcon_id_list)
 79 
Sub DeleteDaemon(rcon_id_list)
80 
 
 80 
 
81 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
 81 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
82 
 
 82 
 
83 
   On Error Resume Next
 83 
   On Error Resume Next
84 
   objEH.TryORA()
 84 
   objEH.TryORA()
85 
 
 85 
 
86 
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST);  END;"
 86 
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.DELETE_DAEMON(:RCON_ID_LIST);  END;"
87 
 
 87 
 
88 
   objEH.CatchORA ( OraSession )
 88 
   objEH.CatchORA ( OraSession )
89 
 
 89 
 
90 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
 90 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
91 
End Sub
 91 
End Sub
92 
'--------------------------------------------------------------------------------------------------------------------------
 92 
'--------------------------------------------------------------------------------------------------------------------------
93 
Sub RemoveDaemon(rcon_id_list)
 93 
Sub RemoveDaemon(rcon_id_list)
94 
 
 94 
 
95 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
 95 
   OraDatabase.Parameters.Add "RCON_ID_LIST",   rcon_id_list,    ORAPARM_INPUT, ORATYPE_VARCHAR2
96 
 
 96 
 
97 
   On Error Resume Next
 97 
   On Error Resume Next
98 
   objEH.TryORA()
 98 
   objEH.TryORA()
99 
 
 99 
 
100 
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.REMOVE_DAEMON(:RCON_ID_LIST);  END;"
 100 
   OraDatabase.ExecuteSQL "BEGIN  PK_BUILDAPI.REMOVE_DAEMON(:RCON_ID_LIST);  END;"
101 
 
 101 
 
102 
   objEH.CatchORA ( OraSession )
 102 
   objEH.CatchORA ( OraSession )
103 
 
 103 
 
104 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
 104 
   OraDatabase.Parameters.Remove "RCON_ID_LIST"
105 
End Sub
 105 
End Sub
106 
'--------------------------------------------------------------------------------------------------------------------------
 106 
'--------------------------------------------------------------------------------------------------------------------------
107 
%>
 107 
%>
108 
<%
 108 
<%
109 
'------------ RUN BEFORE PAGE RENDER ----------
 109 
'------------ RUN BEFORE PAGE RENDER ----------
110 
' --- Get Form details from DB ---
 110 
' --- Get Form details from DB ---
111 
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
 111 
Call GetFormDetails ( Request("rtag_id"), objFormCollector )
112 
 
 112 
 
113 
' --- Load Validation Rules ---
 113 
' --- Load Validation Rules ---
114 
'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )      ' Load Validation Rules
 114 
'Call objForm.LoadValidationRules ( Array("rtag_name","rtag_description", "config_spec_branch"), OraDatabase )      ' Load Validation Rules
115 
 
 115 
 
116 
' --- Enter Form Validation Rule Changes here... ----
 116 
' --- Enter Form Validation Rule Changes here... ----
117 
'----------------------------------------------------
 117 
'----------------------------------------------------
118 
 
 118 
 
119 
' --- RUN onPostBack ---
 119 
' --- RUN onPostBack ---
120 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
 120 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
121 
   If objForm.IsValidOnPostBack Then
 121 
   If objForm.IsValidOnPostBack Then
122 
      If canActionControlInProject("BuildConfiguration") Then
 122 
      If canActionControlInProject("BuildConfiguration") Then
123 
         If Request("btn") = "Delete" Then
 123 
         If Request("btn") = "Delete" Then
124 
             Call DeleteDaemon(Request("rcon_id_list"))
 124 
             Call DeleteDaemon(Request("rcon_id_list"))
125 
         ElseIf Request("btn") = "Unlink" Then
 125 
         ElseIf Request("btn") = "Unlink" Then
126 
             Call RemoveDaemon(Request("rcon_id_list"))
 126 
             Call RemoveDaemon(Request("rcon_id_list"))
127 
        End If
 127 
        End If
128 
      End If
 128 
      End If
129 
 
 129 
 
130 
      If objEH.Finally Then
 130 
      If objEH.Finally Then
131 
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
 131 
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )
132 
      End If
 132 
      End If
133 
 
 133 
 
134 
   End If
 134 
   End If
135 
 
 135 
 
136 
End If
 136 
End If
137 
 
 137 
 
138 
'----------------------------------------------
 138 
'----------------------------------------------
139 
%>
 139 
%>
140 
 
 140 
 
141 
<html>
 141 
<html>
142 
   <head>
 142 
   <head>
143 
      <title>Release Manager</title>
 143 
      <title>Release Manager</title>
144 
      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 144 
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
145 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 145 
      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
146 
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 146 
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
147 
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
 147 
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
148 
      <script language="JavaScript" src="images/common.js"></script>
 148 
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
149 
      <!--#include file="_jquery_includes.asp"-->
 149 
      <script language="JavaScript" src="images/common.js"></script>
150 
      <!-- DROPDOWN MENUS -->
 150 
      <!--#include file="_jquery_includes.asp"-->
151 
      <!--#include file="_menu_def.asp"-->
 151 
      <!-- DROPDOWN MENUS -->
152 
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
 152 
      <!--#include file="_menu_def.asp"-->
153 
   </head>
 153 
      <script language="JavaScript1.2" src="images/popup_menu.js"></script>
154 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
 154 
   </head>
155 
      <!-- MENU LAYERS -------------------------------------->
 155 
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
156 
      <div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 156 
      <!-- MENU LAYERS -------------------------------------->
157 
      </div>
 157 
      <div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
158 
      <!-- TIPS LAYERS -------------------------------------->
 158 
      </div>
159 
      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 159 
      <!-- TIPS LAYERS -------------------------------------->
160 
      <!----------------------------------------------------->
 160 
      <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
161 
      <!-- HEADER -->
 161 
      <!----------------------------------------------------->
162 
      <!--#include file="_header.asp"-->
 162 
      <!-- HEADER -->
163 
      <!-- BODY ---->
 163 
      <!--#include file="_header.asp"-->
164 
 
 164 
      <!-- BODY ---->
165 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
 165 
 
166 
         <%
 166 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
167 
         '-- FROM START ---------------------------------------------------------------------------------------------------------
 167 
         <%
168 
         objFormComponent.FormName = "FormName"
 168 
         '-- FROM START ---------------------------------------------------------------------------------------------------------
169 
         objFormComponent.Action = ScriptName
 169 
         objFormComponent.FormName = "FormName"
170 
         Call objFormComponent.FormStart()
 170 
         objFormComponent.Action = ScriptName
171 
         %>
 171 
         Call objFormComponent.FormStart()
172 
         <tr>
 172 
         %>
173 
            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
 173 
         <tr>
174 
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
 174 
            <td width="1" background="images/bg_home_orange.gif" valign="top"></td>
175 
               <table width="10" border="0" cellspacing="0" cellpadding="0">
 175 
            <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
176 
                  <tr>
 176 
               <table width="10" border="0" cellspacing="0" cellpadding="0">
177 
                     <td width="1%"></td>
 177 
                  <tr>
178 
                     <td width="100%">
 178 
                     <td width="1%"></td>
179 
                        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 179 
                     <td width="100%">
180 
                           <tr>
 180 
                        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
181 
                              <td nowrap class="body_txt"></td>
 181 
                           <tr>
182 
                           </tr>
 182 
                              <td nowrap class="body_txt"></td>
183 
                        </table>
 183 
                           </tr>
184 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
 184 
                        </table>
185 
                           <tr>
 185 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
186 
                              <td nowrap class="form_ttl">
 186 
                           <tr>
187 
                                 <p>&nbsp;</p>
 187 
                              <td nowrap class="form_ttl">
188 
                                 <p>
 188 
                                 <p>&nbsp;</p>
189 
                                    <%If canActionControlInProject("BuildConfiguration") Then%>
 189 
                                 <p>
190 
                                       ADMINISTER
 190 
                                    <%If canActionControlInProject("BuildConfiguration") Then%>
191 
                                    <%Else%>
 191 
                                       ADMINISTER
192 
                                       VIEW
 192 
                                    <%Else%>
193 
                                    <%End If%>
 193 
                                       VIEW
194 
                                    BUILD CONFIGURATION
 194 
                                    <%End If%>
195 
                                 </p>
 195 
                                    BUILD CONFIGURATION
196 
                              </td>
 196 
                                 </p>
197 
                              <td align="right" valign="bottom"></td>
 197 
                              </td>
198 
                           </tr>
 198 
                              <td align="right" valign="bottom"></td>
199 
                        </table>
 199 
                           </tr>
200 
                     </td>
 200 
                        </table>
201 
                     <td width="1%"></td>
 201 
                     </td>
202 
                  </tr>
 202 
                     <td width="1%"></td>
203 
                  <tr>
 203 
                  </tr>
204 
                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 204 
                  <tr>
205 
                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 205 
                     <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
206 
                     <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 206 
                     <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
207 
                  </tr>
 207 
                     <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
208 
                  <tr>
 208 
                  </tr>
209 
                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 209 
                  <tr>
210 
                     <td bgcolor="#FFFFFF" valign="top">
 210 
                     <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
211 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 211 
                     <td bgcolor="#FFFFFF" valign="top">
212 
                        <!--#include file="messages/_msg_inline.asp"-->
 212 
                        <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
213 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 213 
                        <!--#include file="messages/_msg_inline.asp"-->
214 
                        <br>
 214 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
215 
                        <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 215 
                        <br>
216 
                        <%
 216 
                        <!-- BUTTONS CONTROL +++++++++++++++++++ -->
217 
                        If canActionControlInProject("BuildConfiguration") Then
 217 
                        <%
218 
                           Call Action_Buttons ( "Add Daemon" )
 218 
                        If canActionControlInProject("BuildConfiguration") Then
219 
                        End If
 219 
                           Call Action_Buttons ( "Add Daemon" )
220 
 
 220 
                        End If
221 
                        ' Load some action buttons
 221 
 
222 
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
 222 
                        ' Load some action buttons
223 
                        objBtnControl.ButtonSpacer = 1
 223 
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
224 
 
 224 
                        objBtnControl.ButtonSpacer = 1
225 
                        %>
 225 
 
226 
 
 226 
                        %>
227 
                        <!-- +++++++++++++++++++++++++++++++++++ -->
 227 
 
228 
 
 228 
                        <!-- +++++++++++++++++++++++++++++++++++ -->
229 
                        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
 229 
 
230 
                     </td>
 230 
                        <table width="100%"  border="0" cellspacing="2" cellpadding="0">
231 
                     <td width="9%" valign="top"></td>
 231 
                     </td>
232 
                  </tr>
 232 
                     <td width="9%" valign="top"></td>
233 
                  <tr>
 233 
                  </tr>
234 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
 234 
                  <tr>
235 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>
 235 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
236 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
 236 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>
237 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
 237 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
238 
                     <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
 238 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
239 
                     <%If canActionControlInProject("BuildConfiguration") Then%>
 239 
                     <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
240 
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
 240 
                     <%If canActionControlInProject("BuildConfiguration") Then%>
241 
                     <%End If%>
 241 
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
242 
                     <td valign="top">
 242 
                     <%End If%>
243 
                  </tr>
 243 
                     <td valign="top">
244 
                  <%
 244 
                  </tr>
245 
 
 245 
                  <%
246 
                  query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter " &_
 246 
 
247 
                                 " from release_manager.release_config rc," &_
 247 
                  query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter " &_
248 
                                 "      release_manager.build_machine_config bm," &_
 248 
                                 " from release_manager.release_config rc," &_
249 
                                 "      release_manager.gbe_machtype gbe" &_
 249 
                                 "      release_manager.build_machine_config bm," &_
250 
                                 " where rc.rtag_id=" & parRtagId &_
 250 
                                 "      release_manager.gbe_machtype gbe" &_
251 
                                 "      and rc.bmcon_id=bm.bmcon_id(+)" &_
 251 
                                 " where rc.rtag_id=" & parRtagId &_
252 
                                 "      and rc.gbe_id=gbe.gbe_id" &_
 252 
                                 "      and rc.bmcon_id=bm.bmcon_id(+)" &_
253 
                                 " order by daemon_mode, bm.display_name"
 253 
                                 "      and rc.gbe_id=gbe.gbe_id" &_
254 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 254 
                                 " order by daemon_mode, bm.display_name"
255 
                  Dim daemon_mode, daemon, cbtype
 255 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
256 
 
 256 
                  Dim daemon_mode, daemon, cbtype
257 
                  cbtype = "hidden"
 257 
 
258 
                  If canActionControlInProject("BuildConfiguration") Then
 258 
                  cbtype = "hidden"
259 
                     cbtype = "checkbox"
 259 
                  If canActionControlInProject("BuildConfiguration") Then
260 
                  End If
 260 
                     cbtype = "checkbox"
261 
 
 261 
                  End If
262 
                  '--- Render rows ---
 262 
 
263 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 263 
                  '--- Render rows ---
264 
                     rcon_id = rsQry("rcon_id")
 264 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
265 
                     daemon  = rsQry("display_name")
 265 
                     rcon_id = rsQry("rcon_id")
266 
                     If IsNull(daemon) Then
 266 
                     daemon  = rsQry("display_name")
267 
                         daemon = ""
 267 
                     If IsNull(daemon) Then
268 
                     End If
 268 
                         daemon = ""
269 
 
 269 
                     End If
270 
                     If rsQry("daemon_mode") = "M" Then
 270 
 
271 
                        daemon_mode = "MASTER"
 271 
                     If rsQry("daemon_mode") = "M" Then
272 
                     Else
 272 
                        daemon_mode = "MASTER"
273 
                        daemon_mode = "SLAVE"
 273 
                     Else
274 
                     End If
 274 
                        daemon_mode = "SLAVE"
275 
                     %>
 275 
                     End If
276 
                     <tr>
 276 
                     %>
277 
                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 277 
                     <tr>
278 
                     </tr>
 278 
                        <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
279 
                     <tr>
 279 
                     </tr>
280 
                        <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
 280 
                     <tr>
281 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon%></td>
 281 
                        <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
282 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
 282 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon%></td>
283 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
 283 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
284 
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
 284 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
285 
                        <%If canActionControlInProject("BuildConfiguration") Then%>
 285 
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
286 
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
 286 
                        <%If canActionControlInProject("BuildConfiguration") Then%>
287 
                        <%End If%>
 287 
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
288 
                     </tr>
 288 
                        <%End If%>
289 
                     <%
 289 
                     </tr>
290 
                     rsQry.MoveNext
 290 
                     <%
291 
                  Loop
 291 
                     rsQry.MoveNext
292 
                  rsQry.Close()
 292 
                  Loop
293 
                  Set rsQry = nothing
 293 
                  rsQry.Close()
294 
                  %>
 294 
                  Set rsQry = nothing
295 
 
 295 
                  %>
296 
                  <tr>
 296 
 
297 
                     <td class="form_iname">&nbsp;</td>
 297 
                  <tr>
298 
                     <td>&nbsp;</td>
 298 
                     <td class="form_iname">&nbsp;</td>
299 
                     <td class="val_err"></td>
 299 
                     <td>&nbsp;</td>
300 
                  </tr>
 300 
                     <td class="val_err"></td>
301 
               </table>
 301 
                  </tr>
302 
 
 302 
               </table>
303 
 
 303 
 
304 
            </td>
 304 
 
305 
            <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 305 
            </td>
306 
         </tr>
 306 
            <td background="images/lbox_bgside_white.gif">&nbsp;</td>
307 
         <tr>
 307 
         </tr>
308 
            <td background="images/bg_action_norm.gif" ></td>
 308 
         <tr>
309 
            <td align="right" background="images/bg_action_norm.gif" >
 309 
            <td background="images/bg_action_norm.gif" ></td>
310 
 
 310 
            <td align="right" background="images/bg_action_norm.gif" >
311 
               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
 311 
 
312 
               <%=objPMod.ComposeHiddenTags()%>
 312 
               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
313 
               <%If canActionControlInProject("BuildConfiguration") Then%>
 313 
               <%=objPMod.ComposeHiddenTags()%>
314 
                  <input name="btn" type="submit" class="form_btn" value="Unlink">
 314 
               <%If canActionControlInProject("BuildConfiguration") Then%>
315 
                  <input name="btn" type="submit" class="form_btn" value="Delete">
 315 
                  <input name="btn" type="submit" class="form_btn" value="Unlink">
316 
               <%End If%>
 316 
                  <input name="btn" type="submit" class="form_btn" value="Delete">
317 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
 317 
               <%End If%>
318 
               <input type="hidden" name="action" value="true">
 318 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
319 
            </td>
 319 
               <input type="hidden" name="action" value="true">
320 
            <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 320 
            </td>
321 
         </tr>
 321 
            <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
322 
         <tr>
 322 
         </tr>
323 
            <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 323 
         <tr>
324 
            <td background="images/lbox_bg_blue.gif"></td>
 324 
            <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
325 
            <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 325 
            <td background="images/lbox_bg_blue.gif"></td>
326 
         </tr>
 326 
            <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
327 
      </table>
 327 
         </tr>
328 
 
 328 
      </table>
329 
      <!-- ACTION BUTTONS ---------------------------------------------->
 329 
 
330 
      <!-- ACTION BUTTONS END  ------------------------------------------></td>
 330 
      <!-- ACTION BUTTONS ---------------------------------------------->
331 
      <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 331 
      <!-- ACTION BUTTONS END  ------------------------------------------></td>
332 
  </tr>
 332 
      <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
333 
  <tr>
 333 
  </tr>
334 
    <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>
 334 
  <tr>
335 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 335 
    <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>
336 
  </tr>
 336 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
337 
<%
 337 
  </tr>
338 
Call objFormComponent.FormEnd()
 338 
<%
339 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 339 
Call objFormComponent.FormEnd()
340 
%>
 340 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
341 
</table>
 341 
%>
342 
 
 342 
</table>
343 
 
 343 
 
344 
<!-- FOOTER -->
 344 
 
345 
<!--#include file="_footer.asp"-->
 345 
<!-- FOOTER -->
346 
</body>
 346 
<!--#include file="_footer.asp"-->
347 
</html>
 347 
</body>
348 
<%
 348 
</html>
349 
Call Destroy_All_Objects
 349 
<%
350 
%>
 350 
Call Destroy_All_Objects
- 
 
 351 
%>