Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5176
Line 29... Line 29...
29
<%
29
<%
30
'------------ Variable Definition -------------
30
'------------ Variable Definition -------------
31
Dim objSortHelper
31
Dim objSortHelper
32
Dim rsQry
32
Dim rsQry
33
Dim parProjId
33
Dim parProjId
-
 
34
Dim parModeCode
34
Dim   pvIdList, pvIds, PVS, i, aFullList
35
Dim   pvIdList, pvIds, PVS, i, aFullList
35
Dim ProblemsString
36
Dim ProblemsString
-
 
37
Dim ProblemInfo
36
'------------ Constants Declaration -----------
38
'------------ Constants Declaration -----------
37
'------------ Variable Init -------------------
39
'------------ Variable Init -------------------
38
parProjId = Request("proj_id")
40
parProjId = Request("proj_id")
-
 
41
parModeCode = Request("mode_code")
39
objPMod.PersistInQryString("proj_id")
42
objPMod.PersistInQryString("proj_id")
40
Set   pvIdList   =   Server.CreateObject("Scripting.Dictionary")
43
Set pvIdList    =   Server.CreateObject("Scripting.Dictionary")
-
 
44
Set ProblemInfo =   Server.CreateObject("Scripting.Dictionary")
41
'----------------------------------------------
45
'----------------------------------------------
42
%>
46
%>
43
 
47
 
44
<%
48
<%
45
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
49
Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
Line 145... Line 149...
145
'----------------------------------------------------
149
'----------------------------------------------------
146
 
150
 
147
' --- RUN onPostBack ---
151
' --- RUN onPostBack ---
148
If Request("action") <> "" Then
152
If Request("action") <> "" Then
149
   Dim decision
153
   Dim decision
-
 
154
   Dim problem : problem = false
-
 
155
 
150
   decision = Left(Request("decision"), 1) 'Gets the decision based on the combo box selection
156
   decision = Left(Request("decision"), 1) 'Gets the decision based on the combo box selection
151
 
157
 
152
   aFullList = Split ( Replace( Request("pvIds"), " ", "" ), "," )
158
   aFullList = Split ( Replace( Request("pvIds"), " ", "" ), "," )
153
 
159
 
154
   If decision = 0 Then
160
   If decision = 0 Then
155
      Call OpenInWindow ( "dependencies.asp?rtag_id="&Request("rtag_id") )
161
      Call OpenInWindow ( "dependencies.asp?rtag_id="&Request("rtag_id") )
156
   ElseIf decision = 1 Then
162
   ElseIf decision = 1 Then
157
      For Each PVS In aFullList
163
      For Each PVS In aFullList
158
         If PVS <> "" Then Call DestroyPackage(PVS, "N", ProblemsString)
164
         If PVS <> "" Then Call DestroyPackage(PVS, "N", ProblemsString)
-
 
165
         If ProblemsString <> "" Then
-
 
166
            ProblemInfo.Add PVS, ProblemsString
-
 
167
            problem = true
-
 
168
         End If
159
      Next
169
      Next
160
   ElseIf decision = 2 Then
170
   ElseIf decision = 2 Then
161
      For Each PVS In aFullList
171
      For Each PVS In aFullList
162
         If PVS <> "" Then Call MovePackage(PVS,Request("FRrtag_id"))
172
         If PVS <> "" Then Call MovePackage(PVS,Request("FRrtag_id"))
163
      Next
173
      Next
164
   End If
174
   End If
165
 
175
 
166
   If objEH.Finally Then
176
   If objEH.Finally AND NOT problem Then
167
      Call OpenInWindow ( "_change_release_mode.asp?mode_code=3&rtag_id="&Request("rtag_id") )
177
      Call OpenInWindow ( "_change_release_mode.asp?mode_code=" & parModeCode & "&rtag_id="&Request("rtag_id") )
168
   End If
178
   End If
169
 
179
 
170
End If
180
End If
171
 
181
 
172
'----------------------------------------------
182
'----------------------------------------------
Line 184... Line 194...
184
<script language="JavaScript" type="text/javascript">
194
<script language="JavaScript" type="text/javascript">
185
<!--
195
<!--
186
 
196
 
187
function RequestDetails( option, paramString, rowId){
197
function RequestDetails( option, paramString, rowId){
188
 
198
 
-
 
199
   // Drive the OK button.
-
 
200
   // Enable it if user has selected an option
-
 
201
   var okBtn = MM_findObj( 'FormOk' );
-
 
202
   if (okBtn ) {
-
 
203
    okBtn.disabled  = option == 0;
-
 
204
    }
-
 
205
 
189
   if ( option == 2 )
206
   if ( option == 2 )
190
   {
207
   {
191
      var requestURL = 'RequestReleaseMoveCombo.asp';
208
      var requestURL = 'RequestReleaseMoveCombo.asp';
192
 
209
 
193
      // Set ajax divname
210
      // Set ajax divname
Line 283... Line 300...
283
                     </tr>
300
                     </tr>
284
                  </table>
301
                  </table>
285
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
302
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
286
                     <tr>
303
                     <tr>
287
                        <td nowrap class="form_ttl"><p>&nbsp;</p>
304
                        <td nowrap class="form_ttl"><p>&nbsp;</p>
-
 
305
                        <%If parModeCode = 5 Then%>
-
 
306
                           <p>EDIT RELEASE BEFORE ARCHIVING</p>
-
 
307
                        <%Else%>
288
                           <p>EDIT RELEASE BEFORE CLOSING</p>
308
                           <p>EDIT RELEASE BEFORE CLOSING</p>
-
 
309
                        <%End If%>
289
                        </td>
310
                        </td>
290
                        <td align="right" valign="bottom"></td>
311
                        <td align="right" valign="bottom"></td>
291
                     </tr>
312
                     </tr>
292
                  </table>
313
                  </table>
293
               </td>
314
               </td>
Line 299... Line 320...
299
               <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
320
               <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
300
            </tr>
321
            </tr>
301
            <tr>
322
            <tr>
302
               <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
323
               <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
303
               <td bgcolor="#FFFFFF" valign="top">
324
               <td bgcolor="#FFFFFF" valign="top">
304
 
-
 
-
 
325
                  <%If ProblemInfo.Count > 0 Then%>
-
 
326
                  <span class=err_alert>Problems encountered</span>
-
 
327
                  <%End If%>
305
                  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
328
                  <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
306
                  <!--#include file="messages/_msg_inline.asp"-->
329
                  <!--#include file="messages/_msg_inline.asp"-->
307
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
330
                  <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
308
                  <br>
331
                  <br>
309
 
332
 
Line 312... Line 335...
312
                     <tr>
335
                     <tr>
313
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">State</td>
336
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">State</td>
314
 
337
 
315
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package</td>
338
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package</td>
316
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Version</td>
339
                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Version</td>
-
 
340
                        <%If ProblemInfo.Count > 0 Then%>
-
 
341
                        <td valign="top" wrap background="images/bg_table_col.gif" class="body_col">Problem</td>
-
 
342
                        <%End If%>
317
                        <td valign="top">
343
                        <td valign="top">
318
                     </tr>
344
                     </tr>
319
                     <%
345
                     <%
320
                     Dim currState
346
                     Dim currState
321
                     currState = ""
347
                     currState = ""
Line 346... Line 372...
346
 
372
 
347
                        <tr>
373
                        <tr>
348
                           <td nowrap class="body_rowg"></td>
374
                           <td nowrap class="body_rowg"></td>
349
                           <td nowrap class="body_rowg"><%=rsQry("pkg_name")%></td>
375
                           <td nowrap class="body_rowg"><%=rsQry("pkg_name")%></td>
350
                           <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
376
                           <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
-
 
377
                        <%If ProblemInfo.Count > 0 Then%>
-
 
378
                           <td nowrap class="body_rowg err_alert"><%=ProblemInfo.Item(CStr(rsQry("pv_id")))%></td>
-
 
379
                        <%End If%>
351
                        </tr>
380
                        </tr>
352
                        <%
381
                        <%
353
                        rsQry.MoveNext
382
                        rsQry.MoveNext
354
 
383
 
355
                        If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
384
                        If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
Line 388... Line 417...
388
 
417
 
389
                  <a class="body_col">Select Destination: </a>
418
                  <a class="body_col">Select Destination: </a>
390
                  <select name="FRrtag_id" id="FRrtag_id" class="form_item">
419
                  <select name="FRrtag_id" id="FRrtag_id" class="form_item">
391
                  </select>
420
                  </select>
392
 
421
 
393
                  <%=objFormComponent.SubmitButton ( "OK", "class='form_btn'" )%>&nbsp;
422
                  <%=objFormComponent.SubmitButton ( "OK", "class='form_btn' id='FormOk' disabled" )%>&nbsp;
394
                  <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "dependencies.asp?rtag_id="&Request("rtag_id") )%>
423
                  <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "dependencies.asp?rtag_id="&Request("rtag_id") )%>
395
                  <%=objPMod.ComposeHiddenTags()%>
424
                  <%=objPMod.ComposeHiddenTags()%>
396
                  <input type="hidden" name="decision" value="decision.value">
425
                  <input type="hidden" name="decision" value="decision.value">
397
                  <%If Request("FRrtag_id") <> "" Then%>
426
                  <%If Request("FRrtag_id") <> "" Then%>
398
                     <input type="hidden" name="FRrtag_id" value="FRrtag_id.value">
427
                     <input type="hidden" name="FRrtag_id" value="FRrtag_id.value">
399
                  <%End If%>
428
                  <%End If%>
400
                  <input type="hidden" name="action" value="true">
429
                  <input type="hidden" name="action" value="true">
401
                  <input type="hidden" name="pvIds" value=<%=PVS%>>
430
                  <input type="hidden" name="pvIds" value=<%=PVS%>>
-
 
431
                  <input type="hidden" name="mode_code" value=<%=parModeCode%>>
402
               </td>
432
               </td>
403
               <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
433
               <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
404
            </tr>
434
            </tr>
405
            <tr>
435
            <tr>
406
               <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
436
               <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>