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



 
<!--#include file="class/classActionButtonControl.asp"-->
<%
objPMod.PersistInQryString("proj_id")
'------------ ACCESS CONTROL ------------------
'Let users view the build configuration 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"-->
<%
'------------ Variable Definition -------------
Dim objSortHelper
Dim rsQry
Dim parRtagId
Dim parSourceRtagId
Dim query_string
Dim objBtnControl
Dim rcon_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parRtagId = Request("rtag_id")
objPMod.PersistInQryString("rtag_id")
Set objBtnControl = New ActionButtonControl

 
' --- Enter Form Validation Rule Changes here... ----
'----------------------------------------------------
 
' --- RUN onPostBack ---
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
   If objForm.IsValidOnPostBack Then
 
      If objAccessControl.IsActive("BuildConfiguration") Then
         Call DeleteDaemon(Request("rcon_id_list"))
      End If
 
      If objEH.Finally Then
         Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )

                        <table width="100%" border="0" cellspacing="0" cellpadding="0">
                           <tr>
                              <td nowrap class="form_ttl">
                                 <p>&nbsp;</p>
                                 <p>
                                    <%If objAccessControl.IsActive("BuildConfiguration") Then%>
                                       ADMINISTER
                                    <%Else%>
                                       VIEW
                                    <%End If%>
                                    BUILD CONFIGURATION

                        <!--#include file="messages/_msg_inline.asp"-->
                        <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                        <br>
                        <!-- BUTTONS CONTROL +++++++++++++++++++ -->
                        <%
                        If objAccessControl.IsActive("BuildConfiguration") Then
                           Call Action_Buttons ( "Add Daemon" )
                        End If
 
                        ' Load some action buttons
                        Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase )

                     <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 HOST</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">DAEMON MODE</td>
                     <td valign="top"   wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>
                     <%If objAccessControl.IsActive("BuildConfiguration") Then%>
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>
                     <%End If%>
                     <td valign="top">
                  </tr>
                  <%

 
                  Dim daemon_mode, daemon
                  Dim cbtype
 
                  cbtype = "hidden"
                  If objAccessControl.IsActive("BuildConfiguration") Then
                     cbtype = "checkbox"
                  End If
 
                  '--- Render rows ---
                  Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)

                        <%End If%>
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("display_name")%></td>
                        <td valign="top"    nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>
                        <td valign="top"    nowrap class="body_rowg"><%=daemon_mode%></td>
                        <td valign="top"      wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>
                        <%If objAccessControl.IsActive("BuildConfiguration") Then%>
                           <td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render  ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%></td>
                        <%End If%>
                     </tr>
                     <%
                     rsQry.MoveNext

            <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("BuildConfiguration") 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>

Rev 3959	Rev 4170
Line 21...	Line 21...
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	`%>`	27	`'their login status.`
-		28	`If Request("action") <> "" AND NOT objAccessControl.UserLogedIn Then%>`
27	`<!--#include file="_access_control_login.asp"-->`	29	`<!--#include file="_access_control_login.asp"-->`
28	`<!--#include file="_access_control_general.asp"-->`	-
29	`<!--#include file="_access_control_project.asp"-->`	30	`<!--#include file="_access_control_project.asp"-->`
-		31	`<%End If%>`
-		32	`<!--#include file="_access_control_general.asp"-->`
30	`<%`	33	`<%`
31	`'------------ Variable Definition -------------`	34	`'------------ Variable Definition -------------`
32	`Dim objSortHelper`	35	`Dim objSortHelper`
33	`Dim rsQry`	36	`Dim rsQry`
34	`Dim parRtagId`	37	`Dim parRtagId`
35	`Dim parSourceRtagId`	38	`Dim parSourceRtagId`
36	`Dim query_string`	39	`Dim query_string`
37	`Dim objBtnControl`	40	`Dim objBtnControl`
38	`Dim rcon_id`	41	`Dim rcon_id`
39	`'------------ Constants Declaration -----------`	42	`'------------ Constants Declaration -----------`
40	`'------------ Variable Init -------------------`	43	`'------------ Variable Init -------------------`
41	`parRtagId = Request("rtag_id")`	44	`parRtagId = Request("rtag_id")`
42	`objPMod.PersistInQryString("rtag_id")`	45	`objPMod.PersistInQryString("rtag_id")`
43	`Set objBtnControl = New ActionButtonControl`	46	`Set objBtnControl = New ActionButtonControl`
Line 108...	Line 111...
108		111
109	`' --- Enter Form Validation Rule Changes here... ----`	112	`' --- Enter Form Validation Rule Changes here... ----`
110	`'----------------------------------------------------`	113	`'----------------------------------------------------`
111		114
112	`' --- RUN onPostBack ---`	115	`' --- RUN onPostBack ---`
113	`If Request("action") <> "" Then`	116	`If Request("action") <> "" AND objAccessControl.UserLogedIn Then`
114	`If objForm.IsValidOnPostBack Then`	117	`If objForm.IsValidOnPostBack Then`
115		118
116	`If objAccessControl.IsVisible("ConfigureRelease") Then`	119	`If objAccessControl.IsActive("BuildConfiguration") Then`
117	`Call DeleteDaemon(Request("rcon_id_list"))`	120	`Call DeleteDaemon(Request("rcon_id_list"))`
118	`End If`	121	`End If`
119		122
120	`If objEH.Finally Then`	123	`If objEH.Finally Then`
121	`Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )`	124	`Call OpenInWindow ( "release_config.asp?rtag_id="& parRtagId )`
Line 177...	Line 180...
177	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`	180	`<table width="100%" border="0" cellspacing="0" cellpadding="0">`
178	`<tr>`	181	`<tr>`
179	`<td nowrap class="form_ttl">`	182	`<td nowrap class="form_ttl">`
180	`<p> </p>`	183	`<p> </p>`
181	`<p>`	184	`<p>`
182	`<%If objAccessControl.IsVisible("ConfigureRelease") Then%>`	185	`<%If objAccessControl.IsActive("BuildConfiguration") Then%>`
183	`ADMINISTER`	186	`ADMINISTER`
184	`<%Else%>`	187	`<%Else%>`
185	`VIEW`	188	`VIEW`
186	`<%End If%>`	189	`<%End If%>`
187	`BUILD CONFIGURATION`	190	`BUILD CONFIGURATION`
Line 205...	Line 208...
205	`<!--#include file="messages/_msg_inline.asp"-->`	208	`<!--#include file="messages/_msg_inline.asp"-->`
206	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`	209	`<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->`
207	`<br>`	210	`<br>`
208	`<!-- BUTTONS CONTROL +++++++++++++++++++ -->`	211	`<!-- BUTTONS CONTROL +++++++++++++++++++ -->`
209	`<%`	212	`<%`
210	`If objAccessControl.IsVisible("ConfigureRelease") Then`	213	`If objAccessControl.IsActive("BuildConfiguration") Then`
211	`Call Action_Buttons ( "Add Daemon" )`	214	`Call Action_Buttons ( "Add Daemon" )`
212	`End If`	215	`End If`
213		216
214	`' Load some action buttons`	217	`' Load some action buttons`
215	`Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase )`	218	`Call objBtnControl.LoadActionButtons ( Array("btnEditDaemon", "btnDeleteDaemon"), OraDatabase )`
Line 227...	Line 230...
227	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>`	230	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>`
228	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>`	231	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON HOST</td>`
229	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>`	232	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">GBE_MACHTYPE</td>`
230	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>`	233	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">DAEMON MODE</td>`
231	`<td valign="top" wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>`	234	`<td valign="top" wrap background="images/bg_table_col.gif" class="body_col">GBE_BUILDFILTER</td>`
232	`<%If objAccessControl.IsVisible("ConfigureRelease") Then%>`	235	`<%If objAccessControl.IsActive("BuildConfiguration") Then%>`
233	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>`	236	`<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">ACTION</td>`
234	`<%End If%>`	237	`<%End If%>`
235	`<td valign="top">`	238	`<td valign="top">`
236	`</tr>`	239	`</tr>`
237	`<%`	240	`<%`
Line 242...	Line 245...
242		245
243	`Dim daemon_mode, daemon`	246	`Dim daemon_mode, daemon`
244	`Dim cbtype`	247	`Dim cbtype`
245		248
246	`cbtype = "hidden"`	249	`cbtype = "hidden"`
247	`If objAccessControl.IsVisible("ConfigureRelease") Then`	250	`If objAccessControl.IsActive("BuildConfiguration") Then`
248	`cbtype = "checkbox"`	251	`cbtype = "checkbox"`
249	`End If`	252	`End If`
250		253
251	`'--- Render rows ---`	254	`'--- Render rows ---`
252	`Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`	255	`Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)`
Line 270...	Line 273...
270	`<%End If%>`	273	`<%End If%>`
271	`<td valign="top" nowrap class="body_rowg"><%=rsQry("display_name")%></td>`	274	`<td valign="top" nowrap class="body_rowg"><%=rsQry("display_name")%></td>`
272	`<td valign="top" nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>`	275	`<td valign="top" nowrap class="body_rowg"><%=rsQry("gbe_value")%></td>`
273	`<td valign="top" nowrap class="body_rowg"><%=daemon_mode%></td>`	276	`<td valign="top" nowrap class="body_rowg"><%=daemon_mode%></td>`
274	`<td valign="top" wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>`	277	`<td valign="top" wrap class="body_rowg"><%=rsQry("gbe_buildfilter")%></td>`
275	`<%If objAccessControl.IsVisible("ConfigureRelease") Then%>`	278	`<%If objAccessControl.IsActive("BuildConfiguration") Then%>`
276	`<td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%></td>`	279	`<td valign="top" nowrap class="body_rowg"><%Call objBtnControl.Render ( Array("btnEditDaemon", "btnDeleteDaemon"), objAccessControl )%></td>`
277	`<%End If%>`	280	`<%End If%>`
278	`</tr>`	281	`</tr>`
279	`<%`	282	`<%`
280	`rsQry.MoveNext`	283	`rsQry.MoveNext`
Line 298...	Line 301...
298	`<td background="images/bg_action_norm.gif" ></td>`	301	`<td background="images/bg_action_norm.gif" ></td>`
299	`<td align="right" background="images/bg_action_norm.gif" >`	302	`<td align="right" background="images/bg_action_norm.gif" >`
300		303
301	`<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%>`	304	`<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "dependencies.asp?rtag_id="& parRtagId )%>`
302	`<%=objPMod.ComposeHiddenTags()%>`	305	`<%=objPMod.ComposeHiddenTags()%>`
303	`<%If objAccessControl.IsVisible("ConfigureRelease") Then%>`	306	`<%If objAccessControl.IsActive("BuildConfiguration") Then%>`
304	`<input name="btn" type="submit" class="form_btn" value="Delete">`	307	`<input name="btn" type="submit" class="form_btn" value="Delete">`
305	`<%End If%>`	308	`<%End If%>`
306	`<input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">`	309	`<input type="hidden" name="rcon_id_list" value="<%=Request("rcon_id_list")%>">`
307	`<input type="hidden" name="action" value="true">`	310	`<input type="hidden" name="action" value="true">`
308	`</td>`	311	`</td>`

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/release_config.asp @ 4254 – Rev 3959 → 4170