| Line 510... |
Line 510... |
| 510 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
510 |
OraDatabase.Parameters.Remove "RTAG_ID"
|
| 511 |
OraDatabase.Parameters.Remove "RETURN_NUMBER"
|
511 |
OraDatabase.Parameters.Remove "RETURN_NUMBER"
|
| 512 |
|
512 |
|
| 513 |
|
513 |
|
| 514 |
' check if package is released
|
514 |
' check if package is released
|
| 515 |
If NNrtag = "" Then
|
515 |
If (NNrtag = "") or (IsNull(NNrtag)) Then
|
| 516 |
pkgInfoHash.Add "is_released", False
|
516 |
pkgInfoHash.Add "is_released", False
|
| 517 |
Else
|
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))
|
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
|
519 |
pkgInfoHash.Add "is_released", rsTemp.RecordCount <> 0
|
| 520 |
End If
|
520 |
End If
|
| 521 |
|
521 |
|
| 522 |
pkgInfoHash.Add "is_excluded", False
|
522 |
pkgInfoHash.Add "is_excluded", False
|
| 523 |
pkgInfoHash.Add "has_build_failure", False
|
523 |
pkgInfoHash.Add "has_build_failure", False
|
| 524 |
' check if package is excluded from build
|
524 |
' check if package is excluded from build
|
| 525 |
If NNrtag <> "" Then
|
525 |
If Not ((NNrtag = "") or (IsNull(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))
|
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
|
527 |
If rsTemp.RecordCount <> 0 Then
|
| 528 |
pkgInfoHash("is_excluded") = True
|
528 |
pkgInfoHash("is_excluded") = True
|
| 529 |
pkgInfoHash("has_build_failure") = Not IsNull(rsTemp("root_file"))
|
529 |
pkgInfoHash("has_build_failure") = Not IsNull(rsTemp("root_file"))
|
| 530 |
End If
|
530 |
End If
|
| Line 1760... |
Line 1760... |
| 1760 |
'----------------------------------------------
|
1760 |
'----------------------------------------------
|
| 1761 |
'Returns true if the specified package version exists in the specified table
|
1761 |
'Returns true if the specified package version exists in the specified table
|
| 1762 |
Function PackageExists(RtagId, pvId, stable)
|
1762 |
Function PackageExists(RtagId, pvId, stable)
|
| 1763 |
Dim rsTemp
|
1763 |
Dim rsTemp
|
| 1764 |
Dim sqry
|
1764 |
Dim sqry
|
| - |
|
1765 |
If RtagId = "" Then
|
| - |
|
1766 |
PackageExists = False
|
| - |
|
1767 |
Else
|
| 1765 |
sqry = "SELECT * FROM " & stable & " WHERE rtag_id = " & RtagId & " AND pv_id = " & pvId
|
1768 |
sqry = "SELECT * FROM " & stable & " WHERE rtag_id = " & RtagId & " AND pv_id = " & pvId
|
| 1766 |
Set rsTemp = OraDatabase.DbCreateDynaset(sqry,CInt(0))
|
1769 |
Set rsTemp = OraDatabase.DbCreateDynaset(sqry,CInt(0))
|
| 1767 |
PackageExists = rsTemp.RecordCount > 0
|
1770 |
PackageExists = rsTemp.RecordCount > 0
|
| 1768 |
rsTemp.Close()
|
1771 |
rsTemp.Close()
|
| 1769 |
Set rsTemp = Nothing
|
1772 |
Set rsTemp = Nothing
|
| - |
|
1773 |
End If
|
| 1770 |
End Function
|
1774 |
End Function
|
| 1771 |
|
1775 |
|
| 1772 |
%>
|
1776 |
%>
|