Subversion Repositories DevTools

Rev

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

Rev 147 Rev 151
Line 946... Line 946...
946 
         Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
 946 
         Case enumPKG_ADVISORY_RIPPLE_DEPENDENT
947 
            DefineStateIcon = enum_imgARD
 947 
            DefineStateIcon = enum_imgARD
948 
 
 948 
 
949 
         Case enumPKG_PEGGED_VERSION
 949 
         Case enumPKG_PEGGED_VERSION
950 
            DefineStateIcon = enum_imgGreenPin
 950 
            DefineStateIcon = enum_imgGreenPin
951 
 
 - 
 
952 
      End Select
 951 
      End Select
953 
 
 952 
 
954 
      If (NOT bForEnvironment) AND _
 953 
      If (NOT bForEnvironment) AND _
955 
         (cBuildType = "A") AND _
 954 
         (cBuildType = "A") AND _
956 
         (CCdlocked <> "Y") AND _
 955 
         (CCdlocked <> "Y") AND _
Line 1614... Line 1613...
1614 
      Get_Official = "Closed"
 1613 
      Get_Official = "Closed"
1615 
   Else
 1614 
   Else
1616 
      Get_Official = "?"
 1615 
      Get_Official = "?"
1617 
   End If
 1616 
   End If
1618 
End Function
 1617 
End Function
- 
 
 1618 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 1619 
Function Get_Pkg_Id_For_Pv_Id ( NNpv_id )
- 
 
 1620 
   Dim rsTemp, Query_String
- 
 
 1621 
 
- 
 
 1622 
   Get_Pkg_Id_For_Pv_Id = ""
- 
 
 1623 
 
- 
 
 1624 
   If NOT IsNull(NNpv_id) AND NNpv_id <> "" Then
- 
 
 1625 
      Query_String = _
- 
 
 1626 
      "SELECT pkg_id FROM package_versions WHERE pv_id = "& NNpv_id
- 
 
 1627 
 
- 
 
 1628 
      Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 1629 
 
- 
 
 1630 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
- 
 
 1631 
         Get_Pkg_Id_For_Pv_Id = rsTemp("pkg_id")
- 
 
 1632 
      End If
- 
 
 1633 
      rsTemp.Close
- 
 
 1634 
      Set rsTemp = nothing
- 
 
 1635 
   End If
- 
 
 1636 
 
- 
 
 1637 
End Function
1619 
 
 1638 
 
1620 
 
 1639 
 
1621 
%>
 1640 
%>