Subversion Repositories DevTools

Rev

Rev 5506 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5957
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
' 			 	    MAKE APPROVED FOR AUTOMATED BUILD
 4 
' MAKE APPROVED FOR AUTOMATED BUILD
5 
'               --- PROCESS FORM ---
 5 
' --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0    ' always load the page, dont store
12 
%>
 12 
%>
13 
 
 13 
 
14 
<!--#include file="common/conf.asp"-->
 14 
<!--#include file="common/conf.asp"-->
15 
<!--#include file="common/globals.asp"-->
 15 
<!--#include file="common/globals.asp"-->
16 
<!--#include file="common/formating.asp"-->
 16 
<!--#include file="common/formating.asp"-->
Line 48... Line 48...
48 
                      )
 48 
                      )
49 
   End If
 49 
   End If
50 
 
 50 
 
51 
   If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters, FALSE) = TRUE Then
 51 
   If PUBLIC_ApproveRelease (parRtag_id, parPv_id, retParameters, FALSE) = TRUE Then
52 
      If parRfile <> "" Then
 52 
      If parRfile <> "" Then
- 
 
 53 
         Call Destroy_All_Objects
53 
         Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 54 
         Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
54 
		Else
 55 
        Else
- 
 
 56 
         Call Destroy_All_Objects
55 
         Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 57 
         Response.Redirect ( "dependencies.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
56 
		End If
 58 
        End If
57 
	Else
 59 
    Else
58 
      'This is currently done inside Make_This_PVID_Approved()
 60 
      'This is currently done inside Make_This_PVID_Approved()
59 
      'Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id  &"|"& retParameters &"|"& "N" )
 61 
      'Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id  &"|"& retParameters &"|"& "N" )
60 
	End If
 62 
    End If
61 
Else
 63 
Else
62 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 64 
    Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
63 
	Response.write QSTR_FullQuery
 65 
    Response.write QSTR_FullQuery
64 
End If
 66 
End If
65 
%>
 67 
%>
66 
 
 - 
 
67 
<!-- DESTRUCTOR ------->
 68 
<!-- DESTRUCTOR ------->
68 
<!--#include file="common/destructor.asp"-->
 69 
<!--#include file="common/destructor.asp"-->