Subversion Repositories DevTools

Rev

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

Rev 6774 Rev 6775
Line 135... Line 135...
135 
                    canAdd = rsQry("InRelease") = 0
 135 
                    canAdd = rsQry("InRelease") = 0
136 
 
 136 
 
137 
                    Dim replicationMode
 137 
                    Dim replicationMode
138 
 
 138 
 
139 
                    replicationMode = ""
 139 
                    replicationMode = ""
140 
                    If rsQry("blat_full") = "E" Then
 140 
                    If rsQry("blat_mode") = "E" Then
141 
                        replicationMode = "Entire Repository"
 141 
                        replicationMode = "Entire Repository"
142 
                    ElseIf  rsQry("blat_full") = "P" Then
 142 
                    ElseIf  rsQry("blat_mode") = "P" Then
143 
                        replicationMode = "All Projects"
 143 
                        replicationMode = "All Projects"
144 
                    ElseIf  rsQry("inProject") > 0 Then
 144 
                    ElseIf  rsQry("inProject") > 0 Then
145 
                        replicationMode = "Project"
 145 
                        replicationMode = "Project"
146 
                    ElseIf  rsQry("inRelease") > 0 Then
 146 
                    ElseIf  rsQry("inRelease") > 0 Then
147 
                        replicationMode = "Release"
 147 
                        replicationMode = "Release"