| Line 100... |
Line 100... |
| 100 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
100 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
| 101 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_
|
101 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_
|
| 102 |
"Please delete them or allow them to be consumed before attempting to remove the package version from the release.")
|
102 |
"Please delete them or allow them to be consumed before attempting to remove the package version from the release.")
|
| 103 |
Else
|
103 |
Else
|
| 104 |
Call RemovePackage ()
|
104 |
Call RemovePackage ()
|
| 105 |
|
- |
|
| 106 |
' All mandatory parameters FOUND
|
- |
|
| 107 |
'If parBtn <> "NO" Then
|
- |
|
| 108 |
'
|
- |
|
| 109 |
' retNOTRemove = -1
|
- |
|
| 110 |
' Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )
|
- |
|
| 111 |
' Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )
|
- |
|
| 112 |
'
|
- |
|
| 113 |
'
|
- |
|
| 114 |
' If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then
|
- |
|
| 115 |
' If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then
|
- |
|
| 116 |
' ' Admin and System Admin users
|
- |
|
| 117 |
' Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
|
- |
|
| 118 |
'
|
- |
|
| 119 |
' Else
|
- |
|
| 120 |
' ' Other users
|
- |
|
| 121 |
' Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")
|
- |
|
| 122 |
'
|
- |
|
| 123 |
' End If
|
- |
|
| 124 |
'
|
- |
|
| 125 |
' End If
|
- |
|
| 126 |
'
|
- |
|
| 127 |
'End If
|
- |
|
| 128 |
|
- |
|
| 129 |
|
- |
|
| 130 |
|
- |
|
| 131 |
Call Destroy_All_Objects
|
105 |
Call Destroy_All_Objects
|
| 132 |
Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
|
106 |
Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )
|
| 133 |
End If
|
107 |
End If
|
| 134 |
Else
|
108 |
Else
|
| 135 |
Err.Raise 8, "Please select the required package to delete."
|
109 |
Err.Raise 8, "Please select the required package to delete."
|