| Line 13... |
Line 13... |
| 13 |
<!--#include file="common/formating.asp"-->
|
13 |
<!--#include file="common/formating.asp"-->
|
| 14 |
<!--#include file="common/qstr.asp"-->
|
14 |
<!--#include file="common/qstr.asp"-->
|
| 15 |
<!--#include file="common/common_subs.asp"-->
|
15 |
<!--#include file="common/common_subs.asp"-->
|
| 16 |
<!--#include file="common/common_dbedit.asp"-->
|
16 |
<!--#include file="common/common_dbedit.asp"-->
|
| 17 |
<!--#include file="common/common_make_release_subs.asp"-->
|
17 |
<!--#include file="common/common_make_release_subs.asp"-->
|
| - |
|
18 |
<!--#include file="common/daemon_instructions.asp"-->
|
| 18 |
<%
|
19 |
<%
|
| 19 |
'------------ ACCESS CONTROL ------------------
|
20 |
'------------ ACCESS CONTROL ------------------
|
| 20 |
%>
|
21 |
%>
|
| 21 |
<!--#include file="_access_control_login.asp"-->
|
22 |
<!--#include file="_access_control_login.asp"-->
|
| 22 |
<!--#include file="_access_control_general.asp"-->
|
23 |
<!--#include file="_access_control_general.asp"-->
|
| Line 59... |
Line 60... |
| 59 |
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
60 |
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
| 60 |
'Response.write "HERE"
|
61 |
'Response.write "HERE"
|
| 61 |
If IsNull(retERRmsg) Then
|
62 |
If IsNull(retERRmsg) Then
|
| 62 |
' All Requirements OK
|
63 |
' All Requirements OK
|
| 63 |
|
64 |
|
| 64 |
If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
|
65 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
| - |
|
66 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_
|
| 65 |
Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
67 |
"Please delete them or allow them to be consumed before attempting to make the package released.")
|
| 66 |
Else
|
68 |
Else
|
| - |
|
69 |
If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
|
| - |
|
70 |
Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
| - |
|
71 |
Else
|
| 67 |
' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
|
72 |
' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
|
| - |
|
73 |
End If
|
| 68 |
End If
|
74 |
End If
|
| 69 |
|
75 |
|
| - |
|
76 |
|
| 70 |
Else
|
77 |
Else
|
| 71 |
'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
|
78 |
'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
|
| 72 |
' ' Products
|
79 |
' ' Products
|
| 73 |
' If retALRTmsg = "WARNING" Then
|
80 |
' If retALRTmsg = "WARNING" Then
|
| 74 |
' ' Allow overide
|
81 |
' ' Allow overide
|