Subversion Repositories DevTools

Rev

Rev 5957 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5957 Rev 7022
Line 26... Line 26...
26 
<!--#include file="_access_control_project.asp"-->
 26 
<!--#include file="_access_control_project.asp"-->
27 
<%
 27 
<%
28 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
29 
Dim parPv_id
 29 
Dim parPv_id
30 
Dim parRfile
 30 
Dim parRfile
- 
 
 31 
Dim parSched
31 
Dim retParameters
 32 
Dim retParameters
32 
'------------ Constants Declaration -----------
 33 
'------------ Constants Declaration -----------
33 
'------------ Variable Init -------------------
 34 
'------------ Variable Init -------------------
34 
parPv_id = Request("pv_id")
 35 
parPv_id = Request("pv_id")
35 
parRfile = Request("rfile")
 36 
parRfile = Request("rfile")
- 
 
 37 
parSched = Request("sched")
36 
'----------------------------------------------
 38 
'----------------------------------------------
37 
%>
 39 
%>
38 
<%
 40 
<%
39 
'-----------------------  MAIN LINE  ---------------------------
 41 
'-----------------------  MAIN LINE  ---------------------------
40 
 
 42 
 
Line 46... Line 48...
46 
                        "<h3>Cannot progress a package that is a part of an SDK.</h3>" &_
 48 
                        "<h3>Cannot progress a package that is a part of an SDK.</h3>" &_
47 
                        "<p>If the package is a WIP, then consider moving it to a different Release." _
 49 
                        "<p>If the package is a WIP, then consider moving it to a different Release." _
48 
                      )
 50 
                      )
49 
   End If
 51 
   End If
50 
 
 52 
 
51 
   If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters, FALSE) = TRUE Then
 53 
   If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters, FALSE, parSched) = TRUE Then
52 
      If parRfile <> "" Then
 54 
      If parRfile <> "" Then
53 
         Call Destroy_All_Objects
 55 
         Call Destroy_All_Objects
54 
         Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 56 
         Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
55 
        Else
 57 
        Else
56 
         Call Destroy_All_Objects
 58 
         Call Destroy_All_Objects