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 Lock Package
 8 
'               System Lock 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 28... Line 28...
28 
parRtag_id = QStrPar("rtag_id")
 28 
parRtag_id = QStrPar("rtag_id")
29 
'----------------------------------------------
 29 
'----------------------------------------------
30 
%>
 30 
%>
31 
<%
 31 
<%
32 
Sub LockPackage ()
 32 
Sub LockPackage ()
33
33 
 
34 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
34 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
35 
	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
35 
   OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_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
- 
 
38
37 
 
- 
 
 38 
   objEH.TryORA ( OraSession )
39 
	OraSession.BeginTrans
 39 
   On Error Resume Next
40
40 
 
41 
	OraDatabase.ExecuteSQL _
 41 
   OraDatabase.ExecuteSQL _
42 
	"BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
 42 
   "BEGIN  Ripple_Package( :PV_ID, :RTAG_ID, :USER_ID );  END;"
43
43 
 
44 
    OraSession.CommitTrans
 44 
   objEH.CatchORA ( OraSession )
45
- 
 
46
45 
 
47 
	OraDatabase.Parameters.Remove "PV_ID"
 46 
   OraDatabase.Parameters.Remove "PV_ID"
48 
	OraDatabase.Parameters.Remove "RTAG_ID"
 47 
   OraDatabase.Parameters.Remove "RTAG_ID"
49 
	OraDatabase.Parameters.Remove "USER_ID"
 48 
   OraDatabase.Parameters.Remove "USER_ID"
50
49 
 
51 
End Sub
 50 
End Sub
52 
%>
 51 
%>
53 
<%
 52 
<%
54 
 
 53 
 
55 
'Process submition
 54 
'Process submition
56 
'---------------------------------------
 55 
'---------------------------------------
57 
' THIS IS FOR SYSTEM ADMIN ONLY
 56 
' THIS IS FOR SYSTEM ADMIN ONLY
58 
'---------------------------------------
 57 
'---------------------------------------
59 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnRipplePackage") Then
 58 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnRipplePackage") Then
60 
	Call LockPackage ()
 59 
   Call LockPackage ()
61 
	Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 60 
   Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
62 
'End If
 61 
'End If
63 
 
 62 
 
64 
%>
 63 
%>
65 
 
 64 
 
66 
<!-- DESTRUCTOR ------->
 65 
<!-- DESTRUCTOR ------->
67 
<!--#include file="common/destructor.asp"-->
 - 
 
68 

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

          

          

            -
            
 

            67