Subversion Repositories DevTools

Rev

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

Rev 6181 Rev 6508
Line 179... Line 179...
179 
      Response.write LIMG_TREE_I_FULL
 179 
      Response.write LIMG_TREE_I_FULL
180 
   End If
 180 
   End If
181 
 
 181 
 
182 
End Sub
 182 
End Sub
183 
'----------------------------------------------------------------------------------------------------------------------------------------------
 183 
'----------------------------------------------------------------------------------------------------------------------------------------------
184 
Sub NewRelease ()
 - 
 
185 
    Call OpenInWindow ( "new_release.asp?" & objPMod.ComposeURL() )
 - 
 
186 
End Sub
 - 
 
187 
'----------------------------------------------------------------------------------------------------------------------------------------------
 - 
 
188 
Sub MergeManager ()
 - 
 
189 
    ' Open Merge Manager without parameters
 - 
 
190 
    Call OpenInWindow ( "diff.asp" )
 - 
 
191 
End Sub
 - 
 
192 
'----------------------------------------------------------------------------------------------------------------------------------------------
 - 
 
193 
Sub AdminView()
 - 
 
194 
     Dim Query_String
 - 
 
195 
     Query_String = _
 - 
 
196 
     "   SELECT DISTINCT vi.view_id, vi.view_name"&_
 - 
 
197 
     "   FROM VIEWS vi"&_
 - 
 
198 
     "   WHERE vi.view_name = 'PROJECT WIDE'"
 - 
 
199 
     Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 - 
 
200 
 
 - 
 
201 
     Dim viewRecordCount
 - 
 
202 
     Dim id
 - 
 
203 
     viewRecordCount=0
 - 
 
204 
     viewRecordCount = rsQry.RecordCount
 - 
 
205 
 
 - 
 
206 
     While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
207 
        id=rsQry.Fields("view_id")
 - 
 
208 
        rsQry.MoveNext
 - 
 
209 
     WEnd
 - 
 
210 
 
 - 
 
211 
      rsQry.Close()
 - 
 
212 
     Set rsQry = nothing
 - 
 
213 
 
 - 
 
214 
     If viewRecordCount = 0 Then
 - 
 
215 
        OraDatabase.Parameters.Add "PROJ_ID", parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
216 
        Query_String = _
 - 
 
217 
        " SELECT DISTINCT vi.view_id, vi.view_name"&_
 - 
 
218 
        " FROM VIEWS vi, RELEASE_CONTENT rc, RELEASE_TAGS rt"&_
 - 
 
219 
        " WHERE rc.BASE_VIEW_ID = vi.VIEW_ID AND rt.proj_id = "& parProjId &"AND rc.rtag_id = rt.rtag_id"&_
 - 
 
220 
        " ORDER BY ( vi.view_name )"
 - 
 
221 
 
 - 
 
222 
        Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 - 
 
223 
 
 - 
 
224 
        OraDatabase.Parameters.Remove "PROJ_ID"
 - 
 
225 
        viewRecordCount = rsQry.RecordCount
 - 
 
226 
 
 - 
 
227 
        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 - 
 
228 
           id=rsQry.Fields("view_id")
 - 
 
229 
           rsQry.MoveNext
 - 
 
230 
        WEnd
 - 
 
231 
 
 - 
 
232 
        rsQry.Close()
 - 
 
233 
        Set rsQry = nothing
 - 
 
234 
     End If
 - 
 
235 
 
 - 
 
236 
     If viewRecordCount = 0 Then
 - 
 
237 
        Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&parProjId)
 - 
 
238 
     Else
 - 
 
239 
        Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&parProjId&"&FRview_id="&id)
 - 
 
240 
     End If
 - 
 
241 
End Sub
 - 
 
242 
'----------------------------------------------------------------------------------------------------------------------------------------------
 - 
 
243 
Function GetViewType ()
 184 
Function GetViewType ()
244 
   Dim CookieViewType
 185 
   Dim CookieViewType
245 
 
 186 
 
246 
   CookieViewType = Request.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW")
 187 
   CookieViewType = Request.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW")
247 
 
 188 
 
Line 342... Line 283...
342 
   If Request("btn") = "Update" Then
 283 
   If Request("btn") = "Update" Then
343 
      ' Store filter in cookie
 284 
      ' Store filter in cookie
344 
      Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("show_filter") = Request("listFilter")
 285 
      Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("show_filter") = Request("listFilter")
345 
      parShowFilter = Request("listFilter")
 286 
      parShowFilter = Request("listFilter")
346 
      If IsNull(parShowFilter) OR parShowFilter = "" Then parShowFilter = DEFAULT_SHOW_FILTER
 287 
      If IsNull(parShowFilter) OR parShowFilter = "" Then parShowFilter = DEFAULT_SHOW_FILTER
347 
   Else
 - 
 
348 
      '-- Select Action
 - 
 
349 
      Select Case Request("action")
 - 
 
350 
          Case "btnNewRelease"
 - 
 
351 
             Call NewRelease()
 - 
 
352 
 
 - 
 
353 
          Case "btnMergeManager"
 - 
 
354 
             Call MergeManager()
 - 
 
355 
 
 - 
 
356 
          Case "btnAdminView"
 - 
 
357 
             Call AdminView()
 - 
 
358 
      End Select
 - 
 
359 
   End If
 288 
   End If
360 
 
 289 
 
361 
End If
 290 
End If
362 
 
 291 
 
363 
' Set view type  if required
 292 
' Set view type  if required
Line 726... Line 655...
726 
               </td>
 655 
               </td>
727 
               <td width="100%">
 656 
               <td width="100%">
728 
                  <%
 657 
                  <%
729 
                  Dim aBtnsDef
 658 
                  Dim aBtnsDef
730 
                  ' Define action buttons
 659 
                  ' Define action buttons
731 
                  aBtnsDef = Array("btnNewRelease", "width=5", "btnMergeManager", "width=5", "btnAdminView")
 660 
                  aBtnsDef = Array("btnNewRelease", "width=5", "btnMergeManager", "width=5", "btnAdminView", "width=5", "btnNotificationView")
732 
 
 661 
 
733 
                  ' Load action buttons from database
 662 
                  ' Load action buttons from database
734 
                  Call objBtnControl.LoadActionButtons ( aBtnsDef, OraDatabase )
 663 
                  Call objBtnControl.LoadActionButtons ( aBtnsDef, OraDatabase )
735 
 
 664 
 
736 
                  ' Set spacing to minimum between buttons
 665 
                  ' Set spacing to minimum between buttons