| 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 |
'------------ ACCESS CONTROL ------------------
|
22 |
'------------ ACCESS CONTROL ------------------
|
| 22 |
%>
|
23 |
%>
|
| 23 |
<!--#include file="_access_control_login.asp"-->
|
24 |
<!--#include file="_access_control_login.asp"-->
|
| 24 |
<!--#include file="_access_control_general.asp"-->
|
25 |
<!--#include file="_access_control_general.asp"-->
|
| Line 77... |
Line 78... |
| 77 |
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
|
78 |
Call objPMod.StoreParameter ( "FLpkg_version", Request("FLpkg_version") )
|
| 78 |
Call objPMod.StoreParameter ( "listby", Request("listby") )
|
79 |
Call objPMod.StoreParameter ( "listby", Request("listby") )
|
| 79 |
|
80 |
|
| 80 |
If objPMod.GetParamValue("pv_id") Then
|
81 |
If objPMod.GetParamValue("pv_id") Then
|
| 81 |
|
82 |
|
| - |
|
83 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
| - |
|
84 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present.<br><br>"&_
|
| - |
|
85 |
"Please delete them or allow them to be consumed before attempting to delete the package version.")
|
| - |
|
86 |
Else
|
| 82 |
'--- Process submition ---
|
87 |
'--- Process submition ---
|
| 83 |
Call DestroyPackage ( objPMod.GetParamValue("pv_id"), OverideWarnings, ProblemsString )
|
88 |
Call DestroyPackage ( objPMod.GetParamValue("pv_id"), OverideWarnings, ProblemsString )
|
| 84 |
|
89 |
|
| 85 |
If IsNull( ProblemsString ) Then
|
90 |
If IsNull( ProblemsString ) Then
|
| 86 |
Response.Redirect( objPMod.GetParamValue("bfile") &"?DESTROYED=OK"& objPMod.ComposeURLWithout("bfile,pv_id") )
|
91 |
Response.Redirect( objPMod.GetParamValue("bfile") &"?DESTROYED=OK"& objPMod.ComposeURLWithout("bfile,pv_id") )
|
| - |
|
92 |
End If
|
| 87 |
End If
|
93 |
End If
|
| 88 |
|
94 |
|
| 89 |
Else
|
95 |
Else
|
| 90 |
|
96 |
|
| 91 |
Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
|
97 |
Err.Raise 8, "This page requires more paramaters to run.<br>"& objPMod.ComposeURL()
|