Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
'=====================================================
129 ghuddy 4 
'                 REMOVE Packages
119 ghuddy 5 
'               --- PROCESS FORM ---
6 
'=====================================================
7 
%>
8 
<%
9 
Option explicit
10 
' Good idea to set when using redirect
129 ghuddy 11 
Response.Expires = 0   ' always load the page, dont store
119 ghuddy 12 
%>
13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
17 
<!--#include file="common/common_subs.asp"-->
18 
<!--#include file="common/common_dbedit.asp"-->
153 ghuddy 19 
<!--#include file="common/daemon_instructions.asp"-->
119 ghuddy 20 
<%
21 
' Set rfile parameter. This is a return page after Login
22 
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
23 
'------------ ACCESS CONTROL ------------------
24 
%>
25 
<!--#include file="_access_control_login.asp"-->
26 
<!--#include file="_access_control_general.asp"-->
27 
<!--#include file="_access_control_project.asp"-->
28 
<%
29 
'------------ Variable Definition -------------
30 
'------------ Constants Declaration -----------
31 
'------------ Variable Init -------------------
32 
'----------------------------------------------
33 
%>
34 
<%
35 
'--------------------------------------------------------------------------------------------------------------------------------------
36 
Sub RemovePackage( )
129 ghuddy 37 
   Dim ReturnCode
38 
   OraDatabase.Parameters.Add "PV_ID",       Request("pv_id"),       ORAPARM_INPUT, ORATYPE_NUMBER
39 
   OraDatabase.Parameters.Add "RTAG_ID",     Request("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER
40 
   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
41 
   OraDatabase.Parameters.Add "RETURN_CODE", NULL,                   ORAPARM_OUTPUT, ORATYPE_NUMBER
42 
 
43 
   If Request("btn") = "YES" Then
44 
      ' Force Remove
45 
      OraDatabase.Parameters.Add "FORCE_REMOVE", "Y", ORAPARM_INPUT, ORATYPE_NUMBER
46 
 
47 
   Else
48 
      OraDatabase.Parameters.Add "FORCE_REMOVE", "N", ORAPARM_INPUT, ORATYPE_NUMBER
49 
 
50 
   End If
51 
 
52 
   objEH.TryORA ( OraSession )
53 
   On Error Resume Next
54 
 
55 
   OraDatabase.ExecuteSQL _
56 
     "BEGIN "&_
57 
   "   :RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_
58 
   "END; "
59 
 
60 
   objEH.CatchORA ( OraSession )
61 
 
62 
   ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value
63 
 
64 
   If ( ReturnCode <> 0 )  AND (Request("btn") <> "YES") Then
65 
      'If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
66 
         ' Admin and System Admin users
67 
         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& "_remove_package.asp")
68 
 
69 
      'Else
70 
      '   ' Other users
71 
      '   Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
72 
      '
73 
      'End If
74 
   End If
75 
 
76 
   OraDatabase.Parameters.Remove "PV_ID_LIST"
77 
   OraDatabase.Parameters.Remove "RTAG_ID"
78 
   OraDatabase.Parameters.Remove "USER_ID"
79 
   OraDatabase.Parameters.Remove "FORCE_REMOVE"
80 
   OraDatabase.Parameters.Remove "RETURN_CODE"
119 ghuddy 81 
End Sub
82 
'--------------------------------------------------------------------------------------------------------------------------------------
83 
%>
84 
<%
85 
'-----------------------  MAIN LINE  ---------------------------
129 ghuddy 86 
   On Error Resume Next
87 
   objEH.Try
119 ghuddy 88 
'--- Process submition ---
89 
If (Request("pv_id") <> "")  AND (Request("rtag_id") <> "") Then
129 ghuddy 90 
 
153 ghuddy 91 
   If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
92 
      Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_
93 
                                    "Please delete them or allow them to be consumed before attempting to remove the package version from the release.")
94 
   Else
95 
      Call RemovePackage ()
129 ghuddy 96 
 
153 ghuddy 97 
      ' All mendatory parameters FOUND
98 
      'If parBtn <> "NO" Then
99 
      '
100 
      '   retNOTRemove = -1
101 
      '   Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )
102 
      '   Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )
103 
      '
104 
      '
105 
      '   If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then
106 
      '      If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
107 
      '         ' Admin and System Admin users
108 
      '         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
109 
      '
110 
      '      Else
111 
      '         ' Other users
112 
      '         Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
113 
      '
114 
      '      End If
115 
      '
116 
      '   End If
117 
      '
118 
      'End If
129 ghuddy 119 
 
120 
 
121 
 
153 ghuddy 122 
      Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
123 
   End If
119 ghuddy 124 
Else
129 ghuddy 125 
         Err.Raise 8, "Please select the required package to delete."
126 
   'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
127 
   'Response.write QSTR_All
119 ghuddy 128 
End If
129 ghuddy 129 
   objEH.Catch
119 ghuddy 130 
%>
131 
 
132 
<!-- DESTRUCTOR ------->
129 ghuddy 133 
<!--#include file="common/destructor.asp"-->