Subversion Repositories DevTools

Rev

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

Rev 119 Rev 121
Line 306... Line 306...
306
		
306
		
307
		Case "btnMergeManager"
307
		Case "btnMergeManager"
308
			Call MergeManager()
308
			Call MergeManager()
309
		
309
		
310
		Case "btnAdminView"	
310
		Case "btnAdminView"	
-
 
311
      Dim Query_String
-
 
312
      Query_String = _
-
 
313
      "	SELECT DISTINCT vi.view_id, vi.view_name"&_
-
 
314
      "	FROM VIEWS vi"&_
-
 
315
      "	WHERE vi.view_name = 'PROJECT WIDE'"
-
 
316
      Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
-
 
317
	    		  
-
 
318
      Dim viewRecordCount
-
 
319
      Dim id
-
 
320
      viewRecordCount=0
-
 
321
      viewRecordCount = rsQry.RecordCount
-
 
322
  
-
 
323
      While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
324
        id=rsQry.Fields("view_id")
-
 
325
        rsQry.MoveNext
-
 
326
      WEnd
-
 
327
	
-
 
328
	    rsQry.Close()
-
 
329
      Set rsQry = nothing
-
 
330
 
-
 
331
      If viewRecordCount = 0 Then
-
 
332
        OraDatabase.Parameters.Add "PROJ_ID", parProjId, 	ORAPARM_INPUT, ORATYPE_NUMBER
-
 
333
        Query_String = _
-
 
334
        " SELECT DISTINCT vi.view_id, vi.view_name"&_
-
 
335
        " FROM VIEWS vi, RELEASE_CONTENT rc, RELEASE_TAGS rt"&_
-
 
336
        " WHERE rc.BASE_VIEW_ID = vi.VIEW_ID AND rt.proj_id = "& parProjId &"AND rc.rtag_id = rt.rtag_id"&_
-
 
337
        " ORDER BY ( vi.view_name )"
-
 
338
 
-
 
339
      	Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
-
 
340
      			  
-
 
341
        OraDatabase.Parameters.Remove "PROJ_ID"
-
 
342
        viewRecordCount = rsQry.RecordCount
-
 
343
 
-
 
344
        While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
-
 
345
          id=rsQry.Fields("view_id")
-
 
346
          rsQry.MoveNext
-
 
347
        WEnd
-
 
348
      				
-
 
349
        rsQry.Close()
-
 
350
        Set rsQry = nothing
-
 
351
      End If
-
 
352
      If viewRecordCount = 0 Then
311
			Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id"))
353
        Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id"))
-
 
354
      Else
-
 
355
	    	Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&id)
-
 
356
	    End If
312
		
357
 
313
	End Select
358
	End Select
314
	
359
	
315
End If
360
End If
316
 
361
 
317
' Set view type if required
362
' Set view type if required