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 
'=====================================================
 3 
'=====================================================
4 
' 			 	    MAKE UNOFFICIAL
 4 
'                  MAKE UNOFFICIAL
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
 
 13 
 
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 30... Line 30...
30 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 30 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
31 
'----------------------------------------------
 31 
'----------------------------------------------
32 
%>
 32 
%>
33 
<%
 33 
<%
34 
Sub MakeUnreleased ()
 34 
Sub MakeUnreleased ()
35 
	Dim objWSH
 35 
   Dim objWSH
36 
	Set objWSH = Server.CreateObject("WScript.Shell")
 - 
 
37
36 
 
38 
	Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
 37 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
39
38 
 
40 
	If pkgInfoHash.Item("can_unofficial") <> "true" AND NOT objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then Exit Sub
 39 
   If pkgInfoHash.Item("can_unofficial") <> "true" AND NOT objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then Exit Sub
41
- 
 
42
40 
 
43 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
41 
   OraDatabase.Parameters.Add "PV_ID",       Request("pv_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
44 
	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "RTAG_ID",       Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
45 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
43 
   OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
46
- 
 
47
44 
 
- 
 
 45 
   objEH.TryORA ( OraSession )
48 
	OraSession.BeginTrans
 46 
   On Error Resume Next
49
47 
 
50 
	OraDatabase.ExecuteSQL _
 48 
   OraDatabase.ExecuteSQL _
51 
	"BEGIN "&_
 49 
   "BEGIN "&_
52 
	" PK_ENVIRONMENT.MAKE_UNRELEASE ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
 50 
   " PK_ENVIRONMENT.MAKE_UNRELEASE ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
53 
	"END; "
 51 
   "END; "
54
52 
 
55 
	OraSession.CommitTrans
 53 
   objEH.CatchORA ( OraSession )
56
- 
 
57
54 
 
58 
	OraDatabase.Parameters.Remove "PV_ID"
 55 
   OraDatabase.Parameters.Remove "PV_ID"
59 
	OraDatabase.Parameters.Remove "RTAG_ID"
 56 
   OraDatabase.Parameters.Remove "RTAG_ID"
60 
	OraDatabase.Parameters.Remove "USER_ID"
 57 
   OraDatabase.Parameters.Remove "USER_ID"
- 
 
 58 
 
- 
 
 59 
   If objEH.LastOraFailed = FALSE Then
61
60 
 
- 
 
 61 
      Set objWSH = Server.CreateObject("WScript.Shell")
62
62 
 
63 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
 63 
      objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
64 
                 "/pv_id:"& Request("pv_id") , _
 64 
                  "/pv_id:"& Request("pv_id") , _
65 
                 0, FALSE
65 
                  0, FALSE
66
66 
   End If
67 
End Sub
 67 
End Sub
68 
%>
 68 
%>
69 
<%
 69 
<%
70 
'-----------------------  MAIN LINE  ---------------------------
 70 
'-----------------------  MAIN LINE  ---------------------------
71 
 
 71 
 
72 
'--- Process submition ---
 72 
'--- Process submition ---
73 
If (Request("rtag_id") <> "") AND (Request("pv_id") <> "")  Then
 73 
If (Request("rtag_id") <> "") AND (Request("pv_id") <> "")  Then
74
74 
 
75 
	'COMPLETE THE REQUEST...
 75 
   'COMPLETE THE REQUEST...
76 
	Call MakeUnreleased ( )
 76 
   Call MakeUnreleased ( )
77
77 
 
78
78 
 
79 
	If Request("rfile") <> "" Then
 79 
   If Request("rfile") <> "" Then
80 
		Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 80 
      Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
81 
	Else
 81 
   Else
82 
		Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 82 
      Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
83 
	End If
 83 
   End If
84
84 
 
85 
Else
 85 
Else
86 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 86 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
87 
	Response.write QSTR_All
87 
   Response.write QSTR_All
88 
End If
 88 
End If
89 
%>
 89 
%>
90 
 
 90 
 
91 
<!-- DESTRUCTOR ------->
 91 
<!-- DESTRUCTOR ------->
92 
<!--#include file="common/destructor.asp"-->
 92 
<!--#include file="common/destructor.asp"-->