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 29... Line 29...
29 
'------------ Variable Init -------------------
 29 
'------------ Variable Init -------------------
30 
'----------------------------------------------
 30 
'----------------------------------------------
31 
%>
 31 
%>
32 
<%
 32 
<%
33 
Sub MakeReject ()
 33 
Sub MakeReject ()
34 
	Dim objWSH
 34 
   Dim objWSH
35 
	Set objWSH = Server.CreateObject("WScript.Shell")
 35 
   Set objWSH = Server.CreateObject("WScript.Shell")
36
36 
 
37
- 
 
- 
 
 37 
   objEH.TryORA ( OraSession )
- 
 
 38 
   On Error Resume Next
38
39 
 
39 
	OraDatabase.Parameters.Add "PV_ID", 		Request("pv_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
40 
   OraDatabase.Parameters.Add "PV_ID",       Request("pv_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
40 
	OraDatabase.Parameters.Add "RTAG_ID", 		Request("rtag_id"),	ORAPARM_INPUT, ORATYPE_NUMBER
41 
   OraDatabase.Parameters.Add "RTAG_ID",       Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
41 
	OraDatabase.Parameters.Add "USER_ID", 		objAccessControl.UserId,	ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
42
- 
 
43
- 
 
44 
	OraSession.BeginTrans
 - 
 
45
43 
 
46 
	OraDatabase.ExecuteSQL _
 44 
   OraDatabase.ExecuteSQL _
47 
	"BEGIN "&_
 45 
   "BEGIN "&_
48 
	" PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
 46 
   " PK_ENVIRONMENT.MAKE_REJECT ( :PV_ID, :RTAG_ID, :USER_ID ); "&_
49 
	"END; "
 47 
   "END; "
50
48 
 
51 
	OraSession.CommitTrans
 49 
   objEH.CatchORA ( OraSession )
52
- 
 
53
50 
 
54 
	OraDatabase.Parameters.Remove "PV_ID"
 51 
   OraDatabase.Parameters.Remove "PV_ID"
55 
	OraDatabase.Parameters.Remove "RTAG_ID"
 52 
   OraDatabase.Parameters.Remove "RTAG_ID"
56 
	OraDatabase.Parameters.Remove "USER_ID"
 53 
   OraDatabase.Parameters.Remove "USER_ID"
57
- 
 
58
54 
 
- 
 
 55 
   If objEH.LastOraFailed = FALSE Then
59 
	objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
 56 
      objWSH.Run   "cmd.exe /c cscript.exe //B //NoLogo "& rootPath & SCRIPTS_FOLDER &"\Admin_Tools.wsf //job:onMakeUnofficial "&_
60 
                 "/pv_id:"& Request("pv_id") , _
 57 
                  "/pv_id:"& Request("pv_id") , _
61 
                 0, FALSE
58 
                  0, FALSE
- 
 
 59 
   End If
62
60 
 
63 
End Sub
 61 
End Sub
64 
%>
 62 
%>
65 
<%
 63 
<%
66 
'-----------------------  MAIN LINE  ---------------------------
 64 
'-----------------------  MAIN LINE  ---------------------------
67 
 
 65 
 
68 
'--- Process submition ---
 66 
'--- Process submition ---
69 
If (Request("rtag_id") <> "") AND (Request("pv_id") <> "")  Then
 67 
If (Request("rtag_id") <> "") AND (Request("pv_id") <> "")  Then
70
68 
 
71 
	'COMPLETE THE REQUEST...
 69 
   'COMPLETE THE REQUEST...
72 
	Call MakeReject ( )
 70 
   Call MakeReject ( )
73
71 
 
74
72 
 
75 
	If Request("rfile") <> "" Then
 73 
   If Request("rfile") <> "" Then
76 
		Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 74 
      Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
77 
	Else
 75 
   Else
78 
		Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
 76 
      Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
79 
	End If
 77 
   End If
80
78 
 
81 
Else
 79 
Else
82 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 80 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
83 
	Response.write QSTR_All
81 
   Response.write QSTR_All
84 
End If
 82 
End If
85 
%>
 83 
%>
86 
 
 84 
 
87 
<!-- DESTRUCTOR ------->
 85 
<!-- DESTRUCTOR ------->
88 
<!--#include file="common/destructor.asp"-->
 - 
 
89 

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

          

          

            -
            
 

            87