Subversion Repositories DevTools

Rev

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

Rev 6070 Rev 6508
Line 27... Line 27...
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 
Dim parViewId
32 
'------------ Constants Declaration -----------
 33 
'------------ Constants Declaration -----------
33 
'------------ Variable Init -------------------
 34 
'------------ Variable Init -------------------
34 
parProjId = Request("proj_id")
 35 
parProjId = Request("proj_id")
- 
 
 36 
parViewId = NiceInt(Request("FRview_id"), -1 )
35 
objPMod.PersistInQryString("proj_id")
 37 
objPMod.PersistInQryString("proj_id")
36 
'----------------------------------------------
 38 
'----------------------------------------------
37 
'--------------------------------------------------------------------------------------------------------------------------
 39 
'--------------------------------------------------------------------------------------------------------------------------
38 
Sub GetFormDetails ( parProjId, ByRef outobjDetails )
 40 
Sub GetFormDetails ( parProjId, ByRef outobjDetails )
39 
  Dim rsQry, query
 41 
  Dim rsQry, query
Line 62... Line 64...
62 
'--------------------------------------------------------------------------------------------------------------------------
 64 
'--------------------------------------------------------------------------------------------------------------------------
63 
Sub DeleteViewOwner (userId, viewId)
 65 
Sub DeleteViewOwner (userId, viewId)
64 
 
 66 
 
65 
  On Error Resume Next
 67 
  On Error Resume Next
66 
 
 68 
 
67 
  OraDatabase.Parameters.Add "PROJ_ID",    Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 69 
  OraDatabase.Parameters.Add "PROJ_ID",         Request("proj_id"),         ORAPARM_INPUT, ORATYPE_NUMBER
68 
  OraDatabase.Parameters.Add "VIEW_ID",    viewId,   ORAPARM_INPUT, ORATYPE_NUMBER
 70 
  OraDatabase.Parameters.Add "VIEW_ID",         viewId,                     ORAPARM_INPUT, ORATYPE_NUMBER
69 
  OraDatabase.Parameters.Add "USER_ID_LIST",  userId,   ORAPARM_INPUT, ORATYPE_VARCHAR2
 71 
  OraDatabase.Parameters.Add "USER_ID_LIST",    userId,                     ORAPARM_INPUT, ORATYPE_VARCHAR2
70 
  OraDatabase.Parameters.Add "USER_ID",   objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 72 
  OraDatabase.Parameters.Add "USER_ID",         objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
71 
 
 73 
 
72 
  objEH.TryORA ( OraSession )
 74 
  objEH.TryORA ( OraSession )
73 
 
 75 
 
74 
  OraDatabase.ExecuteSQL _
 76 
  OraDatabase.ExecuteSQL _
75 
  "BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
 77 
  "BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
Line 120... Line 122...
120 
      Call DeleteViewOwner(userId, viewId)
 122 
      Call DeleteViewOwner(userId, viewId)
121 
      End If
 123 
      End If
122 
    End if
 124 
    End if
123 
 
 125 
 
124 
    If objEH.Finally Then
 126 
    If objEH.Finally Then
125 
      Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&Request("FRview_id") )
 127 
      Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&parProjId&"&FRview_id="&parViewId )
126 
    End If
 128 
    End If
127 
 
 129 
 
128 
  End If
 130 
  End If
129 
 
 131 
 
130 
End If
 132 
End If
131 
 
 - 
 
132 
'----------------------------------------------
 133 
'----------------------------------------------
- 
 
 134 
Sub BaseViewCombo
- 
 
 135 
    OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 136 
    Dim ProjectWideId : ProjectWideId = 0
- 
 
 137 
    Dim selectedFound : selectedFound = FALSE
- 
 
 138 
    Dim rsQry
- 
 
 139 
 
- 
 
 140 
    Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
- 
 
 141 
 
- 
 
 142 
    Dim Query_String : Query_String = _
- 
 
 143 
                "SELECT DISTINCT vi.view_id, vi.view_name" &_
- 
 
 144 
                " FROM VIEWS vi" &_
- 
 
 145 
                " WHERE vi.view_name = 'PROJECT WIDE'"
- 
 
 146 
 
- 
 
 147 
    Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
- 
 
 148 
    If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then
- 
 
 149 
        ProjectWideId = rsQry("view_id")
- 
 
 150 
        '
- 
 
 151 
        '   Display PROJECT_WIDE first
- 
 
 152 
        '   It may be selected too.
- 
 
 153 
        '
- 
 
 154 
        Dim selectProjectWide : selectProjectWide = ""
- 
 
 155 
        If parViewId = -1 Then
- 
 
 156 
            parViewId = rsQry("view_id")
- 
 
 157 
        End If
- 
 
 158 
        If CDbl(parViewId) = CDbl(rsQry("view_id"))  Then
- 
 
 159 
            selectProjectWide = " selected"
- 
 
 160 
            selectedFound = TRUE
- 
 
 161 
        End If
- 
 
 162 
        Response.write "<option value='"& rsQry("view_id") &"'" & selectProjectWide & ">" & rsQry("view_name")  & "</option>"
- 
 
 163 
    End If
- 
 
 164 
    rsQry.Close()
- 
 
 165 
 
- 
 
 166 
    '
- 
 
 167 
    '   Add in all the other project views
- 
 
 168 
 
- 
 
 169 
      Query_String = _
- 
 
 170 
            "  SELECT DISTINCT vi.view_id, vi.view_name"&_
- 
 
 171 
            "  FROM VIEWS vi,"&_
- 
 
 172 
            "   RELEASE_CONTENT rc,"&_
- 
 
 173 
            "   RELEASE_TAGS rt"&_
- 
 
 174 
            "  WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
- 
 
 175 
            "   AND rt.proj_id = "& parProjId &_
- 
 
 176 
            "   AND rc.rtag_id = rt.rtag_id"&_
- 
 
 177 
            "   ORDER BY UPPER( vi.view_name )"
- 
 
 178 
 
- 
 
 179 
    Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
- 
 
 180 
 
- 
 
 181 
    OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 182 
    While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
- 
 
 183 
      Dim selected : selected = ""
- 
 
 184 
      If (CDbl(parViewId) = CDbl(rsQry("view_id"))) Then
- 
 
 185 
          selected = " selected"
- 
 
 186 
          selectedFound = TRUE
- 
 
 187 
      End If
- 
 
 188 
      Response.write "<option value='"& rsQry("view_id") &"'" & selected &">" & rsQry("view_name") &"</option>"
- 
 
 189 
      rsQry.MoveNext
- 
 
 190 
    WEnd
- 
 
 191 
 
- 
 
 192 
    rsQry.Close()
- 
 
 193 
    Set rsQry = nothing
- 
 
 194 
    OraDatabase.Parameters.Remove "PROJ_ID"
- 
 
 195 
 
- 
 
 196 
    ' Set the projectWideId if none have been correctly selected
- 
 
 197 
    If NOT selectedFound Then
- 
 
 198 
        parViewId = ProjectWideId
- 
 
 199 
    End If
- 
 
 200 
    Response.write "</select>"
- 
 
 201 
End Sub
133 
%>
 202 
%>
134 
 
 203 
 
135 
<html>
 204 
<html>
136 
<head>
 205 
<head>
137 
<title>Release Manager</title>
 206 
<title>Release Manager</title>
Line 201... Line 270...
201 
                <td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
 270 
                <td valign="top" nowrap><%=objFormComponent.TextBox ( "project_name", objForm.GetValue( "project_name", objFormCollector.Item("proj_name") ), "class='form_ivalue' readonly" )%></td>
202 
              </tr>
 271 
              </tr>
203 
              <tr>
 272 
              <tr>
204 
                <td nowrap class="form_iname" valign="top">Select Base View </td>
 273 
                <td nowrap class="form_iname" valign="top">Select Base View </td>
205 
                <td valign="top" nowrap class="form_iname">
 274 
                <td valign="top" nowrap class="form_iname">
206 
<%
 - 
 
207 
OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
208 
Dim Query_String
 - 
 
209 
Dim RecordCount
 - 
 
210 
RecordCount=0
 - 
 
211 
  Query_String = _
 - 
 
212 
"  SELECT DISTINCT vi.view_id, vi.view_name"&_
 - 
 
213 
"  FROM VIEWS vi"&_
 - 
 
214 
"  WHERE vi.view_name = 'PROJECT WIDE'"
 - 
 
215 
 
 - 
 
216 
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 - 
 
217 
RecordCount=rsQry.RecordCount
 - 
 
218 
 
 - 
 
219 
OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
220 
Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
 - 
 
221 
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
222 
  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
 - 
 
223 
    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
 - 
 
224 
  Else
 - 
 
225 
    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
 - 
 
226 
  End If
 - 
 
227 
  rsQry.MoveNext
 - 
 
228 
WEnd
 - 
 
229 
 
 - 
 
230 
rsQry.Close()
 - 
 
231 
 
 - 
 
232 
OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
233 
  Query_String = _
 - 
 
234 
"  SELECT DISTINCT vi.view_id, vi.view_name"&_
 - 
 
235 
"  FROM VIEWS vi,"&_
 - 
 
236 
"   RELEASE_CONTENT rc,"&_
 - 
 
237 
"   RELEASE_TAGS rt"&_
 - 
 
238 
"  WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
 - 
 
239 
"   AND rt.proj_id = "& parProjId &_
 - 
 
240 
"   AND rc.rtag_id = rt.rtag_id"&_
 - 
 
241 
"   ORDER BY UPPER( vi.view_name )"
 - 
 
242 
 
 - 
 
243 
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 - 
 
244 
RecordCount=RecordCount+rsQry.RecordCount
 - 
 
245 
 
 - 
 
246 
OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
247 
While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
248 
 
 - 
 
249 
  If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
 - 
 
250 
    Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
 - 
 
251 
  Else
 - 
 
252 
    Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
 - 
 
253 
  End If
 - 
 
254 
  rsQry.MoveNext
 - 
 
255 
 
 - 
 
256 
WEnd
 - 
 
257 
 
 - 
 
258 
rsQry.Close()
 - 
 
259 
Set rsQry = nothing
 - 
 
260 
%>
 - 
 
261 
                  </select>
 275 
                    <%Call BaseViewCombo%>
262 
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
 276 
<!-- BUTTONS CONTROL +++++++++++++++++++ -->
263 
<%
 277 
<%
264 
If RecordCount>0 and canActionControlInProject("AdminView") Then
 278 
If canActionControlInProject("AdminView") Then
265 
%>
 279 
%>
266 
                  <a href="javascript:;" class ="form_iname" onClick="MM_openVixIFrame('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=Request("FRview_id")%>','Add View Owner')"><img src="images/email-contact-orange.gif">Add View Owner</a>
 280 
                  <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>
267 
<%
 281 
<%
268 
End If
 282 
End If
269 
%>
 283 
%>
270 
<!-- +++++++++++++++++++++++++++++++++++ -->
 284 
<!-- +++++++++++++++++++++++++++++++++++ -->
271 
                </td>
 285 
                </td>