Subversion Repositories DevTools

Rev

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

Rev 5514 Rev 5962
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
	
Line 53... Line 54...
53
 
54
 
54
	If objEH.Finally Then
55
	If objEH.Finally Then
55
		Call OpenInParentWindow (Request("url"))
56
		Call OpenInParentWindow (Request("url"))
56
		Call CloseWindow
57
		Call CloseWindow
57
	End If				
58
	End If				
58
 
-
 
59
 
-
 
60
 
-
 
61
'**********************************************************************
59
'**********************************************************************
-
 
60
Call Destroy_All_Objects
62
%>
61
%>
63
 
62
 
64
<%
-
 
65
'------------ RUN AFTER CODE RUN --------------
-
 
66
'----------------------------------------------
-
 
67
%><!--#include file="common/globals_destructor.asp"-->
-