| Line 1492... |
Line 1492... |
| 1492 |
' default to returning ClearCase info, assuming it exists in the data
|
1492 |
' default to returning ClearCase info, assuming it exists in the data
|
| 1493 |
Call vcs_info_from_vcs_tag( enum_VCS_CLEARCASE_TAG, objDetails )
|
1493 |
Call vcs_info_from_vcs_tag( enum_VCS_CLEARCASE_TAG, objDetails )
|
| 1494 |
End If
|
1494 |
End If
|
| 1495 |
End Sub
|
1495 |
End Sub
|
| 1496 |
'----------------------------------------------------------------------------------------------------------------------
|
1496 |
'----------------------------------------------------------------------------------------------------------------------
|
| 1497 |
Sub get_vcs_info_for_package( nPkgLabel, nBuildType, nVcsTypeId, ByRef objDetails )
|
1497 |
Sub get_vcs_info_for_package( nPkgLabel, nBuildType, nVcsTypeId, nDLocked, ByRef objDetails )
|
| 1498 |
' lots of patch versions exist with N/A as their pkg_label and null as vcs_type_id. These are all uncontrolled
|
1498 |
' lots of patch versions exist with N/A as their pkg_label and null as vcs_type_id. These are all uncontrolled
|
| 1499 |
' packages published directly into dpkg_archive with no controlled source under clearcase, so we want to treat
|
1499 |
' packages published directly into dpkg_archive with no controlled source under clearcase, so we want to treat
|
| 1500 |
' them as uncontrolled if possible.
|
1500 |
' them as uncontrolled if possible.
|
| 1501 |
If ((nPkgLabel = "N/A") OR IsNull(nPkgLabel)) AND nBuildType = "M" AND IsNull(nVcsTypeId) Then
|
1501 |
If nDLocked = "Y" AND ((nPkgLabel = "N/A") OR IsNull(nPkgLabel)) AND nBuildType = "M" AND IsNull(nVcsTypeId) Then
|
| 1502 |
Call vcs_info_from_vcs_tag( enum_VCS_UNCONTROLLED_TAG, objDetails )
|
1502 |
Call vcs_info_from_vcs_tag( enum_VCS_UNCONTROLLED_TAG, objDetails )
|
| 1503 |
Else
|
1503 |
Else
|
| 1504 |
' Otherwise, try and decode the VCS from the package's vcs_type_id entry from the package version table
|
1504 |
' Otherwise, try and decode the VCS from the package's vcs_type_id entry from the package version table
|
| 1505 |
' NOTE: A null vcs_type_id entry will default to ClearCase. That is all we have been using up til now so
|
1505 |
' NOTE: A null vcs_type_id entry will default to ClearCase. That is all we have been using up til now so
|
| 1506 |
' it should be safe.
|
1506 |
' it should be safe.
|
| Line 1510... |
Line 1510... |
| 1510 |
'----------------------------------------------------------------------------------------------------------------------
|
1510 |
'----------------------------------------------------------------------------------------------------------------------
|
| 1511 |
Sub get_vcs_info_for_pv_id( nPv_id, ByRef objDetails )
|
1511 |
Sub get_vcs_info_for_pv_id( nPv_id, ByRef objDetails )
|
| 1512 |
Dim rsTemp, Query_String
|
1512 |
Dim rsTemp, Query_String
|
| 1513 |
|
1513 |
|
| 1514 |
Query_String = _
|
1514 |
Query_String = _
|
| 1515 |
" SELECT pv.pkg_label, pv.build_type, pv.vcs_type_id "&_
|
1515 |
" SELECT pv.pkg_label, pv.build_type, pv.vcs_type_id, pv.dlocked "&_
|
| 1516 |
" FROM PACKAGE_VERSIONS pv"&_
|
1516 |
" FROM PACKAGE_VERSIONS pv"&_
|
| 1517 |
" WHERE pv.pv_id = "& nPv_id
|
1517 |
" WHERE pv.pv_id = "& nPv_id
|
| 1518 |
|
1518 |
|
| 1519 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
1519 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 1520 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
1520 |
If (NOT rsTemp.BOF ) AND (NOT rsTemp.EOF) Then
|
| 1521 |
Call get_vcs_info_for_package( rsTemp("pkg_label"), rsTemp("build_type"), rsTemp("vcs_type_id"), objDetails )
|
1521 |
Call get_vcs_info_for_package( rsTemp("pkg_label"), rsTemp("build_type"), rsTemp("vcs_type_id"), rsTemp("dlocked"), objDetails )
|
| 1522 |
Else
|
1522 |
Else
|
| 1523 |
Call RaiseMsg(enum_MSG_ERROR, "PV_ID (" & nPv_id & ") Not Found")
|
1523 |
Call RaiseMsg(enum_MSG_ERROR, "PV_ID (" & nPv_id & ") Not Found")
|
| 1524 |
End If
|
1524 |
End If
|
| 1525 |
rsTemp.Close()
|
1525 |
rsTemp.Close()
|
| 1526 |
set rsTemp = nothing
|
1526 |
set rsTemp = nothing
|