Subversion Repositories DevTools

Rev

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

Rev 123 Rev 129
Line 38... Line 38...
38 
<%
 38 
<%
39 
'-----------------------  MAIN LINE  ---------------------------
 39 
'-----------------------  MAIN LINE  ---------------------------
40 
 
 40 
 
41 
'--- Process submission ---
 41 
'--- Process submission ---
42 
If ( parRtag_id <> "") AND (parPv_id <> "") Then
 42 
If ( parRtag_id <> "") AND (parPv_id <> "") Then
43 
   If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters) = TRUE Then
 43 
   If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters, FALSE) = TRUE Then
44 
      If parRfile <> "" Then
 44 
      If parRfile <> "" Then
45 
         Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 45 
         Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
46 
		Else
 46 
		Else
47 
         Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 47 
         Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
48 
		End If
 48 
		End If