Subversion Repositories DevTools

Rev

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

Rev 6774 Rev 6775
Line 61... Line 61...
61 
        "    blat_servers bs," &_
 61 
        "    blat_servers bs," &_
62 
        "    blat_projects bp" &_
 62 
        "    blat_projects bp" &_
63 
        " WHERE" &_
 63 
        " WHERE" &_
64 
        "    bs.BLAT_ID = bp.BLAT_ID (+)" &_
 64 
        "    bs.BLAT_ID = bp.BLAT_ID (+)" &_
65 
        "    AND bp.proj_id(+) = :PROJ_ID" &_
 65 
        "    AND bp.proj_id(+) = :PROJ_ID" &_
66 
        "    AND (bp.BLAT_ID is NOT NULL OR bs.BLAT_FULL in ('P', 'E'))" &_
 66 
        "    AND (bp.BLAT_ID is NOT NULL OR bs.blat_mode in ('P', 'E'))" &_
67 
        " ORDER BY" &_
 67 
        " ORDER BY" &_
68 
        "    upper(blat_display_name) ASC"
 68 
        "    upper(blat_display_name) ASC"
69 
 
 69 
 
70 
   OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER
 70 
   OraDatabase.Parameters.Add "PROJ_ID", parProjId, ORAPARM_INPUT, ORATYPE_NUMBER
71 
   Set rsQry = OraDatabase.DbCreateDynaset( sQry, cint(0) )
 71 
   Set rsQry = OraDatabase.DbCreateDynaset( sQry, cint(0) )
Line 76... Line 76...
76 
      Dim btnText, btnClass, btnDisable, inUse, replicationMode
 76 
      Dim btnText, btnClass, btnDisable, inUse, replicationMode
77 
 
 77 
 
78 
      inUse = rsQry("INUSE") > 0
78 
      inUse = rsQry("INUSE") > 0
79 
 
 79 
 
80 
      replicationMode = "Unknown"
 80 
      replicationMode = "Unknown"
81 
      If rsQry("blat_full") = "P" Then
 81 
      If rsQry("blat_mode") = "P" Then
82 
          replicationMode = "All Projects"
 82 
          replicationMode = "All Projects"
83 
      ElseIf rsQry("blat_full") = "E" Then
 83 
      ElseIf rsQry("blat_mode") = "E" Then
84 
          replicationMode = "Entire Archive"
 84 
          replicationMode = "Entire Archive"
85 
      ElseIf  rsQry("inUse") > 0 Then
 85 
      ElseIf  rsQry("inUse") > 0 Then
86 
          replicationMode = "Project"
 86 
          replicationMode = "Project"
87 
      End If
 87 
      End If
88 
 
 88