Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6048 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
123 ghuddy 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
5 
%>
6 
<%
7 
'=====================================================
8 
'              Make Bulk Release
9 
'=====================================================
10 
%>
11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/formating.asp"-->
14 
<!--#include file="common/qstr.asp"-->
15 
<!--#include file="common/common_subs.asp"-->
16 
<!--#include file="common/common_dbedit.asp"-->
17 
<!--#include file="common/common_make_release_subs.asp"-->
18 
<%
19 
'------------ ACCESS CONTROL ------------------
20 
%>
21 
<!--#include file="_access_control_general.asp"-->
22 
<%
23 
'------------ Variable Definition -------------
24 
Dim parPv_id
25 
Dim parPVIDList
26 
'------------ Constants Declaration -----------
27 
'------------ Variable Init -------------------
28 
parPv_id = QStrPar("pv_id")
29 
parRtag_id = QStrPar("rtag_id")
30 
parPVIDList = Request("pv_id_list")
31 
'----------------------------------------------
32 
%>
33 
 
34 
<%
35 
'Process submition
36 
Call PUBLIC_MakeBulkRelease (parRtag_id, parPVIDList)
37 
If parPv_id Then
5957 dpurdie 38 
   Call Destroy_All_Objects
123 ghuddy 39 
   Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
40 
Else
5957 dpurdie 41 
   Call Destroy_All_Objects
123 ghuddy 42 
   Response.Redirect ( "dependencies.asp?rtag_id="& parRtag_id )
43 
End If
44 
%>
45 
<!-- DESTRUCTOR ------->
46 
<!--#include file="common/destructor.asp"-->