WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/form_check_closed_mode.asp

 <%
 '------------ Variable Definition -------------
 Dim objSortHelper
 Dim rsQry
 Dim parProjId
+Dim parModeCode
 Dim   pvIdList, pvIds, PVS, i, aFullList
 Dim ProblemsString
+Dim ProblemInfo
 '------------ Constants Declaration -----------
 '------------ Variable Init -------------------
 parProjId = Request("proj_id")
+parModeCode = Request("mode_code")
 objPMod.PersistInQryString("proj_id")
-Set   pvIdList   =   Server.CreateObject("Scripting.Dictionary")
+Set pvIdList    =   Server.CreateObject("Scripting.Dictionary")
+Set ProblemInfo =   Server.CreateObject("Scripting.Dictionary")
 '----------------------------------------------
 %>
 <%
 Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
 '----------------------------------------------------
 ' --- RUN onPostBack ---
 If Request("action") <> "" Then
    Dim decision
+   Dim problem : problem = false
    decision = Left(Request("decision"), 1) 'Gets the decision based on the combo box selection
    aFullList = Split ( Replace( Request("pvIds"), " ", "" ), "," )
    If decision = 0 Then
       Call OpenInWindow ( "dependencies.asp?rtag_id="&Request("rtag_id") )
    ElseIf decision = 1 Then
       For Each PVS In aFullList
          If PVS <> "" Then Call DestroyPackage(PVS, "N", ProblemsString)
+         If ProblemsString <> "" Then
+            ProblemInfo.Add PVS, ProblemsString
+            problem = true
+         End If
       Next
    ElseIf decision = 2 Then
       For Each PVS In aFullList
          If PVS <> "" Then Call MovePackage(PVS,Request("FRrtag_id"))
       Next
    End If
-   If objEH.Finally Then
+   If objEH.Finally AND NOT problem Then
-      Call OpenInWindow ( "_change_release_mode.asp?mode_code=3&rtag_id="&Request("rtag_id") )
+      Call OpenInWindow ( "_change_release_mode.asp?mode_code=" & parModeCode & "&rtag_id="&Request("rtag_id") )
    End If
 End If
 '----------------------------------------------
 <script language="JavaScript" type="text/javascript">
 <!--
 function RequestDetails( option, paramString, rowId){
+   // Drive the OK button.
+   // Enable it if user has selected an option
+   var okBtn = MM_findObj( 'FormOk' );
+   if (okBtn ) {
+    okBtn.disabled  = option == 0;
+    }
    if ( option == 2 )
+   {
       var requestURL = 'RequestReleaseMoveCombo.asp';
       // Set ajax divname
                      </tr>
                   </table>
                   <table width="100%" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                         <td nowrap class="form_ttl"><p>&nbsp;</p>
+                        <%If parModeCode = 5 Then%>
+                           <p>EDIT RELEASE BEFORE ARCHIVING</p>
+                        <%Else%>
                            <p>EDIT RELEASE BEFORE CLOSING</p>
+                        <%End If%>
                         </td>
                         <td align="right" valign="bottom"></td>
                      </tr>
                   </table>
                </td>
                <td align="right" valign="top"  background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
             </tr>
             <tr>
                <td bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
                <td bgcolor="#FFFFFF" valign="top">
+                  <%If ProblemInfo.Count > 0 Then%>
+                  <span class=err_alert>Problems encountered</span>
+                  <%End If%>
                   <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                   <!--#include file="messages/_msg_inline.asp"-->
                   <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
                   <br>
                      <tr>
                         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">State</td>
                         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Package</td>
                         <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Version</td>
+                        <%If ProblemInfo.Count > 0 Then%>
+                        <td valign="top" wrap background="images/bg_table_col.gif" class="body_col">Problem</td>
+                        <%End If%>
                         <td valign="top">
                      </tr>
                      <%
                      Dim currState
                      currState = ""
                         <tr>
                            <td nowrap class="body_rowg"></td>
                            <td nowrap class="body_rowg"><%=rsQry("pkg_name")%></td>
                            <td nowrap class="body_rowg"><%=rsQry("pkg_version")%></td>
+                        <%If ProblemInfo.Count > 0 Then%>
+                           <td nowrap class="body_rowg err_alert"><%=ProblemInfo.Item(CStr(rsQry("pv_id")))%></td>
+                        <%End If%>
                         </tr>
                         <%
                         rsQry.MoveNext
                         If (NOT rsQry.BOF) AND (NOT rsQry.EOF) Then%>
                   <a class="body_col">Select Destination: </a>
                   <select name="FRrtag_id" id="FRrtag_id" class="form_item">
                   </select>
-                  <%=objFormComponent.SubmitButton ( "OK", "class='form_btn'" )%>&nbsp;
+                  <%=objFormComponent.SubmitButton ( "OK", "class='form_btn' id='FormOk' disabled" )%>&nbsp;
                   <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", "dependencies.asp?rtag_id="&Request("rtag_id") )%>
                   <%=objPMod.ComposeHiddenTags()%>
                   <input type="hidden" name="decision" value="decision.value">
                   <%If Request("FRrtag_id") <> "" Then%>
                      <input type="hidden" name="FRrtag_id" value="FRrtag_id.value">
                   <%End If%>
                   <input type="hidden" name="action" value="true">
                   <input type="hidden" name="pvIds" value=<%=PVS%>>
+                  <input type="hidden" name="mode_code" value=<%=parModeCode%>>
                </td>
                <td background="images/bg_action_norm.gif" ><img src="images/h_trsp_dot.gif" width="5" height="30"></td>
             </tr>
             <tr>
                <td background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/form_check_closed_mode.asp @ 5176 – Rev 4955 → 5176