Subversion Repositories DevTools

Rev

Rev 5514 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5514 Rev 5956
Line 600... Line 600...
600
	Dim rsTemp, Query_String
600
	Dim rsTemp, Query_String
601
	OraDatabase.Parameters.Add "PV_ID", 		SSpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
601
	OraDatabase.Parameters.Add "PV_ID", 		SSpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
602
	OraDatabase.Parameters.Add "RTAG_ID", 		NNrtag,		ORAPARM_INPUT, ORATYPE_NUMBER
602
	OraDatabase.Parameters.Add "RTAG_ID", 		NNrtag,		ORAPARM_INPUT, ORATYPE_NUMBER
603
	OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,		ORAPARM_OUTPUT, ORATYPE_NUMBER
603
	OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,		ORAPARM_OUTPUT, ORATYPE_NUMBER
604
 
604
 
605
 
-
 
606
	pkgInfoHash.Item ("can_unofficial") = "false"
-
 
607
 
-
 
608
	'/* Get Package Details */
605
	'/* Get Package Details */
609
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
606
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
610
 
607
 
-
 
608
	OraDatabase.Parameters.Remove "PV_ID"
-
 
609
	OraDatabase.Parameters.Remove "RTAG_ID"
-
 
610
	OraDatabase.Parameters.Remove "RETURN_NUMBER"
-
 
611
 
-
 
612
	pkgInfoHash.Item ("can_unofficial") = "false"
611
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
613
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
612
		pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
614
		pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
613
		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
615
		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
614
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
616
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
615
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
617
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))