Subversion Repositories DevTools

Rev

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

Rev 5061 Rev 5357
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'|                                                   |
 4 
'|                                                   |
5 
'|              Edit Project View Details            |
 5 
'|              Edit Project View Details            |
6 
'|                                                   |
 6 
'|                                                   |
7 
'=====================================================
 7 
'=====================================================
8 
Option explicit
 8 
Option explicit
9 
' Good idea to set when using redirect
 9 
' Good idea to set when using redirect
10 
Response.Expires = 0  ' always load the page, dont store
 10 
Response.Expires = 0  ' always load the page, dont store
11 
%>
 11 
%>
12 
<!--#include file="common/conf.asp"-->
 12 
<!--#include file="common/conf.asp"-->
13 
<!--#include file="common/globals.asp"-->
 13 
<!--#include file="common/globals.asp"-->
14 
<!--#include file="common/formating.asp"-->
 14 
<!--#include file="common/formating.asp"-->
15 
<!--#include file="common/qstr.asp"-->
 15 
<!--#include file="common/qstr.asp"-->
16 
<!--#include file="common/common_subs.asp"-->
 16 
<!--#include file="common/common_subs.asp"-->
17 
<!--#include file="common/_form_window_common.asp"-->
 17 
<!--#include file="common/_form_window_common.asp"-->
18 
<%
 18 
<%
19 
' Set rfile parameter. This is a return page after Login
 19 
' Set rfile parameter. This is a return page after Login
20 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 20 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
21 
objPMod.PersistInQryString("proj_id")
 21 
objPMod.PersistInQryString("proj_id")
22 
'------------ ACCESS CONTROL ------------------
 22 
'------------ ACCESS CONTROL ------------------
23 
%>
 23 
%>
24 
<!--#include file="_access_control_login.asp"-->
 24 
<!--#include file="_access_control_login.asp"-->
25 
<!--#include file="_access_control_general.asp"-->
 25 
<!--#include file="_access_control_general.asp"-->
26 
<!--#include file="_access_control_project.asp"-->
 26 
<!--#include file="_access_control_project.asp"-->
27 
<%
 27 
<%
28 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
29 
Dim objSortHelper
 29 
Dim objSortHelper
30 
Dim rsQry
 30 
Dim rsQry
31 
Dim parProjId
 31 
Dim parProjId
32 
'------------ Constants Declaration -----------
 32 
'------------ Constants Declaration -----------
33 
'------------ Variable Init -------------------
 33 
'------------ Variable Init -------------------
34 
parProjId = Request("proj_id")
 34 
parProjId = Request("proj_id")
35 
objPMod.PersistInQryString("proj_id")
 35 
objPMod.PersistInQryString("proj_id")
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
'--------------------------------------------------------------------------------------------------------------------------
 37 
'--------------------------------------------------------------------------------------------------------------------------
38 
Sub GetFormDetails ( parProjId, ByRef outobjDetails )
 38 
Sub GetFormDetails ( parProjId, ByRef outobjDetails )
39 
  Dim rsQry, query
 39 
  Dim rsQry, query
40 
 
 40 
 
41 
  OraDatabase.Parameters.Add "PROJ_ID",   parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
 41 
  OraDatabase.Parameters.Add "PROJ_ID",   parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
42 
 
 42 
 
43 
  query = _
 43 
  query = _
44 
  " SELECT prj.* "&_
 44 
  " SELECT prj.* "&_
45 
  " FROM PROJECTS prj"&_
 45 
  " FROM PROJECTS prj"&_
46 
  " WHERE prj.PROJ_ID = :PROJ_ID"
 46 
  " WHERE prj.PROJ_ID = :PROJ_ID"
47 
 
 47 
 
48 
  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
 48 
  Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
49 
 
 49 
 
50 
  OraDatabase.Parameters.Remove "PROJ_ID"
 50 
  OraDatabase.Parameters.Remove "PROJ_ID"
51 
 
 51 
 
52 
  If rsQry.RecordCount > 0 Then
 52 
  If rsQry.RecordCount > 0 Then
53 
    outobjDetails.Item ("proj_id") = rsQry("proj_id")
 53 
    outobjDetails.Item ("proj_id") = rsQry("proj_id")
54 
    outobjDetails.Item ("proj_name") = rsQry("proj_name")
 54 
    outobjDetails.Item ("proj_name") = rsQry("proj_name")
55 
  Else
 55 
  Else
56 
    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parProjId="& parProjId
 56 
    Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parProjId="& parProjId
57 
  End If
 57 
  End If
58 
 
 58 
 
59 
  rsQry.Close
 59 
  rsQry.Close
60 
  Set rsQry = Nothing
 60 
  Set rsQry = Nothing
61 
End Sub
 61 
End Sub
62 
'--------------------------------------------------------------------------------------------------------------------------
 62 
'--------------------------------------------------------------------------------------------------------------------------
63 
Sub DeleteViewOwner (userId, viewId)
 63 
Sub DeleteViewOwner (userId, viewId)
64 
 
 64 
 
65 
  On Error Resume Next
 65 
  On Error Resume Next
66 
 
 66 
 
67 
  OraDatabase.Parameters.Add "PROJ_ID",    Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 67 
  OraDatabase.Parameters.Add "PROJ_ID",    Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
68 
  OraDatabase.Parameters.Add "VIEW_ID",    viewId,   ORAPARM_INPUT, ORATYPE_NUMBER
 68 
  OraDatabase.Parameters.Add "VIEW_ID",    viewId,   ORAPARM_INPUT, ORATYPE_NUMBER
69 
  OraDatabase.Parameters.Add "USER_ID_LIST",  userId,   ORAPARM_INPUT, ORATYPE_VARCHAR2
 69 
  OraDatabase.Parameters.Add "USER_ID_LIST",  userId,   ORAPARM_INPUT, ORATYPE_VARCHAR2
70 
  OraDatabase.Parameters.Add "USER_ID",   objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 70 
  OraDatabase.Parameters.Add "USER_ID",   objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
71 
 
 71 
 
72 
  objEH.TryORA ( OraSession )
 72 
  objEH.TryORA ( OraSession )
73 
 
 73 
 
74 
  OraDatabase.ExecuteSQL _
 74 
  OraDatabase.ExecuteSQL _
75 
  "BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
 75 
  "BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
76 
 
 76 
 
77 
  objEH.CatchORA ( OraSession )
 77 
  objEH.CatchORA ( OraSession )
78 
 
 78 
 
79 
  OraDatabase.Parameters.Remove "PROJ_ID"
 79 
  OraDatabase.Parameters.Remove "PROJ_ID"
80 
  OraDatabase.Parameters.Remove "VIEW_ID"
 80 
  OraDatabase.Parameters.Remove "VIEW_ID"
81 
  OraDatabase.Parameters.Remove "USER_ID_LIST"
 81 
  OraDatabase.Parameters.Remove "USER_ID_LIST"
82 
  OraDatabase.Parameters.Remove "USER_ID"
 82 
  OraDatabase.Parameters.Remove "USER_ID"
83 
 
 83 
 
84 
End Sub
 84 
End Sub
85 
'--------------------------------------------------------------------------------------------------------------------------
 85 
'--------------------------------------------------------------------------------------------------------------------------
86 
Sub GetUserViewId(value, posComma)
 86 
Sub GetUserViewId(value, posComma)
87 
    txt = value
 87 
    txt = value
88 
    posComma = InStr(txt, ",")
 88 
    posComma = InStr(txt, ",")
89 
End Sub
 89 
End Sub
90 
'--------------------------------------------------------------------------------------------------------------------------
 90 
'--------------------------------------------------------------------------------------------------------------------------
91 
'------------ RUN BEFORE PAGE RENDER ----------
 91 
'------------ RUN BEFORE PAGE RENDER ----------
92 
' --- Get Form details from DB ---
 92 
' --- Get Form details from DB ---
93 
Call GetFormDetails ( Request("proj_id"), objFormCollector )
 93 
Call GetFormDetails ( Request("proj_id"), objFormCollector )
94 
 
 94 
 
95 
' --- Enter Form Validation Rule Changes here... ----
 95 
' --- Enter Form Validation Rule Changes here... ----
96 
'----------------------------------------------------
 96 
'----------------------------------------------------
97 
 
 97 
 
98 
' --- RUN onPostBack ---
 98 
' --- RUN onPostBack ---
99 
If Request("action") <> "" Then
 99 
If Request("action") <> "" Then
100 
  If objForm.IsValidOnPostBack Then
 100 
  If objForm.IsValidOnPostBack Then
101 
    Dim txt,posComma, posUnderscore, userId, viewId, value
 101 
    Dim txt,posComma, posUnderscore, userId, viewId, value
102 
 
 102 
 
103 
    Call GetUserViewId(Request("user_view_id_list"), posComma)
 103 
    Call GetUserViewId(Request("user_view_id_list"), posComma)
104 
 
 104 
 
105 
    While posComma <> 0
 105 
    While posComma <> 0
106 
      value = Mid(txt, 1, posComma-1)
 106 
      value = Mid(txt, 1, posComma-1)
107 
      posUnderscore = Instr(value, "_")
 107 
      posUnderscore = Instr(value, "_")
108 
      userId = Mid(value, 1, posUnderscore - 1)
 108 
      userId = Mid(value, 1, posUnderscore - 1)
109 
      viewId = Mid(value, posUnderscore + 1, posComma-1)
 109 
      viewId = Mid(value, posUnderscore + 1, posComma-1)
110 
      Call DeleteViewOwner(userId, viewId)
 110 
      Call DeleteViewOwner(userId, viewId)
111 
      txt = Mid(txt, posComma + 1, Len(txt))
 111 
      txt = Mid(txt, posComma + 1, Len(txt))
112 
      posComma = InStr(txt, ",")
 112 
      posComma = InStr(txt, ",")
113 
    Wend
 113 
    Wend
114 
 
 114 
 
115 
    If posComma = 0 Then
 115 
    If posComma = 0 Then
116 
      posUnderscore = Instr(txt, "_")
 116 
      posUnderscore = Instr(txt, "_")
117 
      If posUnderscore>0 Then
 117 
      If posUnderscore>0 Then
118 
      userId = Mid(txt, 1, posUnderscore - 1)
 118 
      userId = Mid(txt, 1, posUnderscore - 1)
119 
      viewId = Mid(txt, posUnderscore + 1)
 119 
      viewId = Mid(txt, posUnderscore + 1)
120 
      Call DeleteViewOwner(userId, viewId)
 120 
      Call DeleteViewOwner(userId, viewId)
121 
      End If
 121 
      End If
122 
    End if
 122 
    End if
123 
 
 123 
 
124 
    If objEH.Finally Then
 124 
    If objEH.Finally Then
125 
      Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&Request("FRview_id") )
 125 
      Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&Request("FRview_id") )
126 
    End If
 126 
    End If
127 
 
 127 
 
128 
  End If
 128 
  End If
129 
 
 129 
 
130 
End If
 130 
End If
131 
 
 131 
 
132 
'----------------------------------------------
 132 
'----------------------------------------------
133 
%>
 133 
%>
134 
 
 134 
 
135 
<html>
 135 
<html>
136 
<head>
 136 
<head>
137 
<title>Release Manager</title>
 137 
<title>Release Manager</title>
138 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
 138 
<link rel="shortcut icon" href="<%=FavIcon%>"/>
139 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 139 
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
140 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 140 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
141 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 141 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
142 
<script language="JavaScript" src="images/common.js"></script>
 142 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
143 
 
 143 
<script language="JavaScript" src="images/common.js"></script>
144 
<!-- DROPDOWN MENUS -->
 144 
 
145 
 
 145 
<!-- DROPDOWN MENUS -->
146 
 
 146 
 
147 
<!--#include file="_menu_def.asp"-->
 147 
 
148 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
 148 
<!--#include file="_menu_def.asp"-->
149 
 
 149 
<script language="JavaScript1.2" src="images/popup_menu.js"></script>
150 
</head>
 150 
 
151 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
 151 
</head>
152 
<!-- MENU LAYERS -------------------------------------->
 152 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
153 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 153 
<!-- MENU LAYERS -------------------------------------->
154 
</div>
 154 
<div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
155 
<!-- TIPS LAYERS -------------------------------------->
 155 
</div>
156 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 156 
<!-- TIPS LAYERS -------------------------------------->
157 
<!----------------------------------------------------->
 157 
<div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
158 
<!-- HEADER -->
 158 
<!----------------------------------------------------->
159 
<!--#include file="_header.asp"-->
 159 
<!-- HEADER -->
160 
<!-- BODY ---->
 160 
<!--#include file="_header.asp"-->
161 
 
 161 
<!-- BODY ---->
162 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
 162 
 
163 
<%
 163 
<table width="100%" border="0" cellspacing="0" cellpadding="0">
164 
'-- FROM START ---------------------------------------------------------------------------------------------------------
 164 
<%
165 
objFormComponent.FormName = "FormName"
 165 
'-- FROM START ---------------------------------------------------------------------------------------------------------
166 
objFormComponent.Action = ScriptName
 166 
objFormComponent.FormName = "FormName"
167 
Call objFormComponent.FormStart()
 167 
objFormComponent.Action = ScriptName
168 
%>
 168 
Call objFormComponent.FormStart()
169 
  <tr>
 169 
%>
170 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
 170 
  <tr>
171 
    </td>
 171 
    <td width="1" background="images/bg_home_orange.gif" valign="top">
172 
    <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
 172 
    </td>
173 
      <table width="10" border="0" cellspacing="0" cellpadding="0">
 173 
    <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
174 
        <tr>
 174 
      <table width="10" border="0" cellspacing="0" cellpadding="0">
175 
          <td width="1%"></td>
 175 
        <tr>
176 
          <td width="100%">
 176 
          <td width="1%"></td>
177 
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 177 
          <td width="100%">
178 
              <tr>
 178 
            <table width="100%"  border="0" cellspacing="0" cellpadding="0">
179 
                <td nowrap class="body_txt">
 179 
              <tr>
180 
                </td>
 180 
                <td nowrap class="body_txt">
181 
              </tr>
 181 
                </td>
182 
            </table>
 182 
              </tr>
183 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
 183 
            </table>
184 
              <tr>
 184 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
185 
                <td nowrap class="form_ttl"><p>&nbsp;</p>
 185 
              <tr>
186 
                  <p>EDIT PROJECT VIEW DETAILS </p></td>
 186 
                <td nowrap class="form_ttl"><p>&nbsp;</p>
187 
                <td align="right" valign="bottom"></td>
 187 
                  <p>EDIT PROJECT VIEW DETAILS </p></td>
188 
              </tr>
 188 
                <td align="right" valign="bottom"></td>
189 
            </table>
 189 
              </tr>
190 
          </td>
 190 
            </table>
191 
          <td width="1%"></td>
 191 
          </td>
192 
        </tr>
 192 
          <td width="1%"></td>
193 
        <tr>
 193 
        </tr>
194 
          <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
 194 
        <tr>
195 
          <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
 195 
          <td align="left" valign="top" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
196 
          <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
 196 
          <td background="images/lbox_bg_blue.gif" class="lbox_ttl_w"><img src="images/h_trsp_dot.gif" width="600" height="15"></td>
197 
        </tr>
 197 
          <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
198 
        <tr>
 198 
        </tr>
199 
          <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
 199 
        <tr>
200 
          <td bgcolor="#FFFFFF" valign="top">
 200 
          <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
201 
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 201 
          <td bgcolor="#FFFFFF" valign="top">
202 
<!--#include file="messages/_msg_inline.asp"-->
 202 
<!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
203 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 203 
<!--#include file="messages/_msg_inline.asp"-->
204 
            <br>
 204 
<!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
205 
            <table width="100%"  border="0" cellspacing="2" cellpadding="0">
 205 
            <br>
206 
              <tr>
 206 
            <table width="100%"  border="0" cellspacing="2" cellpadding="0">
207 
                <td valign="top" nowrap class="form_iname">Project Name </td>
 207 
              <tr>
208 
                <td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
 208 
                <td valign="top" nowrap class="form_iname">Project Name </td>
209 
              </tr>
 209 
                <td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
210 
              <tr>
 210 
              </tr>
211 
                <td nowrap class="form_iname" valign="top">Select Base View </td>
 211 
              <tr>
212 
                <td valign="top" nowrap class="form_iname">
 212 
                <td nowrap class="form_iname" valign="top">Select Base View </td>
213 
<%
 213 
                <td valign="top" nowrap class="form_iname">
214 
OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
 214 
<%
215 
Dim Query_String
 215 
OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
216 
Dim RecordCount
 216 
Dim Query_String
217 
RecordCount=0
 217 
Dim RecordCount
218 
  Query_String = _
 218 
RecordCount=0
219 
"  SELECT DISTINCT vi.view_id, vi.view_name"&_
 219 
  Query_String = _
220 
"  FROM VIEWS vi"&_
 220 
"  SELECT DISTINCT vi.view_id, vi.view_name"&_
221 
"  WHERE vi.view_name = 'PROJECT WIDE'"
 221 
"  FROM VIEWS vi"&_
222 
 
 222 
"  WHERE vi.view_name = 'PROJECT WIDE'"
223 
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 223 
 
224 
RecordCount=rsQry.RecordCount
 224 
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
225 
 
 225 
RecordCount=rsQry.RecordCount
226 
OraDatabase.Parameters.Remove "PROJ_ID"
 226 
 
227 
Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
 227 
OraDatabase.Parameters.Remove "PROJ_ID"
228 
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 228 
Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
229 
  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
 229 
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
230 
    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
 230 
  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
231 
  Else
 231 
    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
232 
    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
 232 
  Else
233 
  End If
 233 
    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
234 
  rsQry.MoveNext
 234 
  End If
235 
WEnd
 235 
  rsQry.MoveNext
236 
 
 236 
WEnd
237 
rsQry.Close()
 237 
 
238 
 
 238 
rsQry.Close()
239 
OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
 239 
 
240 
  Query_String = _
 240 
OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
241 
"  SELECT DISTINCT vi.view_id, vi.view_name"&_
 241 
  Query_String = _
242 
"  FROM VIEWS vi,"&_
 242 
"  SELECT DISTINCT vi.view_id, vi.view_name"&_
243 
"   RELEASE_CONTENT rc,"&_
 243 
"  FROM VIEWS vi,"&_
244 
"   RELEASE_TAGS rt"&_
 244 
"   RELEASE_CONTENT rc,"&_
245 
"  WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
 245 
"   RELEASE_TAGS rt"&_
246 
"   AND rt.proj_id = "& parProjId &_
 246 
"  WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
247 
"   AND rc.rtag_id = rt.rtag_id"&_
 247 
"   AND rt.proj_id = "& parProjId &_
248 
"   ORDER BY UPPER( vi.view_name )"
 248 
"   AND rc.rtag_id = rt.rtag_id"&_
249 
 
 249 
"   ORDER BY UPPER( vi.view_name )"
250 
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 250 
 
251 
RecordCount=RecordCount+rsQry.RecordCount
 251 
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
252 
 
 252 
RecordCount=RecordCount+rsQry.RecordCount
253 
OraDatabase.Parameters.Remove "PROJ_ID"
 253 
 
254 
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 254 
OraDatabase.Parameters.Remove "PROJ_ID"
255 
 
 255 
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
256 
  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
 256 
 
257 
    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
 257 
  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
258 
  Else
 258 
    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
259 
    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
 259 
  Else
260 
  End If
 260 
    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
261 
  rsQry.MoveNext
 261 
  End If
262 
 
 262 
  rsQry.MoveNext
263 
WEnd
 263 
 
264 
 
 264 
WEnd
265 
rsQry.Close()
 265 
 
266 
Set rsQry = nothing
 266 
rsQry.Close()
267 
%>
 267 
Set rsQry = nothing
268 
                  </select>
 268 
%>
269 
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 269 
                  </select>
270 
<%
 270 
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
271 
If RecordCount>0 and canActionControlInProject("AdminView") Then
 271 
<%
272 
%>
 272 
If RecordCount>0 and canActionControlInProject("AdminView") Then
273 
                  <a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=Request("FRview_id")%>','AddApplicationUser','scrollbars=yes,resizable=yes,width=650,height=800')"><img src="images/email-contact-orange.gif">Add View Owner</a>
 273 
%>
274 
<%
 274 
                  <a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=Request("FRview_id")%>','AddApplicationUser','scrollbars=yes,resizable=yes,width=650,height=800')"><img src="images/email-contact-orange.gif">Add View Owner</a>
275 
End If
 275 
<%
276 
%>
 276 
End If
277 
<!-- +++++++++++++++++++++++++++++++++++ -->
 277 
%>
278 
                </td>
 278 
<!-- +++++++++++++++++++++++++++++++++++ -->
279 
                <td width="9%" valign="top"></td>
 279 
                </td>
280 
                  <tr>
 280 
                <td width="9%" valign="top"></td>
281 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
 281 
                  <tr>
282 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Base View</td>
 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">Full Name</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">User Name</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 Email</td>
 285 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
286 
                    <td valign="top">
 286 
                    <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
287 
                  </tr>
 287 
                    <td valign="top">
288 
<%
 288 
                  </tr>
289 
Dim currViewId
 289 
<%
290 
currViewId = -1
 290 
Dim currViewId
291 
  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) )
 291 
currViewId = -1
292 
'--- Render rows ---
 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) )
293 
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 293 
'--- Render rows ---
294 
' -------- GROUP BY BASE VIEW  -----------------
 294 
Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
295 
If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
 295 
' -------- GROUP BY BASE VIEW  -----------------
296 
%>
 296 
If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
297 
                  <tr>
 297 
%>
298 
                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 298 
                  <tr>
299 
                  </tr>
 299 
                    <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
300 
                  <tr>
 300 
                  </tr>
301 
                    <td nowrap class="body_scol"></td>
 301 
                  <tr>
302 
                    <td nowrap class="body_scol"><%=rsQry("view_name")%></td>
 302 
                    <td nowrap class="body_scol"></td>
303 
                    <td nowrap class="body_scol"></td>
 303 
                    <td nowrap class="body_scol"><%=rsQry("view_name")%></td>
304 
                    <td nowrap class="body_scol"></td>
 304 
                    <td nowrap class="body_scol"></td>
305 
                    <td nowrap class="body_scol"></td>
 305 
                    <td nowrap class="body_scol"></td>
306 
                  </tr>
 306 
                    <td nowrap class="body_scol"></td>
307 
<%
 307 
                  </tr>
308 
  currViewId = CDbl(rsQry("view_id"))
 308 
<%
309 
End If
 309 
  currViewId = CDbl(rsQry("view_id"))
310 
%>
 310 
End If
311 
                  <tr>
 311 
%>
312 
                    <td align="center"><input type="checkbox" name="user_view_id_list" value="<%=rsQry("user_id")%>_<%=rsQry("view_id")%>"></td>
 312 
                  <tr>
313 
                    <td nowrap class="body_rowg"></td>
 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"><%=rsQry("full_name")%></td>
 314 
                    <td nowrap class="body_rowg"></td>
315 
                    <td nowrap class="body_rowg"><%=rsQry("user_name")%></td>
 315 
                    <td nowrap class="body_rowg"><%=rsQry("full_name")%></td>
316 
                    <td nowrap class="body_rowg"><%=rsQry("user_email")%></td>
 316 
                    <td nowrap class="body_rowg"><%=rsQry("user_name")%></td>
317 
                  </tr>
 317 
                    <td nowrap class="body_rowg"><%=rsQry("user_email")%></td>
318 
<%
 318 
                  </tr>
319 
  rsQry.MoveNext
 319 
<%
320 
  If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
 320 
  rsQry.MoveNext
321 
%>
 321 
  If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
322 
                  <tr>
 322 
%>
323 
                    <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
 323 
                  <tr>
324 
                  </tr>
 324 
                    <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
325 
<%
 325 
                  </tr>
326 
  End If
 326 
<%
327 
Loop
 327 
  End If
328 
rsQry.Close()
 328 
Loop
329 
Set rsQry = nothing
 329 
rsQry.Close()
330 
%>
 330 
Set rsQry = nothing
331 
                  <tr>
 331 
%>
332 
                    <td class="form_iname">&nbsp;</td>
 332 
                  <tr>
333 
                    <td>&nbsp;</td>
 333 
                    <td class="form_iname">&nbsp;</td>
334 
                    <td class="val_err"></td>
 334 
                    <td>&nbsp;</td>
335 
                  </tr>
 335 
                    <td class="val_err"></td>
336 
            </table>
 336 
                  </tr>
337 
          </td>
 337 
            </table>
338 
          <td background="images/lbox_bgside_white.gif">&nbsp;</td>
 338 
          </td>
339 
        </tr>
 339 
          <td background="images/lbox_bgside_white.gif">&nbsp;</td>
340 
        <tr>
 340 
        </tr>
341 
          <td background="images/bg_action_norm.gif" ></td>
 341 
        <tr>
342 
          <td align="right" background="images/bg_action_norm.gif" >
 342 
          <td background="images/bg_action_norm.gif" ></td>
343 
<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
 343 
          <td align="right" background="images/bg_action_norm.gif" >
344 
<%=objPMod.ComposeHiddenTags()%>
 344 
<%=objFormComponent.CancelButton ( "OK", "class='form_btn'", "rtree.asp?CANCEL=OK&"& objPMod.ComposeURL() )%>
345 
<%
 345 
<%=objPMod.ComposeHiddenTags()%>
346 
If canActionControlInProject("AdminView") Then
 346 
<%
347 
%>
 347 
If canActionControlInProject("AdminView") Then
348 
            <input name="btn" type="submit" class="form_btn" value="Remove View Owner(s)">
 348 
%>
349 
<%
 349 
            <input name="btn" type="submit" class="form_btn" value="Remove View Owner(s)">
350 
End If
 350 
<%
351 
%>
 351 
End If
352 
            <input type="hidden" name="user_id_list" value="<%=Request("user_id_list")%>">
 352 
%>
353 
            <input type="hidden" name="action" value="true">
 353 
            <input type="hidden" name="user_id_list" value="<%=Request("user_id_list")%>">
354 
          </td>
 354 
            <input type="hidden" name="action" value="true">
355 
          <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
 355 
          </td>
356 
        </tr>
 356 
          <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
357 
        <tr>
 357 
        </tr>
358 
          <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
 358 
        <tr>
359 
          <td background="images/lbox_bg_blue.gif"></td>
 359 
          <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
360 
          <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
 360 
          <td background="images/lbox_bg_blue.gif"></td>
361 
        </tr>
 361 
          <td background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
362 
      </table>
 362 
        </tr>
363 
 
 363 
      </table>
364 
  <!-- ACTION BUTTONS ---------------------------------------------->
 364 
 
365 
  <!-- ACTION BUTTONS END  ------------------------------------------>
 365 
  <!-- ACTION BUTTONS ---------------------------------------------->
366 
    </td>
 366 
  <!-- ACTION BUTTONS END  ------------------------------------------>
367 
    <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
 367 
    </td>
368 
  </tr>
 368 
    <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
369 
  <tr>
 369 
  </tr>
370 
    <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>
 370 
  <tr>
371 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
 371 
    <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>
372 
  </tr>
 372 
    <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
373 
<%
 373 
  </tr>
374 
Call objFormComponent.FormEnd()
 374 
<%
375 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
 375 
Call objFormComponent.FormEnd()
376 
%>
 376 
'-- FROM END ----------------------------------------------------------------------------------------------------------------
377 
</table>
 377 
%>
378 
<!-- FOOTER -->
 378 
</table>
379 
<!--#include file="_footer.asp"-->
 379 
<!-- FOOTER -->
380 
</body>
 380 
<!--#include file="_footer.asp"-->
381 
</html>
 381 
</body>
382 
<%
 382 
</html>
383 
Call Destroy_All_Objects
 383 
<%
384 
%>
 384 
Call Destroy_All_Objects
- 
 
 385 
%>