Subversion Repositories DevTools

Rev

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

Rev 6770 Rev 6774
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") = "Y" Then
 140 
                    If rsQry("blat_full") = "E" Then
141 
                        replicationMode = "Repository"
 141 
                        replicationMode = "Entire Repository"
- 
 
 142 
                    ElseIf  rsQry("blat_full") = "P" Then
- 
 
 143 
                        replicationMode = "All Projects"
142 
                    ElseIf  rsQry("inProject") > 0 Then
 144 
                    ElseIf  rsQry("inProject") > 0 Then
143 
                        replicationMode = "Project"
 145 
                        replicationMode = "Project"
144 
                    ElseIf  rsQry("inRelease") > 0 Then
 146 
                    ElseIf  rsQry("inRelease") > 0 Then
145 
                        replicationMode = "Release"
 147 
                        replicationMode = "Release"
146 
                    End If
148 
                    End If