<%@LANGUAGE="VBSCRIPT"%>
<%
'=====================================================
'| |
'| NEW VERSION |
'| |
'=====================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0 ' always load the page, dont store
Dim bInIframe : bInIframe = False
%>
<%
' Make sure rtag_id is always present
If Request("rtag_id") = "" Then
Call Destroy_All_Objects
Response.Redirect("index.asp")
End If
%>
<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "form_new_version.asp" )
'------------ ACCESS CONTROL ------------------
%>
<%
'------------ Variable Definition -------------
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'----------------------------------------------
If NOT canAddToRelease(Request("rtag_id"),Request("pv_id") ) Then
Call RaiseMsg ( enum_MSG_ERROR, "
Cannot create a new version of a package that is a part of an SDK.