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 
' 			 	   Remove release reference
4 
'                 Remove release reference
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 35... Line 35...
35 
If InStr( 1, Request("btn"), "YES", 1 ) > 0 Then OverideWarnings = "Y"
 35 
If InStr( 1, Request("btn"), "YES", 1 ) > 0 Then OverideWarnings = "Y"
36 
 
 36 
 
37 
'----------------------------------------------
 37 
'----------------------------------------------
38 
%>
 38 
%>
39 
<%
 39 
<%
40 
Sub RemoveReleaseReference	( nRtagId, nRefRtagId, outProblemsString )
 40 
Sub RemoveReleaseReference   ( nRtagId, nRefRtagId, outProblemsString )
41
41 
 
42 
	OraDatabase.Parameters.Add "RTAG_ID", 			nRtagId, 		ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "RTAG_ID",     nRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "REF_RTAG_ID", 		nRefRtagId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 43 
   OraDatabase.Parameters.Add "REF_RTAG_ID", nRefRtagId, ORAPARM_INPUT, ORATYPE_NUMBER
44
- 
 
45
44 
 
- 
 
 45 
   objEH.TryORA ( OraSession )
46 
	OraSession.BeginTrans
 46 
   On Error Resume Next
47
47 
 
48 
	OraDatabase.ExecuteSQL _
 48 
   OraDatabase.ExecuteSQL _
49 
	" BEGIN "&_
 49 
   " BEGIN "&_
50 
	" 	PK_RELEASE.REMOVE_RELEASE_REFERENCE ( :RTAG_ID, :REF_RTAG_ID ); "&_
 50 
   "    PK_RELEASE.REMOVE_RELEASE_REFERENCE ( :RTAG_ID, :REF_RTAG_ID ); "&_
51 
	" END; "
 51 
   " END; "
52
52 
 
53 
	OraSession.CommitTrans
 53 
   objEH.CatchORA ( OraSession )
54
- 
 
55
54 
 
56 
	OraDatabase.Parameters.Remove "RTAG_ID"
 55 
   OraDatabase.Parameters.Remove "RTAG_ID"
57 
	OraDatabase.Parameters.Remove "REF_RTAG_ID"
 56 
   OraDatabase.Parameters.Remove "REF_RTAG_ID"
58 
End Sub
 57 
End Sub
59 
%>
 58 
%>
60 
<%
 59 
<%
61 
'-----------------------  MAIN LINE  ---------------------------
 60 
'-----------------------  MAIN LINE  ---------------------------
62 
 
 61 
 
63 
'------ ACCESS CONTROL ----------
 62 
'------ ACCESS CONTROL ----------
64 
If NOT objAccessControl.IsVisible("RemoveReleaseReference") Then
 63 
If NOT objAccessControl.IsVisible("RemoveReleaseReference") Then
65 
	Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
 64 
   Call OpenInWindow ( "Login.asp?message=4&rfile="& scriptName & objPMod.ComposeURLWithout("rfile") )
66 
End If
 65 
End If
67 
'--------------------------------
 66 
'--------------------------------
68 
 
 67 
 
69 
 
 68 
 
70 
If (Request("rtag_id") <> "")  AND  (Request("refrtag_id") <> "") Then
 69 
If (Request("rtag_id") <> "")  AND  (Request("refrtag_id") <> "") Then
71
70 
 
72 
	'--- Process submition ---
 71 
   '--- Process submition ---
73 
	If InStr(Request("refrtag_id"), ",") = 0 Then
 72 
   If InStr(Request("refrtag_id"), ",") = 0 Then
74 
		Call RemoveReleaseReference ( Request("rtag_id"), Request("refrtag_id"), ProblemsString )
 73 
      Call RemoveReleaseReference ( Request("rtag_id"), Request("refrtag_id"), ProblemsString )
75 
	End If
 74 
   End If
76
75 
 
77 
	Response.Redirect( "dependencies.asp?rtag_id="& Request("rtag_id") )
 76 
   Response.Redirect( "dependencies.asp?rtag_id="& Request("rtag_id") )
78
77 
 
79 
Else
 78 
Else
80
79 
 
81 
	Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
 80 
   Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
82
81 
 
83 
End If
 82 
End If
84 
 
 83 
 
85 
'----------------------------------------------------------------
 84 
'----------------------------------------------------------------
86 
%>
 85 
%>
87 
 
 86 
 
88 
<!-- DESTRUCTOR ------->
 87 
<!-- DESTRUCTOR ------->
89 
<!--#include file="common/destructor.asp"-->
 - 
 
90 

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

          

          

            -
            
 

            89