Subversion Repositories DevTools

Rev

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

Rev 6774 Rev 6775
Line 83... Line 83...
83 
            Call objBtnControl.Active  ( "btnEditBlatMachine", "N" )
 83 
            Call objBtnControl.Active  ( "btnEditBlatMachine", "N" )
84 
            Call objBtnControl.Active  ( "btnDeleteBlatMachine", "N" )
 84 
            Call objBtnControl.Active  ( "btnDeleteBlatMachine", "N" )
85 
          End If
 85 
          End If
86
86
87 
          Dim rsQry
 87 
          Dim rsQry
88 
          Dim server_id,server_name,display_name, active, full, description, replicationMode
88 
          Dim server_id,server_name,display_name, active, mode, description, replicationMode
89 
          Dim activeChecked
 89 
          Dim activeChecked
90
90
91 
          Set rsQry = OraDatabase.DbCreateDynaset( "select BLAT_ID, blat_server_name, blat_display_name,blat_enable, blat_full, blat_description from BLAT_SERVERS order by UPPER(blat_server_name)", ORADYN_DEFAULT )
 91 
          Set rsQry = OraDatabase.DbCreateDynaset( "select BLAT_ID, blat_server_name, blat_display_name,blat_enable, blat_mode, blat_description from BLAT_SERVERS order by UPPER(blat_server_name)", ORADYN_DEFAULT )
92 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 92 
          While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
93 
              server_id     = rsQry("BLAT_ID")
 93 
              server_id     = rsQry("BLAT_ID")
94 
              server_name   = rsQry("blat_server_name")
 94 
              server_name   = rsQry("blat_server_name")
95 
              display_name  = rsQry("blat_display_name")
 95 
              display_name  = rsQry("blat_display_name")
96 
              active        = rsQry("blat_enable")
 96 
              active        = rsQry("blat_enable")
97 
              full          = rsQry("blat_full")
 97 
              mode          = rsQry("blat_mode")
98 
              description   = rsQry("blat_description")
 98 
              description   = rsQry("blat_description")
99 
              activeChecked = IIF( active = "Y", "checked", "")
 99 
              activeChecked = IIF( active = "Y", "checked", "")
100 
 
 100 
 
101 
              Select Case full
 101 
              Select Case mode
102 
                case "P"  replicationMode = "All Projects"
 102 
                case "P"  replicationMode = "All Projects"
103 
                case "E"  replicationMode = "Entire Archive"
 103 
                case "E"  replicationMode = "Entire Archive"
104 
                case "N"  replicationMode = "Release/Package"
 104 
                case "N"  replicationMode = "Release/Package"
105 
                case else replicationMode = "Unknown"
 105 
                case else replicationMode = "Unknown"
106 
              End Select
 106 
              End Select