| Line 34... |
Line 34... |
| 34 |
'----------------------------------------------
|
34 |
'----------------------------------------------
|
| 35 |
%>
|
35 |
%>
|
| 36 |
<%
|
36 |
<%
|
| 37 |
'---------------------------------- MAIN LINE ----------------------------------------
|
37 |
'---------------------------------- MAIN LINE ----------------------------------------
|
| 38 |
|
38 |
|
| - |
|
39 |
' if URL called from the daemon, "gen_rel_notes", therefore no rfile parameter exists in the URL then call the release changed script
|
| - |
|
40 |
If Request("rfile").Count = 0 Then
|
| - |
|
41 |
Dim objRC: Set objRC = New ReleaseChanged
|
| - |
|
42 |
Call objRC.Run_ReleaseChanged(parRtag_id, parPv_id,enumRELEASE_CHANGE_MODE_PKG_RELEASED,true)
|
| - |
|
43 |
Set objRC = Nothing
|
| - |
|
44 |
End If
|
| - |
|
45 |
|
| 39 |
' REQUREMENTS CHECK
|
46 |
' REQUREMENTS CHECK
|
| 40 |
If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then
|
47 |
If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then
|
| 41 |
Call PUBLIC_NotifyInterestManualBuild ( parRtag_id, parPv_id )
|
48 |
Call PUBLIC_NotifyInterestManualBuild ( parRtag_id, parPv_id )
|
| 42 |
Else
|
49 |
Else
|
| 43 |
' do nothing - the reality is that the exception handling done in PUBLIC_Run_onMakeOfficial redirects on an error anyway.
|
50 |
' do nothing - the reality is that the exception handling done in PUBLIC_Run_onMakeOfficial redirects on an error anyway.
|