Subversion Repositories DevTools

Rev

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

Rev 119 Rev 121
Line 50... Line 50...
50 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
50 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
51
51
52
52
53 
	OraSession.BeginTrans
 53 
	OraSession.BeginTrans
54
54
- 
 
 55 
	OraDatabase.ExecuteSQL " UPDATE package_versions "&_
- 
 
 56 
						   " SET owner_id = :USER_ID"&_
- 
 
 57 
						   " WHERE pv_id = :PV_ID"
- 
 
 58 
 
55 
	OraDatabase.ExecuteSQL _
 59 
	OraDatabase.ExecuteSQL _
56 
	"BEGIN "&_
 60 
	"BEGIN "&_
57 
	" PK_ENVIRONMENT.MAKE_PENDING ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
 61 
	" PK_ENVIRONMENT.MAKE_PENDING ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
58 
	"END; "
 62 
	"END; "
59
63