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 "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
35 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
36
- 
 
37
36 
 
- 
 
 37 
   objEH.TryORA ( OraSession )
38 
	OraSession.BeginTrans
 38 
   On Error Resume Next
39
39 
 
40 
	OraDatabase.ExecuteSQL _
 40 
   OraDatabase.ExecuteSQL _
41 
	"BEGIN  Lock_Package( :PV_ID, :USER_ID );  END;"
 41 
   "BEGIN  Lock_Package( :PV_ID, :USER_ID );  END;"
42
42 
 
43 
    OraSession.CommitTrans
 43 
   objEH.CatchORA ( OraSession )
44
- 
 
45
44 
 
46 
	OraDatabase.Parameters.Remove "PV_ID"
 45 
   OraDatabase.Parameters.Remove "PV_ID"
47 
	OraDatabase.Parameters.Remove "USER_ID"
 46 
   OraDatabase.Parameters.Remove "USER_ID"
48
- 
 
49 
End Sub
 47 
End Sub
- 
 
 48 
 
- 
 
 49 
 
50 
Sub DLocked_A ()
 50 
Sub DLocked_A ()
51
51 
 
52 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
52 
   OraDatabase.Parameters.Add "PV_ID",    Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
53 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
53 
   OraDatabase.Parameters.Add "USER_ID",  objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
54
- 
 
55
54 
 
- 
 
 55 
   objEH.TryORA ( OraSession )
56 
	OraSession.BeginTrans
 56 
   On Error Resume Next
57
57 
 
58 
	OraDatabase.ExecuteSQL _
 58 
   OraDatabase.ExecuteSQL _
59 
	"BEGIN  Pending_Package( :PV_ID, :USER_ID );  END;"
 59 
   "BEGIN  Pending_Package( :PV_ID, :USER_ID );  END;"
60
60 
 
61 
    OraSession.CommitTrans
 61 
   objEH.CatchORA ( OraSession )
62
- 
 
63
62 
 
64 
	OraDatabase.Parameters.Remove "PV_ID"
 63 
   OraDatabase.Parameters.Remove "PV_ID"
65 
	OraDatabase.Parameters.Remove "USER_ID"
 64 
   OraDatabase.Parameters.Remove "USER_ID"
66
65 
 
67 
End Sub
 66 
End Sub
68 
%>
 67 
%>
69 
<%
 68 
<%
70 
Dim sqlstr, rsTemp, rsQry
 69 
Dim sqlstr, rsTemp, rsQry
71 
sqlstr = "select pkg_label from package_versions where PV_ID ="& parPv_id
70 
sqlstr = "select pkg_label from package_versions where PV_ID ="& parPv_id
72 
 
 71 
 
73 
Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
 72 
Set rsTemp = OraDatabase.DbCreateDynaset( sqlstr, cint(0))
74 
 
 73 
 
75 
If instr(rsTemp("pkg_label"),"WIP") <> 0 Then
 74 
If instr(rsTemp("pkg_label"),"WIP") <> 0 Then
76 
	pending_unlock = true
 75 
   pending_unlock = true
77 
End If
 76 
End If
78 
 
 77 
 
79 
rsTemp.Close
 78 
rsTemp.Close
80 
Set rsTemp = nothing
 79 
Set rsTemp = nothing
81 
'Process submition
 80 
'Process submition
82 
'---------------------------------------
 81 
'---------------------------------------
83 
' THIS IS FOR SYSTEM ADMIN ONLY
 82 
' THIS IS FOR SYSTEM ADMIN ONLY
84 
'---------------------------------------
 83 
'---------------------------------------
85 
If objAccessControl.IsVisible("UnlockPackage") AND NOT pending_unlock Then
 84 
If objAccessControl.IsVisible("UnlockPackage") AND NOT pending_unlock Then
86 
	Call LockPackage ()
 85 
   Call LockPackage ()
87 
	Response.Redirect ( "_generate_release_notes.asp?rfile=dependencies.asp&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 86 
   Response.Redirect ( "_generate_release_notes.asp?rfile=dependencies.asp&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
88 
End If
 87 
End If
89 
If objAccessControl.IsVisible("UnlockPackage") AND pending_unlock Then
 88 
If objAccessControl.IsVisible("UnlockPackage") AND pending_unlock Then
90 
	'Check If There Already Exists A WIP Instance Of The Package In The Release
 - 
 
91 
	 If Check_Package_WIP_Already_Exists(Request("rtag_id"), Request("pv_id")) > 0 Then
 - 
 
92 
		Call RaiseMsg ( enum_MSG_PACKAGE_WIP_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parPv_id &"", parPv_id )
 - 
 
93 
	 End If
 - 
 
94 
	Call DLocked_A()
 89 
   Call DLocked_A()
95 
	Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 90 
   Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
96 
End If
 91 
End If
97 
%>
 92 
%>
98 
 
 93 
 
99 
<!-- DESTRUCTOR ------->
 94 
<!-- DESTRUCTOR ------->
100 
<!--#include file="common/destructor.asp"-->
 - 
 
101 

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

          

          

            -
            
 

            96