| 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 83... |
Line 84... |
| 83 |
Call CheckRequirementsForMakePending ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
84 |
Call CheckRequirementsForMakePending ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
| 84 |
|
85 |
|
| 85 |
If IsNull(retERRmsg) Then
|
86 |
If IsNull(retERRmsg) Then
|
| 86 |
' All Requirements OK
|
87 |
' All Requirements OK
|
| 87 |
'COMPLETE THE REQUEST...
|
88 |
'COMPLETE THE REQUEST...
|
| 88 |
Call MakePending ( )
|
- |
|
| 89 |
|
89 |
|
| 90 |
If Request("rfile") <> "" Then
|
90 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
| 91 |
Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
91 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present.<br><br>"&_
|
| - |
|
92 |
"Please delete them or allow them to be consumed before attempting to make the package version pending.")
|
| 92 |
Else
|
93 |
Else
|
| - |
|
94 |
Call MakePending ( )
|
| - |
|
95 |
|
| - |
|
96 |
If Request("rfile") <> "" Then
|
| - |
|
97 |
Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
| - |
|
98 |
Else
|
| 93 |
Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
99 |
Response.Redirect ( "dependencies?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
| - |
|
100 |
End If
|
| 94 |
End If
|
101 |
End If
|
| 95 |
|
102 |
|
| 96 |
Else
|
103 |
Else
|
| 97 |
Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
|
104 |
Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
|
| 98 |
|
105 |
|