| Line 26... |
Line 26... |
| 26 |
<%
|
26 |
<%
|
| 27 |
'------------ Variable Definition -------------
|
27 |
'------------ Variable Definition -------------
|
| 28 |
Dim rsQry
|
28 |
Dim rsQry
|
| 29 |
Dim parProjId
|
29 |
Dim parProjId
|
| 30 |
Dim parViewId
|
30 |
Dim parViewId
|
| - |
|
31 |
Dim ProjectWideId : ProjectWideId = 0
|
| 31 |
'------------ Constants Declaration -----------
|
32 |
'------------ Constants Declaration -----------
|
| 32 |
'------------ Variable Init -------------------
|
33 |
'------------ Variable Init -------------------
|
| 33 |
parProjId = Request("proj_id")
|
34 |
parProjId = Request("proj_id")
|
| 34 |
parViewId = NiceInt(Request("FRview_id"), -1 )
|
35 |
parViewId = NiceInt(Request("FRview_id"), -1 )
|
| 35 |
objPMod.PersistInQryString("proj_id")
|
36 |
objPMod.PersistInQryString("proj_id")
|
| Line 89... |
Line 90... |
| 89 |
End Sub
|
90 |
End Sub
|
| 90 |
'--------------------------------------------------------------------------------------------------------------------------
|
91 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 91 |
'------------ RUN BEFORE PAGE RENDER ----------
|
92 |
'------------ RUN BEFORE PAGE RENDER ----------
|
| 92 |
' --- Get Form details from DB ---
|
93 |
' --- Get Form details from DB ---
|
| 93 |
Call GetFormDetails ( Request("proj_id"), objFormCollector )
|
94 |
Call GetFormDetails ( Request("proj_id"), objFormCollector )
|
| - |
|
95 |
Call CalcProjectWideViewId
|
| 94 |
|
96 |
|
| 95 |
' --- Enter Form Validation Rule Changes here... ----
|
97 |
' --- Enter Form Validation Rule Changes here... ----
|
| 96 |
'----------------------------------------------------
|
98 |
'----------------------------------------------------
|
| 97 |
|
99 |
|
| 98 |
' --- RUN onPostBack ---
|
100 |
' --- RUN onPostBack ---
|
| Line 127... |
Line 129... |
| 127 |
|
129 |
|
| 128 |
End If
|
130 |
End If
|
| 129 |
|
131 |
|
| 130 |
End If
|
132 |
End If
|
| 131 |
'----------------------------------------------
|
133 |
'----------------------------------------------
|
| 132 |
Sub BaseViewCombo
|
134 |
Sub CalcProjectWideViewId
|
| 133 |
OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER
|
- |
|
| 134 |
Dim ProjectWideId : ProjectWideId = 0
|
- |
|
| 135 |
Dim selectedFound : selectedFound = FALSE
|
- |
|
| 136 |
Dim rsQry
|
135 |
Dim rsQry
|
| 137 |
|
- |
|
| 138 |
Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
|
- |
|
| 139 |
|
- |
|
| 140 |
Dim Query_String : Query_String = _
|
136 |
Dim Query_String : Query_String = _
|
| 141 |
"SELECT DISTINCT vi.view_id, vi.view_name" &_
|
137 |
"SELECT DISTINCT vi.view_id, vi.view_name" &_
|
| 142 |
" FROM VIEWS vi" &_
|
138 |
" FROM VIEWS vi" &_
|
| 143 |
" WHERE vi.view_name = 'PROJECT WIDE'"
|
139 |
" WHERE vi.view_name = 'PROJECT WIDE'"
|
| 144 |
|
140 |
|
| 145 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
141 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
| - |
|
142 |
|
| 146 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
143 |
If rsQry.RecordCount > 0 Then
|
| 147 |
ProjectWideId = rsQry("view_id")
|
144 |
ProjectWideId = rsQry("view_id")
|
| 148 |
'
|
- |
|
| 149 |
' Display PROJECT_WIDE first
|
- |
|
| 150 |
' It may be selected too.
|
- |
|
| 151 |
'
|
- |
|
| 152 |
Dim selectProjectWide : selectProjectWide = ""
|
- |
|
| 153 |
If parViewId = -1 Then
|
145 |
If parViewId = -1 Then
|
| 154 |
parViewId = rsQry("view_id")
|
146 |
parViewId = ProjectWideId
|
| 155 |
End If
|
147 |
End If
|
| 156 |
If CDbl(parViewId) = CDbl(rsQry("view_id")) Then
|
- |
|
| 157 |
selectProjectWide = " selected"
|
- |
|
| 158 |
selectedFound = TRUE
|
- |
|
| 159 |
End If
|
- |
|
| 160 |
Response.write "<option value='"& rsQry("view_id") &"'" & selectProjectWide & ">" & rsQry("view_name") & "</option>"
|
- |
|
| 161 |
End If
|
148 |
End If
|
| 162 |
rsQry.Close()
|
149 |
rsQry.Close()
|
| - |
|
150 |
Set rsQry = nothing
|
| - |
|
151 |
|
| - |
|
152 |
End Sub
|
| - |
|
153 |
'----------------------------------------------
|
| - |
|
154 |
Sub BaseViewCombo
|
| - |
|
155 |
OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER
|
| - |
|
156 |
Dim selectProjectWide
|
| - |
|
157 |
Dim Query_String
|
| - |
|
158 |
Dim rsQry
|
| - |
|
159 |
|
| - |
|
160 |
Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
|
| - |
|
161 |
|
| - |
|
162 |
'
|
| - |
|
163 |
' Insert Project Wide entry first
|
| - |
|
164 |
' It may be selected too
|
| - |
|
165 |
'
|
| - |
|
166 |
If CDbl(parViewId) = CDbl(ProjectWideId) Then
|
| - |
|
167 |
selectProjectWide = " selected"
|
| - |
|
168 |
End If
|
| - |
|
169 |
|
| - |
|
170 |
Response.write "<option value='"& ProjectWideId &"'" & selectProjectWide & ">" & "PROJECT WIDE" & "</option>"
|
| 163 |
|
171 |
|
| 164 |
'
|
172 |
'
|
| 165 |
' Add in all the other project views
|
173 |
' Add in all the other project views
|
| 166 |
|
174 |
|
| 167 |
Query_String = _
|
175 |
Query_String = _
|
| 168 |
" SELECT DISTINCT vi.view_id, vi.view_name"&_
|
176 |
" SELECT DISTINCT vi.view_id, vi.view_name"&_
|
| 169 |
" FROM VIEWS vi,"&_
|
177 |
" FROM VIEWS vi,"&_
|
| 170 |
" RELEASE_CONTENT rc,"&_
|
178 |
" RELEASE_CONTENT rc,"&_
|
| 171 |
" RELEASE_TAGS rt"&_
|
179 |
" RELEASE_TAGS rt"&_
|
| 172 |
" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
|
180 |
" WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
|
| 173 |
" AND rt.proj_id = "& parProjId &_
|
181 |
" AND rt.proj_id = "& parProjId &_
|
| 174 |
" AND rc.rtag_id = rt.rtag_id"&_
|
182 |
" AND rc.rtag_id = rt.rtag_id"&_
|
| 175 |
" ORDER BY UPPER( vi.view_name )"
|
183 |
" ORDER BY UPPER( vi.view_name )"
|
| 176 |
|
184 |
|
| 177 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
185 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
| 178 |
|
186 |
|
| 179 |
OraDatabase.Parameters.Remove "PROJ_ID"
|
187 |
OraDatabase.Parameters.Remove "PROJ_ID"
|
| 180 |
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
188 |
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
| 181 |
Dim selected : selected = ""
|
189 |
Dim selected : selected = ""
|
| 182 |
If (CDbl(parViewId) = CDbl(rsQry("view_id"))) Then
|
190 |
If (CDbl(parViewId) = CDbl(rsQry("view_id"))) Then
|
| 183 |
selected = " selected"
|
191 |
selected = " selected"
|
| 184 |
selectedFound = TRUE
|
- |
|
| 185 |
End If
|
192 |
End If
|
| 186 |
Response.write "<option value='"& rsQry("view_id") &"'" & selected &">" & rsQry("view_name") &"</option>"
|
193 |
Response.write "<option value='"& rsQry("view_id") &"'" & selected &">" & rsQry("view_name") &"</option>"
|
| 187 |
rsQry.MoveNext
|
194 |
rsQry.MoveNext
|
| 188 |
WEnd
|
195 |
WEnd
|
| 189 |
|
196 |
|
| 190 |
rsQry.Close()
|
197 |
rsQry.Close()
|
| 191 |
Set rsQry = nothing
|
198 |
Set rsQry = nothing
|
| 192 |
OraDatabase.Parameters.Remove "PROJ_ID"
|
199 |
OraDatabase.Parameters.Remove "PROJ_ID"
|
| 193 |
|
200 |
|
| 194 |
' Set the projectWideId if none have been correctly selected
|
- |
|
| 195 |
If NOT selectedFound Then
|
- |
|
| 196 |
parViewId = ProjectWideId
|
- |
|
| 197 |
End If
|
- |
|
| 198 |
Response.write "</select>"
|
201 |
Response.write "</select>"
|
| 199 |
End Sub
|
202 |
End Sub
|
| - |
|
203 |
'-----------------------------------------------------------------------------------
|
| - |
|
204 |
Sub ShowSidePanel
|
| - |
|
205 |
' Nothing here
|
| - |
|
206 |
End Sub
|
| - |
|
207 |
'-----------------------------------------------------------------------------------
|
| - |
|
208 |
Sub AddNewViewControl
|
| - |
|
209 |
Dim onClick
|
| - |
|
210 |
Dim imgClass
|
| - |
|
211 |
Dim addTitle: addTitle = "Add Owners to a Base View"
|
| - |
|
212 |
If canActionControlInProject("AdminView") Then
|
| - |
|
213 |
onClick = "onClick=""MM_openVixIFrame('wAddApplicationUser.asp?proj_id=" & parProjId& "&view_id=" & parViewId & "','Add View Owner')"""
|
| - |
|
214 |
Else
|
| - |
|
215 |
addTitle = addTitle & " [Disabled]"
|
| - |
|
216 |
imgClass = "lessOpacity"
|
| - |
|
217 |
End If
|
| 200 |
%>
|
218 |
%>
|
| - |
|
219 |
<tr>
|
| - |
|
220 |
<td nowrap class="form_iname" valign="top">Select Base View </td>
|
| - |
|
221 |
<td valign="top" nowrap class="form_iname">
|
| - |
|
222 |
<%Call BaseViewCombo%>
|
| - |
|
223 |
<a title="<%=addTitle%>" href="javascript:;" class="form_iname" <%=onClick%>> <img class="<%=imgClass%>" src="images/email-contact-orange.gif"> Add View Owner</a>
|
| - |
|
224 |
</td>
|
| - |
|
225 |
</tr>
|
| 201 |
|
226 |
|
| - |
|
227 |
<%
|
| - |
|
228 |
End Sub
|
| - |
|
229 |
'-----------------------------------------------------------------------------------
|
| - |
|
230 |
Sub ShowViewOwner
|
| - |
|
231 |
Dim removeState
|
| - |
|
232 |
If NOT canActionControlInProject("AdminView") Then removeState = "disabled"
|
| - |
|
233 |
|
| - |
|
234 |
'-- FROM START
|
| - |
|
235 |
objFormComponent.FormName = "FormName"
|
| - |
|
236 |
objFormComponent.Action = ScriptName
|
| - |
|
237 |
Call objFormComponent.FormStart()
|
| - |
|
238 |
%>
|
| - |
|
239 |
<table class="embedded_table" style="margin-bottom:20px">
|
| - |
|
240 |
<tr>
|
| - |
|
241 |
<td>
|
| - |
|
242 |
<table width="95%" border="0" cellspacing="0" cellpadding="0" align="center">
|
| - |
|
243 |
<tr>
|
| - |
|
244 |
<td nowrap class="form_ttl" align="left">PROJECT VIEW OWNER DETAILS</td>
|
| - |
|
245 |
</tr>
|
| - |
|
246 |
</table>
|
| - |
|
247 |
<tr>
|
| - |
|
248 |
<td>
|
| - |
|
249 |
<table class="rounded_box embedded_table">
|
| - |
|
250 |
<tr>
|
| - |
|
251 |
<td bgcolor="#FFFFFF" valign="top" style="padding:0 10px">
|
| - |
|
252 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| - |
|
253 |
<!--#include file="messages/_msg_inline.asp"-->
|
| - |
|
254 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
| - |
|
255 |
<br>
|
| - |
|
256 |
<div style="min-height:300px;max-height:500px;overflow:auto;">
|
| - |
|
257 |
<table width="100%" border="0" cellspacing="2" cellpadding="0">
|
| - |
|
258 |
<tr>
|
| - |
|
259 |
<td colspan=5>
|
| - |
|
260 |
<table>
|
| - |
|
261 |
<tr>
|
| - |
|
262 |
<td valign="top" nowrap class="form_iname">Project Name </td>
|
| - |
|
263 |
<td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
|
| - |
|
264 |
</tr>
|
| - |
|
265 |
<%Call AddNewViewControl%>
|
| - |
|
266 |
</table>
|
| - |
|
267 |
</td>
|
| - |
|
268 |
</tr>
|
| - |
|
269 |
<tr>
|
| - |
|
270 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
|
| - |
|
271 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Base View</td>
|
| - |
|
272 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
|
| - |
|
273 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
|
| - |
|
274 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
|
| - |
|
275 |
<td valign="top"></td>
|
| - |
|
276 |
</tr>
|
| - |
|
277 |
<%
|
| - |
|
278 |
Dim currViewId
|
| - |
|
279 |
currViewId = -1
|
| - |
|
280 |
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM USERS USR, MEMBERS_GROUP MG, VIEWS V, AUTOBUILD_FAILURE AF WHERE AF.PROJ_ID = "& Request("proj_id") &" AND AF.GROUP_EMAIL_ID = MG.GROUP_EMAIL_ID AND USR.USER_ID = MG.USER_ID AND V.VIEW_ID = AF.VIEW_ID ORDER BY V.VIEW_NAME, USR.FULL_NAME" , cint(0) )
|
| - |
|
281 |
'--- Render rows ---
|
| - |
|
282 |
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
| - |
|
283 |
' -------- GROUP BY BASE VIEW -----------------
|
| - |
|
284 |
Dim BaseViewData : BaseViewData = ""
|
| - |
|
285 |
If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
|
| - |
|
286 |
%>
|
| - |
|
287 |
<tr>
|
| - |
|
288 |
<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
| - |
|
289 |
</tr>
|
| - |
|
290 |
<%
|
| - |
|
291 |
currViewId = CDbl(rsQry("view_id"))
|
| - |
|
292 |
BaseViewData = rsQry("view_name")
|
| - |
|
293 |
End If
|
| - |
|
294 |
%>
|
| - |
|
295 |
<tr>
|
| - |
|
296 |
<td align="center"><input type="checkbox" name="user_view_id_list" value="<%=rsQry("user_id")%>_<%=rsQry("view_id")%>" style="margin: 0px;"></td>
|
| - |
|
297 |
<td nowrap class="body_scol"><%=BaseViewData%></td>
|
| - |
|
298 |
<td nowrap class="body_rowg"><%=emailField3(rsQry("full_name"),rsQry("user_email"),rsQry("user_name"))%></td>
|
| - |
|
299 |
<td nowrap class="body_rowg"><%=rsQry("user_name")%></td>
|
| - |
|
300 |
<td nowrap class="body_rowg"><%=rsQry("user_email")%></td>
|
| - |
|
301 |
</tr>
|
| - |
|
302 |
<%
|
| - |
|
303 |
rsQry.MoveNext
|
| - |
|
304 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
| - |
|
305 |
End If
|
| - |
|
306 |
Loop
|
| - |
|
307 |
rsQry.Close()
|
| - |
|
308 |
Set rsQry = nothing
|
| - |
|
309 |
%>
|
| - |
|
310 |
<tr>
|
| - |
|
311 |
<td class="form_iname"> </td>
|
| - |
|
312 |
<td> </td>
|
| - |
|
313 |
<td class="val_err"></td>
|
| - |
|
314 |
</tr>
|
| - |
|
315 |
</table>
|
| - |
|
316 |
</div>
|
| - |
|
317 |
</td>
|
| - |
|
318 |
</tr>
|
| - |
|
319 |
<tr background="images/bg_action_norm.gif">
|
| - |
|
320 |
<td align="right" style="padding:5px 10px">
|
| - |
|
321 |
<input name="btn" type="submit" <%=removeState%> class="form_btn" value="Remove View Owner(s)">
|
| - |
|
322 |
<input type="hidden" name="user_id_list" value="<%=Request("user_id_list")%>">
|
| - |
|
323 |
<input type="hidden" name="action" value="true">
|
| - |
|
324 |
<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
|
| - |
|
325 |
<%=objPMod.ComposeHiddenTags()%>
|
| - |
|
326 |
</td>
|
| - |
|
327 |
</tr>
|
| - |
|
328 |
</table>
|
| - |
|
329 |
</td>
|
| - |
|
330 |
</tr>
|
| - |
|
331 |
</td>
|
| - |
|
332 |
</tr>
|
| - |
|
333 |
</table>
|
| - |
|
334 |
<%
|
| - |
|
335 |
End Sub
|
| - |
|
336 |
%>
|
| 202 |
<html>
|
337 |
<html>
|
| 203 |
<head>
|
338 |
<head>
|
| 204 |
<title>Release Manager</title>
|
339 |
<title>Release Manager</title>
|
| 205 |
<link rel="shortcut icon" href="<%=FavIcon%>"/>
|
340 |
<link rel="shortcut icon" href="<%=FavIcon%>"/>
|
| 206 |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
341 |
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
|
| Line 211... |
Line 346... |
| 211 |
<!-- DROPDOWN MENUS -->
|
346 |
<!-- DROPDOWN MENUS -->
|
| 212 |
<!--#include file="_menu_def.asp"-->
|
347 |
<!--#include file="_menu_def.asp"-->
|
| 213 |
<!--#include file="_jquery_includes.asp"-->
|
348 |
<!--#include file="_jquery_includes.asp"-->
|
| 214 |
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
|
349 |
<script language="JavaScript1.2" src="images/popup_menu.js?ver=<%=VixVerNum%>"></script>
|
| 215 |
</head>
|
350 |
</head>
|
| 216 |
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
|
351 |
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
|
| 217 |
<!-- HEADER -->
|
352 |
<!-- HEADER -->
|
| 218 |
<!--#include file="_header.asp"-->
|
353 |
<!--#include file="_header.asp"-->
|
| 219 |
<!-- BODY ---->
|
354 |
<!-- BODY ---->
|
| 220 |
|
- |
|
| 221 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
- |
|
| 222 |
<%
|
- |
|
| 223 |
'-- FROM START ---------------------------------------------------------------------------------------------------------
|
- |
|
| 224 |
objFormComponent.FormName = "FormName"
|
- |
|
| 225 |
objFormComponent.Action = ScriptName
|
- |
|
| 226 |
Call objFormComponent.FormStart()
|
- |
|
| 227 |
%>
|
- |
|
| 228 |
<tr>
|
- |
|
| 229 |
<td width="1" background="images/bg_home_orange.gif" valign="top">
|
- |
|
| 230 |
</td>
|
- |
|
| 231 |
<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
|
- |
|
| 232 |
<table width="10" border="0" cellspacing="0" cellpadding="0">
|
- |
|
| 233 |
<tr>
|
- |
|
| 234 |
<td width="1%"></td>
|
- |
|
| 235 |
<td width="100%">
|
- |
|
| 236 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
- |
|
| 237 |
<tr>
|
- |
|
| 238 |
<td nowrap class="body_txt">
|
355 |
<table class="full_table">
|
| 239 |
</td>
|
- |
|
| 240 |
</tr>
|
- |
|
| 241 |
</table>
|
- |
|
| 242 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
- |
|
| 243 |
<tr>
|
- |
|
| 244 |
<td nowrap class="form_ttl"><p> </p>
|
- |
|
| 245 |
<p>PROJECT VIEW DETAILS </p></td>
|
- |
|
| 246 |
<td align="right" valign="bottom"></td>
|
- |
|
| 247 |
</tr>
|
- |
|
| 248 |
</table>
|
- |
|
| 249 |
</td>
|
- |
|
| 250 |
<td width="1%"></td>
|
- |
|
| 251 |
</tr>
|
- |
|
| 252 |
<tr>
|
- |
|
| 253 |
<td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
|
- |
|
| 254 |
<td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
|
- |
|
| 255 |
<td align="right" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
|
- |
|
| 256 |
</tr>
|
- |
|
| 257 |
<tr>
|
356 |
<tr>
|
| 258 |
<td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
|
- |
|
| 259 |
<td bgcolor="#FFFFFF" valign="top">
|
357 |
<td width="146px" class="panel_bg" valign="top">
|
| 260 |
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
- |
|
| 261 |
<!--#include file="messages/_msg_inline.asp"-->
|
- |
|
| 262 |
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
|
- |
|
| 263 |
<br>
|
- |
|
| 264 |
<div style="min-height:300px;max-height:500px;overflow:auto;">
|
- |
|
| 265 |
<table width="100%" border="0" cellspacing="2" cellpadding="0">
|
- |
|
| 266 |
<tr>
|
- |
|
| 267 |
<td valign="top" nowrap class="form_iname">Project Name </td>
|
- |
|
| 268 |
<td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
|
- |
|
| 269 |
</tr>
|
- |
|
| 270 |
<%If canActionControlInProject("AdminView") Then%>
|
- |
|
| 271 |
<tr>
|
- |
|
| 272 |
<td nowrap class="form_iname" valign="top">Select Base View </td>
|
- |
|
| 273 |
<td valign="top" nowrap class="form_iname">
|
- |
|
| 274 |
<%Call BaseViewCombo%>
|
358 |
<%Call ShowSidePanel%>
|
| 275 |
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
|
- |
|
| 276 |
<a href="javascript:;" class ="form_iname" onClick="MM_openVixIFrame('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=parViewId%>','Add View Owner')"><img src="images/email-contact-orange.gif">Add View Owner</a>
|
- |
|
| 277 |
<!-- +++++++++++++++++++++++++++++++++++ -->
|
- |
|
| 278 |
</td>
|
359 |
</td>
|
| 279 |
<%End If%>
|
- |
|
| 280 |
<td width="9%" valign="top"></td>
|
- |
|
| 281 |
<tr>
|
- |
|
| 282 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
|
- |
|
| 283 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Base View</td>
|
- |
|
| 284 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
|
- |
|
| 285 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
|
- |
|
| 286 |
<td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
|
- |
|
| 287 |
<td valign="top">
|
- |
|
| 288 |
</tr>
|
- |
|
| 289 |
<%
|
- |
|
| 290 |
Dim currViewId
|
- |
|
| 291 |
currViewId = -1
|
- |
|
| 292 |
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM USERS USR, MEMBERS_GROUP MG, VIEWS V, AUTOBUILD_FAILURE AF WHERE AF.PROJ_ID = "& Request("proj_id") &" AND AF.GROUP_EMAIL_ID = MG.GROUP_EMAIL_ID AND USR.USER_ID = MG.USER_ID AND V.VIEW_ID = AF.VIEW_ID ORDER BY V.VIEW_NAME, USR.FULL_NAME" , cint(0) )
|
360 |
<td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
|
| 293 |
'--- Render rows ---
|
- |
|
| 294 |
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
|
- |
|
| 295 |
' -------- GROUP BY BASE VIEW -----------------
|
- |
|
| 296 |
If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
|
- |
|
| 297 |
%>
|
- |
|
| 298 |
<tr>
|
- |
|
| 299 |
<td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
- |
|
| 300 |
</tr>
|
- |
|
| 301 |
<tr>
|
- |
|
| 302 |
<td nowrap class="body_scol"></td>
|
- |
|
| 303 |
<td nowrap class="body_scol"><%=rsQry("view_name")%></td>
|
- |
|
| 304 |
<td nowrap class="body_scol"></td>
|
- |
|
| 305 |
<td nowrap class="body_scol"></td>
|
- |
|
| 306 |
<td nowrap class="body_scol"></td>
|
- |
|
| 307 |
</tr>
|
- |
|
| 308 |
<%
|
- |
|
| 309 |
currViewId = CDbl(rsQry("view_id"))
|
- |
|
| 310 |
End If
|
- |
|
| 311 |
%>
|
- |
|
| 312 |
<tr>
|
- |
|
| 313 |
<td align="center"><input type="checkbox" name="user_view_id_list" value="<%=rsQry("user_id")%>_<%=rsQry("view_id")%>"></td>
|
- |
|
| 314 |
<td nowrap class="body_rowg"></td>
|
- |
|
| 315 |
<td nowrap class="body_rowg"><%=rsQry("full_name")%></td>
|
- |
|
| 316 |
<td nowrap class="body_rowg"><%=rsQry("user_name")%></td>
|
- |
|
| 317 |
<td nowrap class="body_rowg"><%=rsQry("user_email")%></td>
|
- |
|
| 318 |
</tr>
|
- |
|
| 319 |
<%
|
- |
|
| 320 |
rsQry.MoveNext
|
- |
|
| 321 |
If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
|
- |
|
| 322 |
%>
|
- |
|
| 323 |
<tr>
|
- |
|
| 324 |
<td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
|
- |
|
| 325 |
</tr>
|
- |
|
| 326 |
<%
|
- |
|
| 327 |
End If
|
- |
|
| 328 |
Loop
|
- |
|
| 329 |
rsQry.Close()
|
- |
|
| 330 |
Set rsQry = nothing
|
- |
|
| 331 |
%>
|
- |
|
| 332 |
<tr>
|
- |
|
| 333 |
<td class="form_iname"> </td>
|
- |
|
| 334 |
<td> </td>
|
361 |
<%Call ShowViewOwner%>
|
| 335 |
<td class="val_err"></td>
|
- |
|
| 336 |
</tr>
|
- |
|
| 337 |
</table>
|
- |
|
| 338 |
</div>
|
- |
|
| 339 |
</td>
|
362 |
</td>
|
| 340 |
<td background="images/lbox_bgside_white.gif"> </td>
|
- |
|
| 341 |
</tr>
|
363 |
</tr>
|
| 342 |
<tr>
|
364 |
<tr>
|
| 343 |
<td background="images/bg_action_norm.gif" ></td>
|
- |
|
| 344 |
<td align="right" background="images/bg_action_norm.gif" >
|
- |
|
| 345 |
<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
|
- |
|
| 346 |
<%=objPMod.ComposeHiddenTags()%>
|
- |
|
| 347 |
<%
|
- |
|
| 348 |
If canActionControlInProject("AdminView") Then
|
- |
|
| 349 |
%>
|
- |
|
| 350 |
<input name="btn" type="submit" class="form_btn" value="Remove View Owner(s)">
|
- |
|
| 351 |
<%
|
- |
|
| 352 |
End If
|
- |
|
| 353 |
%>
|
- |
|
| 354 |
<input type="hidden" name="user_id_list" value="<%=Request("user_id_list")%>">
|
- |
|
| 355 |
<input type="hidden" name="action" value="true">
|
365 |
<td class="panel_bg" valign="bottom" align="center" height="350">
|
| 356 |
</td>
|
- |
|
| 357 |
<td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
|
366 |
<img src="images/img_vtree.gif" vspace="20" hspace="30"></td>
|
| 358 |
</tr>
|
- |
|
| 359 |
<tr>
|
- |
|
| 360 |
<td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
|
- |
|
| 361 |
<td background="images/lbox_bg_blue.gif"></td>
|
- |
|
| 362 |
<td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
|
- |
|
| 363 |
</tr>
|
367 |
</tr>
|
| 364 |
</table>
|
368 |
</table>
|
| 365 |
|
- |
|
| 366 |
<!-- ACTION BUTTONS ---------------------------------------------->
|
- |
|
| 367 |
<!-- ACTION BUTTONS END ------------------------------------------>
|
- |
|
| 368 |
</td>
|
- |
|
| 369 |
<td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
|
- |
|
| 370 |
</tr>
|
- |
|
| 371 |
<tr>
|
- |
|
| 372 |
<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>
|
- |
|
| 373 |
<td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
|
- |
|
| 374 |
</tr>
|
- |
|
| 375 |
<%
|
- |
|
| 376 |
Call objFormComponent.FormEnd()
|
- |
|
| 377 |
'-- FROM END ----------------------------------------------------------------------------------------------------------------
|
- |
|
| 378 |
%>
|
- |
|
| 379 |
</table>
|
- |
|
| 380 |
<!-- FOOTER -->
|
369 |
<!-- FOOTER -->
|
| 381 |
<!--#include file="_footer.asp"-->
|
370 |
<!--#include file="_footer.asp"-->
|
| 382 |
</body>
|
371 |
</body>
|
| 383 |
</html>
|
372 |
</html>
|