Subversion Repositories DevTools

Rev

Rev 6873 | Rev 6876 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6873 Rev 6874
Line 192... Line 192...
192 
    '-- FROM START ---------------------------------------------------------------------------------------------------------
 192 
    '-- FROM START ---------------------------------------------------------------------------------------------------------
193 
    objFormComponent.FormName = "FormName"
 193 
    objFormComponent.FormName = "FormName"
194 
    objFormComponent.Action = ScriptName
 194 
    objFormComponent.Action = ScriptName
195 
    Call objFormComponent.FormStart()
 195 
    Call objFormComponent.FormStart()
196 
%>
 196 
%>
197 
    <table class="embedded_table" style="margin-bottom:20px" width="10">
 197 
    <div class=panel>
198 
        <tr>
 198 
        <div class=rounded_box_caption>
199 
            <td>
 199 
            <%=IIf( canActionControlInProject("BuildConfiguration"),"ADMINISTER","VIEW")%> BUILD CONFIGURATION
200 
            <tr>
 200 
        </div>
201 
                <td>
 201 
        <div class="rounded_box" >
202 
                    <table class="rounded_box embedded_table">
 202 
            <div class='controlPanel'>
203 
                        <caption>
 203 
                <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
204 
                            <%=IIf( canActionControlInProject("BuildConfiguration"),"ADMINISTER","VIEW")%> BUILD CONFIGURATION
 204 
                <!--#include file="messages/_msg_inline.asp"-->
205 
                        </caption>
 205 
                <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
206 
                        <tr>
 206 
                <!-- BUTTONS CONTROL +++++++++++++++++++ -->
207 
                         <td class='controlPanel'>
 207 
                <%
208 
                            <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 208 
                If canActionControlInProject("BuildConfiguration") Then
209 
                            <!--#include file="messages/_msg_inline.asp"-->
 209 
                   Call Action_Buttons ( "Add Daemon" )
210 
                            <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 210 
                End If
211 
                            <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 211 
 
212 
                            <%
 212 
                ' Load some action buttons
213 
                            If canActionControlInProject("BuildConfiguration") Then
 213 
                Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
214 
                               Call Action_Buttons ( "Add Daemon" )
 214 
                objBtnControl.ButtonSpacer = 1
215 
                            End If
 215 
                %>
216 
 
 216 
            </div>
217 
                            ' Load some action buttons
 217 
            <div class=listPanel>
218 
                            Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
 218 
                <!-- +++++++++++++++++++++++++++++++++++ -->
219 
                            objBtnControl.ButtonSpacer = 1
 219 
                <table class=embedded_table style='width:640px'>
220 
 
 220 
                    <thead>
221 
                            %>
 221 
                         <th></th>
222 
                         </td>
 222 
                         <th>DAEMON HOST</th>
223 
                         </tr>
 223 
                         <th>GBE_MACHTYPE</th>
224 
                         <tr>
 224 
                         <th>DAEMON MODE</th>
225 
                         <td class=listPanel>
 225 
                         <th>GBE_BUILDFILTER</th>
226 
                            <!-- +++++++++++++++++++++++++++++++++++ -->
 226 
                         <%If canActionControlInProject("BuildConfiguration") Then%>
227 
                            <table class=embedded_table>
 227 
                            <th>ACTION</th>
228 
                                <thead>
 228 
                         <%End If%>
229 
                                     <th></th>
 229 
                    </thead>
230 
                                     <th>DAEMON HOST</th>
 230 
                  <%
231 
                                     <th>GBE_MACHTYPE</th>
 231 
                  query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
232 
                                     <th>DAEMON MODE</th>
 232 
                                 " from release_manager.release_config rc," &_
233 
                                     <th>GBE_BUILDFILTER</th>
 233 
                                 "      release_manager.build_machine_config bm," &_
234 
                                     <%If canActionControlInProject("BuildConfiguration") Then%>
 234 
                                 "      release_manager.gbe_machtype gbe" &_
235 
                                        <th>ACTION</th>
 235 
                                 " where rc.rtag_id=" & parRtagId &_
236 
                                     <%End If%>
 236 
                                 "      and rc.bmcon_id=bm.bmcon_id(+)" &_
237 
                                </thead>
 237 
                                 "      and rc.gbe_id=gbe.gbe_id" &_
238 
                              <%
 238 
                                 " order by daemon_mode, bm.display_name"
239 
                              query_string = "select rcon_id, display_name, rc.bmcon_id, daemon_mode, gbe_value, gbe_buildfilter, NVL(active, 'U') as ACTIVE " &_
 239 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
240 
                                             " from release_manager.release_config rc," &_
 240 
                  Dim daemon_mode, daemon, cbtype, bActive, bInactiveMachine, dClass
241 
                                             "      release_manager.build_machine_config bm," &_
 241 
                  bInactiveMachine = false
242 
                                             "      release_manager.gbe_machtype gbe" &_
 242 
 
243 
                                             " where rc.rtag_id=" & parRtagId &_
 243 
                  cbtype = "hidden"
244 
                                             "      and rc.bmcon_id=bm.bmcon_id(+)" &_
 244 
                  If canActionControlInProject("BuildConfiguration") Then
245 
                                             "      and rc.gbe_id=gbe.gbe_id" &_
 245 
                     cbtype = "checkbox"
246 
                                             " order by daemon_mode, bm.display_name"
 246 
                  End If
247 
                              Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 247 
 
248 
                              Dim daemon_mode, daemon, cbtype, bActive, bInactiveMachine, dClass
 248 
                  '--- Render rows ---
249 
                              bInactiveMachine = false
 249 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
250 
 
 250 
                     rcon_id = rsQry("rcon_id")
251 
                              cbtype = "hidden"
 251 
                     daemon  = rsQry("display_name")
252 
                              If canActionControlInProject("BuildConfiguration") Then
 252 
                     If IsNull(daemon) Then
253 
                                 cbtype = "checkbox"
 253 
                         daemon = ""
254 
                              End If
 254 
                     End If
255 
 
 255 
 
256 
                              '--- Render rows ---
 256 
                     If rsQry("daemon_mode") = "M" Then
257 
                              Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 257 
                        daemon_mode = "MASTER"
258 
                                 rcon_id = rsQry("rcon_id")
 258 
                     Else
259 
                                 daemon  = rsQry("display_name")
 259 
                        daemon_mode = "SLAVE"
260 
                                 If IsNull(daemon) Then
 260 
                     End If
261 
                                     daemon = ""
 261 
 
262 
                                 End If
 262 
                     bActive = rsQry("active")
263 
 
 263 
                     dClass = ""
264 
                                 If rsQry("daemon_mode") = "M" Then
 264 
                     If bActive = "N" Then
265 
                                    daemon_mode = "MASTER"
 265 
                        bInactiveMachine = true
266 
                                 Else
 266 
                        dClass = " err_alert strike"
267 
                                    daemon_mode = "SLAVE"
 267 
                     End If
268 
                                 End If
 268 
 
269 
 
 269 
                     %>
270 
                                 bActive = rsQry("active")
 270 
                     <tr class=border>
271 
                                 dClass = ""
 271 
                        <td class=center><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
272 
                                 If bActive = "N" Then
 272 
                        <td <%=dClass%>"><%=daemon%></td>
273 
                                    bInactiveMachine = true
 273 
                        <td><%=rsQry("gbe_value")%></td>
274 
                                    dClass = " err_alert strike"
 274 
                        <td><%=daemon_mode%></td>
275 
                                 End If
 275 
                        <td class=wrap><%=rsQry("gbe_buildfilter")%></td>
276 
 
 276 
                        <%If canActionControlInProject("BuildConfiguration") Then%>
277 
                                 %>
 277 
                           <td>
278 
                                 <tr class=border>
 278 
                                <%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
279 
                                    <td class=center><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
 279 
                           </td>
280 
                                    <td <%=dClass%>"><%=daemon%></td>
 - 
 
281 
                                    <td><%=rsQry("gbe_value")%></td>
 - 
 
282 
                                    <td><%=daemon_mode%></td>
 - 
 
283 
                                    <td class=wrap><%=rsQry("gbe_buildfilter")%></td>
 - 
 
284 
                                    <%If canActionControlInProject("BuildConfiguration") Then%>
 - 
 
285 
                                       <td>
 - 
 
286 
                                            <%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%>
 - 
 
287 
                                       </td>
 - 
 
288 
                                    <%End If%>
 - 
 
289 
                                 </tr>
 - 
 
290 
                                 <%
 - 
 
291 
                                 rsQry.MoveNext
 - 
 
292 
                                  Loop
 - 
 
293 
                                  rsQry.Close()
 - 
 
294 
                                  Set rsQry = nothing
 - 
 
295 
                                  %>
 - 
 
296 
                            </table>
 - 
 
297 
                        </td>
 - 
 
298 
                        </tr>
 - 
 
299 
                        <%If masterCount <> 1 OR toolsetWarning OR bInactiveMachine Then %>
 - 
 
300 
                          <tr>
 - 
 
301 
                            <td  class='errorPanel'>
 - 
 
302 
                            <table class="full_table">
 - 
 
303 
                                <%If masterCount <> 1 Then %>
 - 
 
304 
                                 <tr>
 - 
 
305 
                                    <td nowrap class="err_alert">Error
 - 
 
306 
                                    <td> The set of Build Machines must have exactly one Master.
 - 
 
307 
                                 </tr>
 - 
 
308 
                                <%End If%>
 - 
 
309 
                                <%If bInactiveMachine Then %>
 - 
 
310 
                                 <tr>
 - 
 
311 
                                    <td nowrap class="err_alert">Error
 - 
 
312 
                                    <td>One or more of the Build Machines have been deprecated and no longer available for use.
 - 
 
313 
                                 </tr>
 - 
 
314 
                                <%End If%>
 - 
 
315 
                                <%If toolsetWarning Then %>
 - 
 
316 
                                 <tr>
 - 
 
317 
                                    <td nowrap class="err_alert">Warning
 - 
 
318 
                                    <td>There should be one TOOLSET builder within each set of machines with the same GBE_MACHTYPE.
 - 
 
319 
                                 </tr>
 - 
 
320 
                                <%End If%>
 - 
 
321 
                                </tr>
 - 
 
322 
                            </table>
 - 
 
323 
                         </td>
 - 
 
324 
                         </tr>
 - 
 
325 
                        <%End If%>
 280 
                        <%End If%>
326 
                         <tr>
 281 
                     </tr>
- 
 
 282 
                     <%
- 
 
 283 
                     rsQry.MoveNext
- 
 
 284 
                      Loop
- 
 
 285 
                      rsQry.Close()
- 
 
 286 
                      Set rsQry = nothing
- 
 
 287 
                      %>
- 
 
 288 
                </table>
- 
 
 289 
            </div>
- 
 
 290 
            <div>
- 
 
 291 
            <%If masterCount <> 1 OR toolsetWarning OR bInactiveMachine Then %>
- 
 
 292 
            <div  class='errorPanel'>
- 
 
 293 
                <table class="full_table">
- 
 
 294 
                <%If masterCount <> 1 Then %>
- 
 
 295 
                 <tr>
- 
 
 296 
                    <td nowrap class="err_alert">Error
327 
                            <!-- ACTION BUTTONS ---------------------------------------------->
 297 
                    <td> The set of Build Machines must have exactly one Master.
- 
 
 298 
                 </tr>
- 
 
 299 
                <%End If%>
- 
 
 300 
                <%If bInactiveMachine Then %>
- 
 
 301 
                 <tr>
- 
 
 302 
                    <td nowrap class="err_alert">Error
- 
 
 303 
                    <td>One or more of the Build Machines have been deprecated and no longer available for use.
- 
 
 304 
                 </tr>
- 
 
 305 
                <%End If%>
- 
 
 306 
                <%If toolsetWarning Then %>
- 
 
 307 
                 <tr>
- 
 
 308 
                    <td nowrap class="err_alert">Warning
- 
 
 309 
                    <td>There should be one TOOLSET builder within each set of machines with the same GBE_MACHTYPE.
- 
 
 310 
                 </tr>
- 
 
 311 
                <%End If%>
- 
 
 312 
                </table>
- 
 
 313 
             </div>
- 
 
 314 
            <%End If%>
328 
                            <td class='buttonPanel'>
 315 
            <div class='buttonPanel'>
329 
 
 - 
 
- 
 
 316 
                <!-- ACTION BUTTONS ---------------------------------------------->
330 
                               <%=objFormComponent.CancelButton ( "OK", "", "build_status.asp?rtag_id="& parRtagId )%>
 317 
               <%=objFormComponent.CancelButton ( "OK", "", "build_status.asp?rtag_id="& parRtagId )%>
331 
                               <%=objPMod.ComposeHiddenTags()%>
 318 
               <%=objPMod.ComposeHiddenTags()%>
332 
                               <%If canActionControlInProject("BuildConfiguration") Then%>
 319 
               <%If canActionControlInProject("BuildConfiguration") Then%>
333 
                                  <input name="btn" type="submit" value="Unlink">
 320 
                  <input name="btn" type="submit" value="Unlink">
334 
                                  <input name="btn" type="submit" value="Delete">
 321 
                  <input name="btn" type="submit" value="Delete">
335 
                               <%End If%>
 322 
               <%End If%>
336 
                               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
 323 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
337 
                               <input type="hidden" name="action" value="true">
 324 
               <input type="hidden" name="action" value="true">
338 
                            </td>
 - 
 
339 
                         <!-- ACTION BUTTONS END  ------------------------------------------></td>
 325 
               <!-- ACTION BUTTONS END  ------------------------------------------></td>
340 
                         </tr>
 - 
 
341 
                    </table>
 326 
            </div>
342 
                </tr>
 327 
        </div>
343 
    </table>
 328 
</div>
344 
<%
 329 
<%
345 
Call objFormComponent.FormEnd()
 330 
Call objFormComponent.FormEnd()
346 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 331 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
347 
End Sub
 332 
End Sub
348 
'---------------------------------------------------------------------
 333 
'---------------------------------------------------------------------