| Line 14... |
Line 14... |
| 14 |
<!--#include file="common/globals.asp"-->
|
14 |
<!--#include file="common/globals.asp"-->
|
| 15 |
<!--#include file="common/formating.asp"-->
|
15 |
<!--#include file="common/formating.asp"-->
|
| 16 |
<!--#include file="common/qstr.asp"-->
|
16 |
<!--#include file="common/qstr.asp"-->
|
| 17 |
<!--#include file="common/common_subs.asp"-->
|
17 |
<!--#include file="common/common_subs.asp"-->
|
| 18 |
<!--#include file="common/common_dbedit.asp"-->
|
18 |
<!--#include file="common/common_dbedit.asp"-->
|
| - |
|
19 |
<!--#include file="common/daemon_instructions.asp"-->
|
| 19 |
<%
|
20 |
<%
|
| 20 |
' Set rfile parameter. This is a return page after Login
|
21 |
' Set rfile parameter. This is a return page after Login
|
| 21 |
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
|
22 |
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
|
| 22 |
'------------ ACCESS CONTROL ------------------
|
23 |
'------------ ACCESS CONTROL ------------------
|
| 23 |
%>
|
24 |
%>
|
| Line 85... |
Line 86... |
| 85 |
On Error Resume Next
|
86 |
On Error Resume Next
|
| 86 |
objEH.Try
|
87 |
objEH.Try
|
| 87 |
'--- Process submition ---
|
88 |
'--- Process submition ---
|
| 88 |
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
|
89 |
If (Request("pv_id") <> "") AND (Request("rtag_id") <> "") Then
|
| 89 |
|
90 |
|
| - |
|
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
|
| 90 |
Call RemovePackage ()
|
95 |
Call RemovePackage ()
|
| 91 |
|
96 |
|
| 92 |
' All mendatory parameters FOUND
|
97 |
' All mendatory parameters FOUND
|
| 93 |
'If parBtn <> "NO" Then
|
98 |
'If parBtn <> "NO" Then
|
| 94 |
'
|
99 |
'
|
| 95 |
' retNOTRemove = -1
|
100 |
' retNOTRemove = -1
|
| 96 |
' Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )
|
101 |
' Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )
|
| 97 |
' Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )
|
102 |
' Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )
|
| 98 |
'
|
103 |
'
|
| 99 |
'
|
104 |
'
|
| 100 |
' If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then
|
105 |
' If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then
|
| 101 |
' If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
|
106 |
' If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
|
| 102 |
' ' Admin and System Admin users
|
107 |
' ' Admin and System Admin users
|
| 103 |
' Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
|
108 |
' Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
|
| 104 |
'
|
109 |
'
|
| 105 |
' Else
|
110 |
' Else
|
| 106 |
' ' Other users
|
111 |
' ' Other users
|
| 107 |
' Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
|
112 |
' Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
|
| 108 |
'
|
113 |
'
|
| 109 |
' End If
|
114 |
' End If
|
| 110 |
'
|
115 |
'
|
| 111 |
' End If
|
116 |
' End If
|
| 112 |
'
|
117 |
'
|
| 113 |
'End If
|
118 |
'End If
|
| 114 |
|
119 |
|
| 115 |
|
120 |
|
| 116 |
|
121 |
|
| 117 |
Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
|
122 |
Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
|
| - |
|
123 |
End If
|
| 118 |
Else
|
124 |
Else
|
| 119 |
Err.Raise 8, "Please select the required package to delete."
|
125 |
Err.Raise 8, "Please select the required package to delete."
|
| 120 |
'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
126 |
'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
| 121 |
'Response.write QSTR_All
|
127 |
'Response.write QSTR_All
|
| 122 |
End If
|
128 |
End If
|