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