| Line 90... |
Line 90... |
| 90 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present.<br><br>"&_
|
90 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present.<br><br>"&_
|
| 91 |
"Please delete them or allow them to be consumed before attempting to make the package version pending.")
|
91 |
"Please delete them or allow them to be consumed before attempting to make the package version pending.")
|
| 92 |
Else
|
92 |
Else
|
| 93 |
Call MakePending ( )
|
93 |
Call MakePending ( )
|
| 94 |
|
94 |
|
| - |
|
95 |
Call Destroy_All_Objects
|
| 95 |
If Request("rfile") <> "" Then
|
96 |
If Request("rfile") <> "" Then
|
| 96 |
Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
97 |
Response.Redirect ( Request("rfile") &"?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
|
| 97 |
Else
|
98 |
Else
|
| 98 |
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") )
|
| 99 |
End If
|
100 |
End If
|
| Line 107... |
Line 108... |
| 107 |
Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
108 |
Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
|
| 108 |
Response.write QSTR_FullQuery
|
109 |
Response.write QSTR_FullQuery
|
| 109 |
End If
|
110 |
End If
|
| 110 |
|
111 |
|
| 111 |
%>
|
112 |
%>
|
| 112 |
|
- |
|
| 113 |
<!-- DESTRUCTOR ------->
|
113 |
<!-- DESTRUCTOR ------->
|
| 114 |
<!--#include file="common/destructor.asp"-->
|
114 |
<!--#include file="common/destructor.asp"-->
|