Subversion Repositories DevTools

Rev

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

Rev 5958 Rev 5961
Line 34... Line 34...
34 
 
 34 
 
35 
	OraDatabase.Parameters.Add "PKG_ID", 	  Request("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 35 
	OraDatabase.Parameters.Add "PKG_ID", 	  Request("pkg_id"), 		ORAPARM_INPUT, ORATYPE_NUMBER
36 
	OraDatabase.Parameters.Add "USER_ID", 	  objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
 36 
	OraDatabase.Parameters.Add "USER_ID", 	  objAccessControl.UserId, 		ORAPARM_INPUT, ORATYPE_NUMBER
37 
	OraDatabase.Parameters.Add "COMMENT", 	  "Downloaded package version "&Request("pkg_version"), 		ORAPARM_INPUT, ORATYPE_NUMBER
 37 
	OraDatabase.Parameters.Add "COMMENT", 	  "Downloaded package version "&Request("pkg_version"), 		ORAPARM_INPUT, ORATYPE_NUMBER
38 
 
 38 
 
- 
 
 39 
	On Error Resume Next
39 
	objEH.TryORA ( OraSession )
 40 
	objEH.TryORA ( OraSession )
40
41
41 
	OraDatabase.ExecuteSQL _
 42 
	OraDatabase.ExecuteSQL _
42 
	"BEGIN   pk_production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID  );   END;"
 43 
	"BEGIN   pk_production.Log_Pkg_Trail ( :PKG_ID, :COMMENT, :USER_ID  );   END;"
43
44
44 
	objEH.CatchORA ( OraSession )
 45 
	objEH.CatchORA ( OraSession )
45 
 
 46 
 
46 
	OraDatabase.Parameters.Remove "PKG_ID"
47 
	OraDatabase.Parameters.Remove "PKG_ID"
47 
	OraDatabase.Parameters.Remove "USER_ID"
48 
	OraDatabase.Parameters.Remove "USER_ID"
48 
	OraDatabase.Parameters.Remove "COMMENT"
49 
	OraDatabase.Parameters.Remove "COMMENT"
- 
 
 50 
    On Error GoTo 0
49
51 
 
50 
Else
 52 
Else
51 
	Response.write "There is an error in download logging."
 53 
	Response.write "There is an error in download logging."
52 
End If
 54 
End If
53 
 
 55 
 
54 
	If objEH.Finally Then
 56 
	If objEH.Finally Then