Subversion Repositories DevTools

Rev

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

Rev 6584 Rev 7349
Line 40... Line 40...
40 
%>
 40 
%>
41 
<%
 41 
<%
42 
Sub Get_Pkg_Info_From_Rel ( SSrtag_id, SSpv_id )
 42 
Sub Get_Pkg_Info_From_Rel ( SSrtag_id, SSpv_id )
43 
	Dim rsTemp, Query_String
 43 
	Dim rsTemp, Query_String
44
44
- 
 
 45 
    OraDatabase.Parameters.Add "RTAG_ID", SSrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 46 
    OraDatabase.Parameters.Add "PV_ID",   SSpv_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 47 
 
45 
	Query_String = _
 48 
	Query_String = _
46 
	" SELECT pkg.pkg_name, pv.pkg_version, rc.base_view_id"&_
 49 
	" SELECT pkg.pkg_name, pv.pkg_version, PK_ENVIRONMENT.GET_PACKAGE_VIEW ( :PV_ID, :RTAG_ID ) as view_id"&_
47 
	"  FROM packages pkg, package_versions pv, release_content rc, views vi"&_
 50 
	"  FROM packages pkg, package_versions pv"&_
48 
	" WHERE     pkg.pkg_id = pv.pkg_id"&_
 51 
	" WHERE pkg.pkg_id = pv.pkg_id"&_
49 
	"        AND pv.pv_id = rc.pv_id"&_
 52 
	"   AND pv.pv_id = :PV_ID"
50 
	"        AND vi.view_id = rc.base_view_id"&_
 - 
 
51 
	"        AND rc.rtag_id = "& SSrtag_id &_
 - 
 
52 
	"        AND rc.pv_id = "& SSpv_id
 - 
 
53
53
54 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 54 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
55
- 
 
56 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 55 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
57 
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
 56 
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
58 
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
 57 
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
59 
		pkgInfoHash.Add "base_view_id", (rsTemp.Fields("base_view_id"))
 58 
        pkgInfoHash.Add "base_view_id", (rsTemp.Fields("view_id"))
60 
	End If
 59 
	End If
- 
 
 60 
 
- 
 
 61 
    OraDatabase.Parameters.Remove "PV_ID"
- 
 
 62 
    OraDatabase.Parameters.Remove "RTAG_ID"
61
63 
 
62 
	rsTemp.Close
 64 
	rsTemp.Close
63 
	Set rsTemp = nothing
 65 
	Set rsTemp = nothing
64 
End Sub
 66 
End Sub
65 
 
 67 
 
66 
Sub Get_All_Base_Views ( NNnewgroup_id, nPkg_id )
 68 
Sub Get_All_Base_Views ( NNnewgroup_id, nPkg_id )