Subversion Repositories DevTools

Rev

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

Rev 4997 Rev 5061
Line 117... Line 117...
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 objAccessControl.IsActive("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
Line 187... Line 187...
187 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
 187 
                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
188 
                           <tr>
 188 
                           <tr>
189 
                              <td nowrap class="form_ttl">
 189 
                              <td nowrap class="form_ttl">
190 
                                 <p>&nbsp;</p>
 190 
                                 <p>&nbsp;</p>
191 
                                 <p>
 191 
                                 <p>
192 
                                    <%If objAccessControl.IsActive("BuildConfiguration") Then%>
 192 
                                    <%If canActionControlInProject("BuildConfiguration") Then%>
193 
                                       ADMINISTER
 193 
                                       ADMINISTER
194 
                                    <%Else%>
 194 
                                    <%Else%>
195 
                                       VIEW
 195 
                                       VIEW
196 
                                    <%End If%>
 196 
                                    <%End If%>
197 
                                    BUILD CONFIGURATION
 197 
                                    BUILD CONFIGURATION
Line 215... Line 215...
215 
                        <!--#include file="messages/_msg_inline.asp"-->
 215 
                        <!--#include file="messages/_msg_inline.asp"-->
216 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 216 
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
217 
                        <br>
 217 
                        <br>
218 
                        <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 218 
                        <!-- BUTTONS CONTROL +++++++++++++++++++ -->
219 
                        <%
 219 
                        <%
220 
                        If objAccessControl.IsActive("BuildConfiguration") Then
 220 
                        If canActionControlInProject("BuildConfiguration") Then
221 
                           Call Action_Buttons ( "Add Daemon" )
 221 
                           Call Action_Buttons ( "Add Daemon" )
222 
                        End If
 222 
                        End If
223 
 
 223 
 
224 
                        ' Load some action buttons
 224 
                        ' Load some action buttons
225 
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
 225 
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), OraDatabase )
Line 237... Line 237...
237 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
 237 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
238 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>
 238 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>
239 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
 239 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>
240 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
 240 
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>
241 
                     <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
 241 
                     <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
242 
                     <%If objAccessControl.IsActive("BuildConfiguration") Then%>
 242 
                     <%If canActionControlInProject("BuildConfiguration") Then%>
243 
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
 243 
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
244 
                     <%End If%>
 244 
                     <%End If%>
245 
                     <td valign="top">
 245 
                     <td valign="top">
246 
                  </tr>
 246 
                  </tr>
247 
                  <%
 247 
                  <%
Line 256... Line 256...
256 
                                 " order by daemon_mode, bm.display_name"
 256 
                                 " order by daemon_mode, bm.display_name"
257 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
 257 
                  Set rsQry = OraDatabase.DbCreateDynaset( query_string, ORADYN_DEFAULT )
258 
                  Dim daemon_mode, daemon, cbtype
 258 
                  Dim daemon_mode, daemon, cbtype
259 
 
 259 
 
260 
                  cbtype = "hidden"
 260 
                  cbtype = "hidden"
261 
                  If objAccessControl.IsActive("BuildConfiguration") Then
 261 
                  If canActionControlInProject("BuildConfiguration") Then
262 
                     cbtype = "checkbox"
 262 
                     cbtype = "checkbox"
263 
                  End If
 263 
                  End If
264 
 
 264 
 
265 
                  '--- Render rows ---
 265 
                  '--- Render rows ---
266 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 266 
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
Line 283... Line 283...
283 
                        <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
 283 
                        <td valign="top" align="center"><input type=<%=cbtype%> name="rcon_id_list" value="<%=rsQry("rcon_id")%>"></td>
284 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon%></td>
 284 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon%></td>
285 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
 285 
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
286 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
 286 
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
287 
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
 287 
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
288 
                        <%If objAccessControl.IsActive("BuildConfiguration") Then%>
 288 
                        <%If canActionControlInProject("BuildConfiguration") Then%>
289 
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
 289 
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnRemoveDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
290 
                        <%End If%>
 290 
                        <%End If%>
291 
                     </tr>
 291 
                     </tr>
292 
                     <%
 292 
                     <%
293 
                     rsQry.MoveNext
 293 
                     rsQry.MoveNext
Line 311... Line 311...
311 
            <td background="images/bg_action_norm.gif" ></td>
 311 
            <td background="images/bg_action_norm.gif" ></td>
312 
            <td align="right" background="images/bg_action_norm.gif" >
 312 
            <td align="right" background="images/bg_action_norm.gif" >
313 
 
 313 
 
314 
               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
 314 
               <%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "build_status.asp?rtag_id="& parRtagId )%>
315 
               <%=objPMod.ComposeHiddenTags()%>
 315 
               <%=objPMod.ComposeHiddenTags()%>
316 
               <%If objAccessControl.IsActive("BuildConfiguration") Then%>
 316 
               <%If canActionControlInProject("BuildConfiguration") Then%>
317 
                  <input name="btn" type="submit" class="form_btn" value="Unlink">
 317 
                  <input name="btn" type="submit" class="form_btn" value="Unlink">
318 
                  <input name="btn" type="submit" class="form_btn" value="Delete">
 318 
                  <input name="btn" type="submit" class="form_btn" value="Delete">
319 
               <%End If%>
 319 
               <%End If%>
320 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
 320 
               <input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">
321 
               <input type="hidden" name="action" value="true">
 321 
               <input type="hidden" name="action" value="true">