Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 153
Line 15... Line 15...
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
17 
<!--#include file="common/qstr.asp"-->
 17 
<!--#include file="common/qstr.asp"-->
18 
<!--#include file="common/common_subs.asp"-->
 18 
<!--#include file="common/common_subs.asp"-->
19 
<!--#include file="common/common_dbedit.asp"-->
 19 
<!--#include file="common/common_dbedit.asp"-->
- 
 
 20 
<!--#include file="common/daemon_instructions.asp"-->
20 
<%
 21 
<%
21 
' Set rfile parameter. This is a return page after Login
 22 
' Set rfile parameter. This is a return page after Login
22 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
 23 
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
23 
'------------ ACCESS CONTROL ------------------
 24 
'------------ ACCESS CONTROL ------------------
24 
%>
 25 
%>
25 
<!--#include file="_access_control_login.asp"-->
 26 
<!--#include file="_access_control_login.asp"-->
26 
<!--#include file="_access_control_general.asp"-->
 27 
<!--#include file="_access_control_general.asp"-->
27 
<!--#include file="_access_control_project.asp"-->
 28 
<!--#include file="_access_control_project.asp"-->
28 
<%
 29 
<%
29 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
- 
 
 31 
Dim csvStr
- 
 
 32 
Dim subStrArr
- 
 
 33 
Dim subStr
- 
 
 34 
 
30 
'------------ Constants Declaration -----------
 35 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
 36 
'------------ Variable Init -------------------
32 
'----------------------------------------------
 37 
'----------------------------------------------
33 
%>
 38 
%>
34 
<%
 39 
<%
35 
Sub DestroyRelease ( )
 40 
Sub DestroyRelease ( )
36
41 
 
37 
	On Error Resume Next
 42 
	On Error Resume Next
38 
	objEH.ErrorRedirect = TRUE
 43 
	objEH.ErrorRedirect = TRUE
39
44 
 
40
45 
 
41
46 
 
42 
	OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
 47 
	OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id_list"), 	ORAPARM_INPUT, ORATYPE_NUMBER
43 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
 48 
	OraDatabase.Parameters.Add "USER_ID", objAccessControl.UserId, 	ORAPARM_INPUT, ORATYPE_NUMBER
44
49 
 
45 
	objEH.TryORA ( OraSession )
 50 
	objEH.TryORA ( OraSession )
46
51 
 
47
52 
 
48 
	OraDatabase.ExecuteSQL _
 53 
	OraDatabase.ExecuteSQL _
49 
	"BEGIN "&_
 54 
	"BEGIN "&_
50 
	" PK_RELEASE.DESTROY_RELEASE ( :RTAG_ID, :USER_ID ); "&_
 55 
	" PK_RELEASE.DESTROY_RELEASE ( :RTAG_ID, :USER_ID ); "&_
51 
	"END;"
 56 
	"END;"
52
57 
 
53 
	objEH.CatchORA ( OraSession )
 58 
	objEH.CatchORA ( OraSession )
54
59 
 
55
60 
 
56 
	OraDatabase.Parameters.Remove "RTAG_ID"
 61 
	OraDatabase.Parameters.Remove "RTAG_ID"
57 
	OraDatabase.Parameters.Remove "USER_ID"
 62 
	OraDatabase.Parameters.Remove "USER_ID"
58 
End Sub
 63 
End Sub
59 
%>
 64 
%>
60 
<%
 65 
<%
61 
'-----------------------  MAIN LINE  ---------------------------
 66 
'-----------------------  MAIN LINE  ---------------------------
62 
 
 67 
 
63 
'--- Process submition ---
 68 
'--- Process submition ---
64 
If (Request("rtag_id_list") <> "") AND (Request("proj_id") <> "")Then
 69 
If (Request("rtag_id_list") <> "") AND (Request("proj_id") <> "")Then
- 
 
 70 
 
- 
 
 71 
   csvStr = Request("rtag_id_list")
- 
 
 72 
   subStrArr = Split(csvStr,",")
65
73 
 
- 
 
 74 
   For Each subStr In subStrArr
- 
 
 75 
      If DaemonInstructionPreventsReleaseDeletion(subStr) Then
- 
 
 76 
         Call RaiseMsg(enum_MSG_ERROR, "One or more selected releases contain one or more daemon instructions.<br><br>"&_
- 
 
 77 
                                       "Please delete them or allow them to be consumed before attempting to delete the release(s).")
- 
 
 78 
      End If
- 
 
 79 
      If is_daemon_enabled_release(subStr, FALSE) Then
- 
 
 80 
         Call RaiseMsg(enum_MSG_ERROR, "One or more selected releases contain one or more daemon configurations.<br><br>"&_
- 
 
 81 
                                       "Please wait for daemon activity to cease (pause the daemons if necessary), "&_
- 
 
 82 
                                       "delete the build configurations to allow the build daemons to terminate, "&_
- 
 
 83 
                                       "before attempting to delete the release(s).")
- 
 
 84 
      End If
- 
 
 85 
   Next
- 
 
 86 
 
66 
	Call DestroyRelease ()
 87 
   Call DestroyRelease ()
67
88 
 
68 
	If objEH.Finally Then
 89 
   If objEH.Finally Then
69 
		Response.Redirect("rtree.asp?proj_id="& Request("proj_id") )
 90 
		Response.Redirect("rtree.asp?proj_id="& Request("proj_id") )
70 
	End If
 91 
   End If
71
92 
 
72 
Else
 93 
Else
73 
	Response.write "Some parameters are missing!" & "<br>" 'TODO
 94 
	Response.write "Some parameters are missing!" & "<br>" 'TODO
74 
End If
 95 
End If
75 
%>
 96 
%>
76 
 
 97 
 
77 
<!-- DESTRUCTOR ------->
 98 
<!-- DESTRUCTOR ------->
78 
<!--#include file="common/destructor.asp"-->
 - 
 
79 

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

          

          

            -
            
 

            100