| Line 1465... |
Line 1465... |
| 1465 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
1465 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| 1466 |
objDetails.Item("vcs_type_id") = rsTemp("vcs_type_id")
|
1466 |
objDetails.Item("vcs_type_id") = rsTemp("vcs_type_id")
|
| 1467 |
objDetails.Item("vcs_name") = rsTemp("name")
|
1467 |
objDetails.Item("vcs_name") = rsTemp("name")
|
| 1468 |
objDetails.Item("vcs_tag") = rsTemp("tag")
|
1468 |
objDetails.Item("vcs_tag") = rsTemp("tag")
|
| 1469 |
Else
|
1469 |
Else
|
| 1470 |
Call RaiseErr(enum_MSG_ERROR, "Database does not contain a record of the VCS tag : " & nVcs_tag )
|
1470 |
Call RaiseMsg(enum_MSG_ERROR, "Database does not contain a record of the VCS tag : " & nVcs_tag )
|
| 1471 |
End If
|
1471 |
End If
|
| 1472 |
rsTemp.Close()
|
1472 |
rsTemp.Close()
|
| 1473 |
set rsTemp = nothing
|
1473 |
set rsTemp = nothing
|
| 1474 |
End Sub
|
1474 |
End Sub
|
| 1475 |
'----------------------------------------------------------------------------------------------------------------------
|
1475 |
'----------------------------------------------------------------------------------------------------------------------
|
| Line 1482... |
Line 1482... |
| 1482 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
1482 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| 1483 |
objDetails.Item("vcs_type_id") = rsTemp("vcs_type_id")
|
1483 |
objDetails.Item("vcs_type_id") = rsTemp("vcs_type_id")
|
| 1484 |
objDetails.Item("vcs_name") = rsTemp("name")
|
1484 |
objDetails.Item("vcs_name") = rsTemp("name")
|
| 1485 |
objDetails.Item("vcs_tag") = rsTemp("tag")
|
1485 |
objDetails.Item("vcs_tag") = rsTemp("tag")
|
| 1486 |
Else
|
1486 |
Else
|
| 1487 |
Call RaiseErr(enum_MSG_ERROR, "Database does not contain a record of the VCS type ID : " & nVcs_type_id )
|
1487 |
Call RaiseMsg(enum_MSG_ERROR, "Database does not contain a record of the VCS type ID : " & nVcs_type_id )
|
| 1488 |
End If
|
1488 |
End If
|
| 1489 |
rsTemp.Close()
|
1489 |
rsTemp.Close()
|
| 1490 |
set rsTemp = nothing
|
1490 |
set rsTemp = nothing
|
| 1491 |
Else
|
1491 |
Else
|
| 1492 |
' default to returning ClearCase info, assuming it exists in the data
|
1492 |
' default to returning ClearCase info, assuming it exists in the data
|