| Line 49... |
Line 49... |
| 49 |
' Call RaiseMsg(enum_MSG_ERROR, "Testing Testing")
|
49 |
' Call RaiseMsg(enum_MSG_ERROR, "Testing Testing")
|
| 50 |
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
50 |
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
| 51 |
|
51 |
|
| 52 |
'Response.write "HERE"
|
52 |
'Response.write "HERE"
|
| 53 |
If IsNull(retERRmsg) Then
|
53 |
If IsNull(retERRmsg) Then
|
| 54 |
' All Requirements OK
|
54 |
' All Requirements OK
|
| 55 |
|
55 |
|
| 56 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
56 |
If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
|
| 57 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_
|
57 |
Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_
|
| 58 |
"Please delete them or allow them to be consumed before attempting to make the package released.")
|
58 |
"Please delete them or allow them to be consumed before attempting to make the package released.")
|
| 59 |
Else
|
59 |
Else
|
| 60 |
If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
|
60 |
If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
|
| - |
|
61 |
If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then
|
| - |
|
62 |
Call PUBLIC_NotifyInterestManualBuild( parRtag_id, parPv_id )
|
| - |
|
63 |
End If
|
| - |
|
64 |
|
| 61 |
Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
65 |
Response.Redirect ( parRfile & "?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
|
| 62 |
Else
|
66 |
Else
|
| 63 |
' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
|
67 |
' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
|
| 64 |
End If
|
68 |
End If
|
| 65 |
End If
|
69 |
End If
|
| 66 |
|
- |
|
| 67 |
|
70 |
|
| 68 |
Else
|
71 |
Else
|
| 69 |
Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
|
72 |
Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
|
| 70 |
End If
|
73 |
End If
|
| 71 |
|
74 |
|
| 72 |
%>
|
75 |
%>
|
| 73 |
|
76 |
|
| 74 |
|
77 |
|