Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					System Unlock Package
 8 
'               System Unlock Package
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
 13 
<!--#include file="common/formating.asp"-->
Line 29... Line 29...
29 
parRtag_id = QStrPar("rtag_id")
 29 
parRtag_id = QStrPar("rtag_id")
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
Sub UnRipplePackage ()
 33 
Sub UnRipplePackage ()
34
- 
 
35 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
36 
	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
37 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
38
- 
 
39
- 
 
40 
	OraSession.BeginTrans
 - 
 
41
- 
 
42 
	OraDatabase.ExecuteSQL _
 - 
 
43 
	"BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
 - 
 
44
- 
 
45 
    OraSession.CommitTrans
 - 
 
46
- 
 
47
- 
 
48 
	OraDatabase.Parameters.Remove "PV_ID"
 - 
 
49 
	OraDatabase.Parameters.Remove "RTAG_ID"
 - 
 
50 
	OraDatabase.Parameters.Remove "USER_ID"
 - 
 
51
- 
 
52 
 
 34 
 
- 
 
 35 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 36 
   OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"),      ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 37 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 38 
 
- 
 
 39 
   objEH.TryORA ( OraSession )
- 
 
 40 
   On Error Resume Next
- 
 
 41 
 
- 
 
 42 
   OraDatabase.ExecuteSQL _
- 
 
 43 
   "BEGIN  UnRipple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
- 
 
 44 
 
- 
 
 45 
   objEH.CatchORA ( OraSession )
- 
 
 46 
 
- 
 
 47 
   OraDatabase.Parameters.Remove "PV_ID"
- 
 
 48 
   OraDatabase.Parameters.Remove "RTAG_ID"
- 
 
 49 
   OraDatabase.Parameters.Remove "USER_ID"
53 
End Sub
 50 
End Sub
54 
%>
 51 
%>
55 
<%
 52 
<%
56 
'Process submition
 53 
'Process submition
57 
'---------------------------------------
 54 
'---------------------------------------
58 
' THIS IS FOR SYSTEM ADMIN ONLY
 55 
' THIS IS FOR SYSTEM ADMIN ONLY
59 
'---------------------------------------
 56 
'---------------------------------------
60 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnRipplePackage") Then
 57 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnRipplePackage") Then
61 
	Call UnRipplePackage ()
 58 
   Call UnRipplePackage ()
62 
	Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 59 
   Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
63 
'End If
 60 
'End If
64 
%>
 61 
%>
65 
 
 62 
 
66 
<!-- DESTRUCTOR ------->
 63 
<!-- DESTRUCTOR ------->
67 
<!--#include file="common/destructor.asp"-->
 - 
 
68 

            64
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            65