| Line 17... |
Line 17... |
| 17 |
<!--#include file="common/qstr.asp"-->
|
17 |
<!--#include file="common/qstr.asp"-->
|
| 18 |
<!--#include file="common/common_subs.asp"-->
|
18 |
<!--#include file="common/common_subs.asp"-->
|
| 19 |
<!--#include file="common/_form_window_common.asp"-->
|
19 |
<!--#include file="common/_form_window_common.asp"-->
|
| 20 |
<%
|
20 |
<%
|
| 21 |
' Set rfile parameter. This is a return page after Login
|
21 |
' Set rfile parameter. This is a return page after Login
|
| 22 |
Call objPMod.StoreParameter ( "rfile", "rtree.asp" )
|
22 |
Call objPMod.StoreParameter ( "rfile", RequestDefault("rfile","rtree.asp") )
|
| 23 |
objPMod.PersistInQryString("proj_id")
|
23 |
objPMod.PersistInQryString("proj_id")
|
| 24 |
'------------ ACCESS CONTROL ------------------
|
24 |
'------------ ACCESS CONTROL ------------------
|
| 25 |
%>
|
25 |
%>
|
| 26 |
<!--#include file="_access_control_login.asp"-->
|
26 |
<!--#include file="_access_control_login.asp"-->
|
| 27 |
<!--#include file="_access_control_general.asp"-->
|
27 |
<!--#include file="_access_control_general.asp"-->
|
| Line 33... |
Line 33... |
| 33 |
Dim parProjId
|
33 |
Dim parProjId
|
| 34 |
Dim parModeCode
|
34 |
Dim parModeCode
|
| 35 |
Dim pvIdList, pvIds, PVS, i, aFullList
|
35 |
Dim pvIdList, pvIds, PVS, i, aFullList
|
| 36 |
Dim ProblemsString
|
36 |
Dim ProblemsString
|
| 37 |
Dim ProblemInfo
|
37 |
Dim ProblemInfo
|
| - |
|
38 |
Dim rfile
|
| 38 |
'------------ Constants Declaration -----------
|
39 |
'------------ Constants Declaration -----------
|
| 39 |
'------------ Variable Init -------------------
|
40 |
'------------ Variable Init -------------------
|
| 40 |
parProjId = Request("proj_id")
|
41 |
parProjId = Request("proj_id")
|
| 41 |
parModeCode = Request("mode_code")
|
42 |
parModeCode = Request("mode_code")
|
| 42 |
objPMod.PersistInQryString("proj_id")
|
43 |
objPMod.PersistInQryString("proj_id")
|
| - |
|
44 |
rfile = RequestDefault("rfile", "dependencies.asp")
|
| 43 |
Set pvIdList = Server.CreateObject("Scripting.Dictionary")
|
45 |
Set pvIdList = Server.CreateObject("Scripting.Dictionary")
|
| 44 |
Set ProblemInfo = Server.CreateObject("Scripting.Dictionary")
|
46 |
Set ProblemInfo = Server.CreateObject("Scripting.Dictionary")
|
| 45 |
'----------------------------------------------
|
47 |
'----------------------------------------------
|
| 46 |
%>
|
48 |
%>
|
| 47 |
|
49 |
|
| Line 156... |
Line 158... |
| 156 |
decision = Left(Request("decision"), 1) 'Gets the decision based on the combo box selection
|
158 |
decision = Left(Request("decision"), 1) 'Gets the decision based on the combo box selection
|
| 157 |
|
159 |
|
| 158 |
aFullList = Split ( Replace( Request("pvIds"), " ", "" ), "," )
|
160 |
aFullList = Split ( Replace( Request("pvIds"), " ", "" ), "," )
|
| 159 |
|
161 |
|
| 160 |
If decision = 0 Then
|
162 |
If decision = 0 Then
|
| 161 |
Call OpenInWindow ( "dependencies.asp?rtag_id="&Request("rtag_id") )
|
163 |
Call OpenInWindow ( rfile & "?rtag_id="&Request("rtag_id") )
|
| 162 |
ElseIf decision = 1 Then
|
164 |
ElseIf decision = 1 Then
|
| 163 |
For Each PVS In aFullList
|
165 |
For Each PVS In aFullList
|
| 164 |
If PVS <> "" Then Call DestroyPackage(PVS, "N", ProblemsString)
|
166 |
If PVS <> "" Then Call DestroyPackage(PVS, "N", ProblemsString)
|
| 165 |
If ProblemsString <> "" Then
|
167 |
If ProblemsString <> "" Then
|
| 166 |
ProblemInfo.Add PVS, ProblemsString
|
168 |
ProblemInfo.Add PVS, ProblemsString
|
| Line 302... |
Line 304... |
| 302 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
304 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 303 |
<tr>
|
305 |
<tr>
|
| 304 |
<td nowrap class="form_ttl"><p> </p>
|
306 |
<td nowrap class="form_ttl"><p> </p>
|
| 305 |
<%If parModeCode = 5 Then%>
|
307 |
<%If parModeCode = 5 Then%>
|
| 306 |
<p>EDIT RELEASE BEFORE ARCHIVING</p>
|
308 |
<p>EDIT RELEASE BEFORE ARCHIVING</p>
|
| - |
|
309 |
<%Else If parModeCode = 6 Then%>
|
| - |
|
310 |
<p>EDIT RELEASE BEFORE PRESERVING</p>
|
| 307 |
<%Else%>
|
311 |
<%Else%>
|
| 308 |
<p>EDIT RELEASE BEFORE CLOSING</p>
|
312 |
<p>EDIT RELEASE BEFORE CLOSING</p>
|
| 309 |
<%End If%>
|
313 |
<%End If%>
|
| 310 |
</td>
|
314 |
</td>
|
| 311 |
<td align="right" valign="bottom"></td>
|
315 |
<td align="right" valign="bottom"></td>
|
| Line 418... |
Line 422... |
| 418 |
<a class="body_col">Select Destination: </a>
|
422 |
<a class="body_col">Select Destination: </a>
|
| 419 |
<select name="FRrtag_id" id="FRrtag_id" class="form_item">
|
423 |
<select name="FRrtag_id" id="FRrtag_id" class="form_item">
|
| 420 |
</select>
|
424 |
</select>
|
| 421 |
|
425 |
|
| 422 |
<%=objFormComponent.SubmitButton ( "OK", "class='form_btn' id='FormOk' disabled" )%>
|
426 |
<%=objFormComponent.SubmitButton ( "OK", "class='form_btn' id='FormOk' disabled" )%>
|
| 423 |
<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "dependencies.asp?rtag_id="&Request("rtag_id") )%>
|
427 |
<%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", rfile&"?rtag_id="&Request("rtag_id") )%>
|
| 424 |
<%=objPMod.ComposeHiddenTags()%>
|
428 |
<%=objPMod.ComposeHiddenTags()%>
|
| 425 |
<input type="hidden" name="decision" value="decision.value">
|
429 |
<input type="hidden" name="decision" value="decision.value">
|
| 426 |
<%If Request("FRrtag_id") <> "" Then%>
|
430 |
<%If Request("FRrtag_id") <> "" Then%>
|
| 427 |
<input type="hidden" name="FRrtag_id" value="FRrtag_id.value">
|
431 |
<input type="hidden" name="FRrtag_id" value="FRrtag_id.value">
|
| 428 |
<%End If%>
|
432 |
<%End If%>
|