<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Generate Release Notes '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile Dim rsPkgInfo Dim retERRmsg Dim retParameters '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parRtag_id = QStrPar("rtag_id") parRfile = QStrPar("rfile") '---------------------------------------------- %> <% '---------------------------------- MAIN LINE ---------------------------------------- ' if URL called from the daemon, "gen_rel_notes", therefore no rfile parameter exists in the URL then call the release changed script If Request("rfile").Count = 0 Then Dim objRC: Set objRC = New ReleaseChanged Call objRC.Run_ReleaseChanged(parRtag_id, parPv_id,enumRELEASE_CHANGE_MODE_PKG_RELEASED,true) Set objRC = Nothing End If ' REQUREMENTS CHECK If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then Call PUBLIC_NotifyInterestManualBuild ( parRtag_id, parPv_id ) Else ' do nothing - the reality is that the exception handling done in PUBLIC_Run_onMakeOfficial redirects on an error anyway. End If 'Return Page If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) Else Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) End If %>