Subversion Repositories DevTools

Rev

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

Rev 5176 Rev 5177
Line 16... Line 16...
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
17 
<!--#include file="common/common_subs.asp"-->
 17 
<!--#include file="common/common_subs.asp"-->
18 
<!--#include file="common/common_dbedit.asp"-->
 18 
<!--#include file="common/common_dbedit.asp"-->
19 
<%
 19 
<%
20 
' Set rfile parameter. This is a return page after Login
 20 
' Set rfile parameter. This is a return page after Login
21 
Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )
 21 
Call objPMod.StoreParameter ( "rfile", RequestDefault("rfile","dependencies.asp") )
- 
 
 22 
objPMod.PersistInQryString("proj_id")
- 
 
 23 
objPMod.PersistInQryString("rtag_id")
- 
 
 24 
 
22 
'------------ ACCESS CONTROL ------------------
 25 
'------------ ACCESS CONTROL ------------------
23 
%>
 26 
%>
24 
<!--#include file="_access_control_login.asp"-->
 27 
<!--#include file="_access_control_login.asp"-->
25 
<!--#include file="_access_control_general.asp"-->
 28 
<!--#include file="_access_control_general.asp"-->
26 
<!--#include file="_access_control_project.asp"-->
 29 
<!--#include file="_access_control_project.asp"-->
Line 39... Line 42...
39 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0))
 42 
   Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql"), cint(0))
40 
 
 43 
 
41 
   OraDatabase.Parameters.Remove "RTAG_ID"
 44 
   OraDatabase.Parameters.Remove "RTAG_ID"
42 
 
 45 
 
43 
   If rsQry.RecordCount > 0 Then
 46 
   If rsQry.RecordCount > 0 Then
44 
      Call OpenInWindow( "form_check_closed_mode.asp?rtag_id="& Request("rtag_id") & "&mode_code=" &Request("mode_code") )
 47 
      Call OpenInWindow( "form_check_closed_mode.asp?mode_code=" & Request("mode_code") & "&" & objPMod.ComposeURL() )
45 
   Else
 48 
   Else
46 
      'COMPLETE THE REQUEST...
 49 
      'COMPLETE THE REQUEST...
47 
      Call ChangeReleaseMode ()
 50 
      Call ChangeReleaseMode ()
48 
   End If
 51 
   End If
49 
 
 52 
 
Line 84... Line 87...
84 
   '    1   Open
 87 
   '    1   Open
85 
   '    2   Restrictive
 88 
   '    2   Restrictive
86 
   '    3   Closed
 89 
   '    3   Closed
87 
   '    4   CCB
 90 
   '    4   CCB
88 
   '    5   Archive
 91 
   '    5   Archive
- 
 
 92 
   '    6   Preserved
89 
 
 93 
 
90 
   If Request("mode_code") = 3  OR Request("mode_code") = 5 Then
 94 
   If Request("mode_code") = 3  OR Request("mode_code") = 5 OR Request("mode_code") = 6 Then
91 
      ' only allow change to closed or archived mode if release has no wips or planned items.
 95 
      ' only allow change to closed or archived mode if release has no wips or planned items.
92 
      Call CheckWIPS ()
 96 
      Call CheckWIPS ()
93 
   Else
 97 
   Else
94 
      'COMPLETE THE REQUEST...
 98 
      'COMPLETE THE REQUEST...
95 
      Call ChangeReleaseMode ()
 99 
      Call ChangeReleaseMode ()
96 
   End If
 100 
   End If
97 
 
 101 
 
- 
 
 102 
   Dim rfile
- 
 
 103 
   rfile = Request("rfile")
- 
 
 104 
   If rfile = "" Then rfile = "dependencies.asp"
98 
   Call OpenInWindow( "dependencies.asp?rtag_id="& Request("rtag_id") )
 105 
   Call OpenInWindow( rfile & "?rtag_id="& Request("rtag_id") )
99 
 
 106 
 
100 
Else
 107 
Else
101 
   Err.Raise 8, "Request not accepted here."
 108 
   Err.Raise 8, "Request not accepted here."
102 
   'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 109 
   'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
103 
   'Response.write QSTR_FullQuery
 110 
   'Response.write QSTR_FullQuery