Subversion Repositories DevTools

Rev

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

Rev 5517 Rev 5955
Line 634... Line 634...
634 
	Dim rsTemp, Query_String
 634 
	Dim rsTemp, Query_String
635 
	OraDatabase.Parameters.Add "PV_ID", 		SSpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 635 
	OraDatabase.Parameters.Add "PV_ID", 		SSpv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
636 
	OraDatabase.Parameters.Add "RTAG_ID", 		NNrtag,		ORAPARM_INPUT, ORATYPE_NUMBER
 636 
	OraDatabase.Parameters.Add "RTAG_ID", 		NNrtag,		ORAPARM_INPUT, ORATYPE_NUMBER
637 
	OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,		ORAPARM_OUTPUT, ORATYPE_NUMBER
 637 
	OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,		ORAPARM_OUTPUT, ORATYPE_NUMBER
638 
 
 638 
 
639 
 
 - 
 
640 
	pkgInfoHash.Item ("can_unofficial") = "false"
 - 
 
641 
 
 - 
 
642 
	'/* Get Package Details */
 639 
	'/* Get Package Details */
643 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
 640 
	Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
644 
 
 641 
 
- 
 
 642 
	OraDatabase.Parameters.Remove "PV_ID"
- 
 
 643 
	OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 644 
	OraDatabase.Parameters.Remove "RETURN_NUMBER"
- 
 
 645 
 
- 
 
 646 
	pkgInfoHash.Item ("can_unofficial") = "false"
- 
 
 647 
 
645 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 648 
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
646 
		pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
 649 
		pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
647 
		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
 650 
		pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
648 
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
 651 
		pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
649 
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
 652 
		pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
Line 680... Line 683...
680 
		pkgInfoHash.Add "build_type", (rsTemp.Fields("build_type"))
 683 
		pkgInfoHash.Add "build_type", (rsTemp.Fields("build_type"))
681 
		pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
 684 
		pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
682 
 
 685 
 
683 
	End If
 686 
	End If
684 
 
 687 
 
685 
 
 - 
 
686 
 
 - 
 
687 
 
 - 
 
688 
 
 - 
 
689 
 
 - 
 
690 
 
 - 
 
691 
 
 - 
 
692 
End Sub
 688 
End Sub
693 
'-----------------------------------------------------------------------------------------------------------------------------
 689 
'-----------------------------------------------------------------------------------------------------------------------------
694 
Function Folder_Is_Empty ( sPath )
 690 
Function Folder_Is_Empty ( sPath )
695 
	Dim filesys, oFolder
 691 
	Dim filesys, oFolder
696 
	Set filesys = CreateObject("Scripting.FileSystemObject")
 692 
	Set filesys = CreateObject("Scripting.FileSystemObject")