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 UnlockPackage ()
 33 
Sub UnlockPackage ()
34 
	Dim objWSH
 34 
   Dim objWSH
35 
	Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
36
35 
 
37 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
36 
   OraDatabase.Parameters.Add "PV_ID",   Request("pv_id"),        ORAPARM_INPUT, ORATYPE_NUMBER
38 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
37 
   OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, ORAPARM_INPUT, ORATYPE_NUMBER
39
- 
 
40
38 
 
- 
 
 39 
   objEH.TryORA ( OraSession )
41 
	OraSession.BeginTrans
 40 
   On Error Resume Next
42
41 
 
43 
	OraDatabase.ExecuteSQL _
 42 
   OraDatabase.ExecuteSQL _
44 
	"BEGIN  Unlock_Package( :PV_ID, :USER_ID );  END;"
 43 
   "BEGIN  Unlock_Package( :PV_ID, :USER_ID );  END;"
45
44 
 
46 
    OraSession.CommitTrans
 45 
   objEH.CatchORA ( OraSession )
47
- 
 
48
46 
 
49 
	OraDatabase.Parameters.Remove "PV_ID"
 47 
   OraDatabase.Parameters.Remove "PV_ID"
50 
	OraDatabase.Parameters.Remove "USER_ID"
 48 
   OraDatabase.Parameters.Remove "USER_ID"
- 
 
 49 
 
- 
 
 50 
   If objEH.LastOraFailed = FALSE Then
- 
 
 51 
      Set objWSH = Server.CreateObject("WScript.Shell")
51
52 
 
52 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
 53 
      objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
53 
                 "/pv_id:"& Request("pv_id") , _
 54 
                  "/pv_id:"& Request("pv_id") , _
54 
                 0, FALSE
55 
                  0, FALSE
- 
 
 56 
   End If
55 
End Sub
 57 
End Sub
56 
%>
 58 
%>
57 
<%
 59 
<%
58 
'Process submition
 60 
'Process submition
59 
'---------------------------------------
 61 
'---------------------------------------
60 
' THIS IS FOR SYSTEM ADMIN ONLY
 62 
' THIS IS FOR SYSTEM ADMIN ONLY
61 
'---------------------------------------
 63 
'---------------------------------------
62 
If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnlockPackage") OR objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnlockPatch")  Then
 64 
If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnlockPackage") OR objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnlockPatch")  Then
63 
	Call UnlockPackage ()
 65 
   Call UnlockPackage ()
64 
	Response.Redirect ("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 66 
   Response.Redirect ("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
65 
End If
 67 
End If
66 
%>
 68 
%>
67 
 
 69 
 
68 
<!-- DESTRUCTOR ------->
 70 
<!-- DESTRUCTOR ------->
69 
<!--#include file="common/destructor.asp"-->
 - 
 
70 

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

          

          

            -
            
 

            72