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 
'					Reproducible Package
 8 
'               Reproducible 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 SwitchReproducible ()
 32 
Sub SwitchReproducible ()
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  Switch_Reproducible_Package( :PV_ID, :USER_ID );  END;"
 41 
   "BEGIN  Switch_Reproducible_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
50 
%>
 48 
%>
51 
<%
 49 
<%
52 
 
 50 
 
53 
'Process submition
 51 
'Process submition
54 
'---------------------------------------
 52 
'---------------------------------------
55 
' THIS IS FOR SYSTEM ADMIN ONLY
 53 
' THIS IS FOR SYSTEM ADMIN ONLY
56 
'---------------------------------------
 54 
'---------------------------------------
57 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnRipplePackage") Then
 55 
'If objAccessControl.IsDataActive("PROJECTS", DB_PROJ_ID, "UnRipplePackage") Then
58 
	Call SwitchReproducible ()
 56 
   Call SwitchReproducible ()
59 
	Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
 57 
   Response.Redirect ("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& parPv_id)
60 
'End If
 58 
'End If
61 
 
 59 
 
62 
%>
 60 
%>
63 
 
 61 
 
64 
<!-- DESTRUCTOR ------->
 62 
<!-- DESTRUCTOR ------->
65 
<!--#include file="common/destructor.asp"-->
 - 
 
66 

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

          

          

            -
            
 

            64