<%@LANGUAGE="VBSCRIPT"%> <% Option explicit Response.Expires = 0 ' always load the page, dont store %> <% '===================================================== ' Make Single Package Official '===================================================== %> <% '------------ ACCESS CONTROL ------------------ %> <% '------------ Variable Definition ------------- Dim parPv_id Dim parRfile Dim retERRmsg Dim retALRTmsg Dim retParameters Dim parSReq ' Skip requirements test Dim pkgType '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") parRfile = QStrPar("rfile") parSReq = QStrPar("sreq") '---------------------------------------------- %> <% '------------------------------------------------------------------------------------ '------------------------------------------------------------------------------------- %> <% '---------------------------------- MAIN LINE ---------------------------------------- ' REQUREMENTS CHECK for ALL ' Call RaiseMsg(enum_MSG_ERROR, "Testing Testing") Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters ) 'Response.write "HERE" If IsNull(retERRmsg) Then ' All Requirements OK If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present

"&_ "Please delete them or allow them to be consumed before attempting to make the package released.") Else If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then Call PUBLIC_NotifyInterestManualBuild( parRtag_id, parPv_id ) End If Call Destroy_All_Objects Response.Redirect ( parRfile & "?pv_id="& parPv_id &"&rtag_id="& parRtag_id ) Else ' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway. End If End If Else Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" ) End If %>