Subversion Repositories DevTools

Rev

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

Rev 139 Rev 141
Line 114... Line 114...
114 
 
 114 
 
115 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 115 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
116 
   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
 116 
   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
117 
      get_clearcase_vcs_type_id = rsTemp("vcs_type_id")
 117 
      get_clearcase_vcs_type_id = rsTemp("vcs_type_id")
118 
   Else
 118 
   Else
119 
      Call RaiseErr(enum_MSG_ERROR, "Database is missing a VCS setting for Name: ClearCase, Tag: CC")
 119 
      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: ClearCase, Tag: CC")
120 
   End If
 120 
   End If
121 
   rsTemp.Close
 121 
   rsTemp.Close
122 
   Set rsTemp = nothing
 122 
   Set rsTemp = nothing
123 
End Function
 123 
End Function
124 
'----------------------------------------------------------------------------------------------------------------------
 124 
'----------------------------------------------------------------------------------------------------------------------
Line 132... Line 132...
132 
 
 132 
 
133 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 133 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
134 
   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
 134 
   If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
135 
      get_uncontrolled_vcs_type_id = rsTemp("vcs_type_id")
 135 
      get_uncontrolled_vcs_type_id = rsTemp("vcs_type_id")
136 
   Else
 136 
   Else
137 
      Call RaiseErr(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Uncontrolled, Tag: UC")
 137 
      Call RaiseMsg(enum_MSG_ERROR, "Database is missing a VCS setting for Name: Uncontrolled, Tag: UC")
138 
   End If
 138 
   End If
139 
   rsTemp.Close
 139 
   rsTemp.Close
140 
   Set rsTemp = nothing
 140 
   Set rsTemp = nothing
141 
End Function
 141 
End Function
142 
'----------------------------------------------------------------------------------------------------------------------
 142 
'----------------------------------------------------------------------------------------------------------------------