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"-->
 -