| Line 388... |
Line 388... |
| 388 |
'-----------------------------------------------------------------------------------------------------------------------------
|
388 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 389 |
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
|
389 |
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
|
| 390 |
Dim rsTemp, Query_String
|
390 |
Dim rsTemp, Query_String
|
| 391 |
OraDatabase.Parameters.Add "PV_ID", SSpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
391 |
OraDatabase.Parameters.Add "PV_ID", SSpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 392 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag, ORAPARM_INPUT, ORATYPE_NUMBER
|
392 |
OraDatabase.Parameters.Add "RTAG_ID", NNrtag, ORAPARM_INPUT, ORATYPE_NUMBER
|
| 393 |
OraDatabase.Parameters.Add "RETURN_NUMBER", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
393 |
OraDatabase.Parameters.Add "RETURN_NUMBER", NULL, ORAPARM_OUTPUT, ORATYPE_NUMBER
|
| 394 |
|
- |
|
| 395 |
|
394 |
|
| 396 |
pkgInfoHash.Item ("can_unofficial") = "false"
|
395 |
pkgInfoHash.Item ("can_unofficial") = "false"
|
| 397 |
|
396 |
|
| 398 |
'/* Get Package Details */
|
397 |
'/* Get Package Details */
|
| 399 |
Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
|
398 |
Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
|
| Line 510... |
Line 509... |
| 510 |
OraDatabase.Parameters.Remove "PV_ID"
|
509 |
OraDatabase.Parameters.Remove "PV_ID"
|
| 511 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
510 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 512 |
OraDatabase.Parameters.Remove "RETURN_NUMBER"
|
511 |
OraDatabase.Parameters.Remove "RETURN_NUMBER"
|
| 513 |
|
512 |
|
| 514 |
|
513 |
|
| - |
|
514 |
' check if package is released
|
| - |
|
515 |
If NNrtag = "" Then
|
| - |
|
516 |
pkgInfoHash.Add "is_released", False
|
| - |
|
517 |
Else
|
| - |
|
518 |
Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT rc.pv_id FROM release_content rc WHERE rc.rtag_id = " & NNrtag & " AND rc.pv_id = " & SSpv_id, cint(0))
|
| - |
|
519 |
pkgInfoHash.Add "is_released", rsTemp.RecordCount <> 0
|
| - |
|
520 |
End If
|
| - |
|
521 |
|
| - |
|
522 |
pkgInfoHash.Add "is_excluded", False
|
| - |
|
523 |
pkgInfoHash.Add "has_build_failure", False
|
| - |
|
524 |
' check if package is excluded from build
|
| - |
|
525 |
If NNrtag <> "" Then
|
| - |
|
526 |
Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT dnr.pv_id,dnr.root_file FROM do_not_ripple dnr WHERE dnr.rtag_id = " & NNrtag & " AND dnr.pv_id = " & SSpv_id, cint(0))
|
| - |
|
527 |
If rsTemp.RecordCount <> 0 Then
|
| - |
|
528 |
pkgInfoHash("is_excluded") = True
|
| - |
|
529 |
pkgInfoHash("has_build_failure") = Not IsNull(rsTemp("root_file"))
|
| - |
|
530 |
End If
|
| - |
|
531 |
End If
|
| - |
|
532 |
|
| 515 |
rsTemp.Close
|
533 |
rsTemp.Close
|
| 516 |
Set rsTemp = nothing
|
534 |
Set rsTemp = nothing
|
| - |
|
535 |
|
| - |
|
536 |
|
| 517 |
End Sub
|
537 |
End Sub
|
| 518 |
'-----------------------------------------------------------------------------------------------------------------------------
|
538 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 519 |
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
|
539 |
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
|
| 520 |
Dim rsTemp, Query_String
|
540 |
Dim rsTemp, Query_String
|
| 521 |
If IsEmpty(SSparPv_id) Then Exit Sub
|
541 |
If IsEmpty(SSparPv_id) Then Exit Sub
|
| Line 930... |
Line 950... |
| 930 |
End If
|
950 |
End If
|
| 931 |
|
951 |
|
| 932 |
Else
|
952 |
Else
|
| 933 |
Select Case CInt( NNpkg_state )
|
953 |
Select Case CInt( NNpkg_state )
|
| 934 |
Case enumPKG_STATE_OK
|
954 |
Case enumPKG_STATE_OK
|
| 935 |
If (CCdlocked = "N") OR (CCdlocked = "R") OR (CCdlocked = "P") Then
|
955 |
If (CCdlocked = "N") OR (CCdlocked = "R") Then
|
| 936 |
DefineStateIcon = enum_imgBuilding
|
956 |
DefineStateIcon = enum_imgBuilding
|
| - |
|
957 |
ElseIf (CCdlocked = "P") Then
|
| - |
|
958 |
DefineStateIcon = enum_imgPending
|
| 937 |
Else
|
959 |
Else
|
| 938 |
DefineStateIcon = enum_imgBlank
|
960 |
DefineStateIcon = enum_imgBlank
|
| 939 |
End If
|
961 |
End If
|
| 940 |
|
962 |
|
| 941 |
Case enumPKG_STATE_MAJOR
|
963 |
Case enumPKG_STATE_MAJOR
|
| Line 1733... |
Line 1755... |
| 1733 |
|
1755 |
|
| 1734 |
OraDatabase.Parameters.Remove "RTAG_Id"
|
1756 |
OraDatabase.Parameters.Remove "RTAG_Id"
|
| 1735 |
OraDatabase.Parameters.Remove "NSTATE"
|
1757 |
OraDatabase.Parameters.Remove "NSTATE"
|
| 1736 |
End Sub
|
1758 |
End Sub
|
| 1737 |
|
1759 |
|
| - |
|
1760 |
'----------------------------------------------
|
| - |
|
1761 |
'Returns true if the specified package version exists in the specified table
|
| - |
|
1762 |
Function PackageExists(RtagId, pvId, stable)
|
| - |
|
1763 |
Dim rsTemp
|
| - |
|
1764 |
Dim sqry
|
| - |
|
1765 |
sqry = "SELECT * FROM " & stable & " WHERE rtag_id = " & RtagId & " AND pv_id = " & pvId
|
| - |
|
1766 |
Set rsTemp = OraDatabase.DbCreateDynaset(sqry,CInt(0))
|
| - |
|
1767 |
PackageExists = rsTemp.RecordCount > 0
|
| - |
|
1768 |
rsTemp.Close()
|
| - |
|
1769 |
Set rsTemp = Nothing
|
| - |
|
1770 |
End Function
|
| - |
|
1771 |
|
| 1738 |
%>
|
1772 |
%>
|