Subversion Repositories DevTools

Rev

Rev 123 | Blame | Compare with Previous | Last modification | View Log | RSS feed

<%@LANGUAGE="VBSCRIPT"%>
<%
Option explicit
Response.Expires = 0    ' always load the page, dont store
%>
<%
'=====================================================
'              Make Bulk Release
'=====================================================
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->
<!--#include file="common/common_make_release_subs.asp"-->
<%
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_general.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
Dim parPVIDList
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = QStrPar("pv_id")
parRtag_id = QStrPar("rtag_id")
parPVIDList = Request("pv_id_list")
'----------------------------------------------
%>

<%
'Process submition
Call PUBLIC_MakeBulkRelease (parRtag_id, parPVIDList)
If parPv_id Then
   Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
Else
   Response.Redirect ( "dependencies.asp?rtag_id="& parRtag_id )
End If
%>

<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->