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

 <%
 '------------ Variable Definition -------------
 Dim rsQry
 Dim parProjId
 Dim parModeCode
-Dim   pvIdList, pvIds, PVS, i, aFullList
+Dim pvIdList, pvIds, PVS, i, aFullList
 Dim ProblemsString
 Dim ProblemInfo
 Dim rfile
 '------------ Constants Declaration -----------
+'Const imgPkgLocked                = "<img src='images/i_locked.gif' width='7' height='10' hspace='4' align='absmiddle' title='Package Locked'>"
 '------------ Variable Init -------------------
 parProjId = Request("proj_id")
 parModeCode = Request("mode_code")
 objPMod.PersistInQryString("proj_id")
 rfile = RequestDefault("rfile", "dependencies.asp")
-Set pvIdList    =   Server.CreateObject("Scripting.Dictionary")
 Set ProblemInfo =   Server.CreateObject("Scripting.Dictionary")
 '----------------------------------------------
-%>
-<%
 Sub DestroyPackage ( nPvId, cOverrideWarnings, outProblemsString )
    OraDatabase.Parameters.Add "PV_ID",             nPvId,             ORAPARM_INPUT,  ORATYPE_NUMBER
    OraDatabase.Parameters.Add "OVERRIDE_WARNINGS", cOverrideWarnings, ORAPARM_INPUT,  ORATYPE_CHAR
    OraDatabase.Parameters.Add "PROBLEM_STRING",    NULL,              ORAPARM_OUTPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Remove "PV_ID"
    OraDatabase.Parameters.Remove "OVERRIDE_WARNINGS"
    OraDatabase.Parameters.Remove "PROBLEM_STRING"
 End Sub
+'----------------------------------------------
+Sub RemovePackage ( nPvId, cOverrideWarnings, outProblemsString )
+    Dim ReturnCode
-%>
+    'Response.Write "<br>RemovePackage:" & nPvId & "<br>"
+    OraDatabase.Parameters.Add "PV_ID",       nPvId,                  ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "RTAG_ID",     DB_RTAG_ID,             ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "FORCE_REMOVE", cOverrideWarnings,     ORAPARM_INPUT, ORATYPE_NUMBER
+    OraDatabase.Parameters.Add "RETURN_CODE", NULL,                   ORAPARM_OUTPUT, ORATYPE_NUMBER
+    objEH.TryORA ( OraSession )
+    On Error Resume Next
-<%
+    OraDatabase.ExecuteSQL _
+    "BEGIN "&_
+    "   :RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_
+    "END; "
+    objEH.CatchORA ( OraSession )
+    ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value
+    If ( ReturnCode <> 0 ) Then
+       outProblemsString = "- Unexpected error"
+    End If
+    OraDatabase.Parameters.Remove "PV_ID"
+    OraDatabase.Parameters.Remove "RTAG_ID"
+    OraDatabase.Parameters.Remove "USER_ID"
+    OraDatabase.Parameters.Remove "FORCE_REMOVE"
+    OraDatabase.Parameters.Remove "RETURN_CODE"
+End Sub
+'----------------------------------------------
 Sub MovePackage(nPvId, newRtagId)
    OraDatabase.Parameters.Add "PV_ID",          nPvId,    ORAPARM_INPUT, ORATYPE_NUMBER
-   OraDatabase.Parameters.Add "CURRENT_RTAG_ID",    Request("rtag_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
+   OraDatabase.Parameters.Add "CURRENT_RTAG_ID",    DB_RTAG_ID,    ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "NEW_RTAG_ID",       newRtagId,    ORAPARM_INPUT, ORATYPE_NUMBER
    OraDatabase.Parameters.Add "USER_ID",          objAccessControl.UserId,    ORAPARM_INPUT, ORATYPE_NUMBER
    'Response.write nPvId &"-"& cOverrideWarnings &"-"& Request("btn")
    OraDatabase.Parameters.Remove "CURRENT_RTAG_ID"
    OraDatabase.Parameters.Remove "NEW_RTAG_ID"
    OraDatabase.Parameters.Remove "USER_ID"
 End Sub
-%>
-<%
-'--------------------------------------------------------------------------------------------------------------------------
-Sub GetFormDetails ( parProjId, ByRef outobjDetails )
-   Dim rsQry, query
-   OraDatabase.Parameters.Add "PROJ_ID",    parProjId,      ORAPARM_INPUT, ORATYPE_NUMBER
-   query = _
-   " SELECT prj.* "&_
-   "  FROM PROJECTS prj"&_
-   " WHERE prj.PROJ_ID = :PROJ_ID"
-   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
-   OraDatabase.Parameters.Remove "PROJ_ID"
-   If rsQry.RecordCount > 0 Then
-      outobjDetails.Item ("proj_id") = rsQry("proj_id")
-      outobjDetails.Item ("proj_name") = rsQry("proj_name")
-      'outobjDetails.Item ("description") = rsQry("description")
-      'outobjDetails.Item ("parent_rtag_id") = rsQry("parent_rtag_id")
-      'outobjDetails.Item ("config_spec_branch") = rsQry("config_spec_branch")
-      'outobjDetails.Item ("owner_email") = rsQry("owner_email")
-      'If rsQry("assoc_mass_ref") <> "" Then
-      'outobjDetails.Item ("massref_rtag_id") = rsQry("assoc_mass_ref")
-      'End If
-   Else
-      Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parProjId="& parProjId
-   End If
-   rsQry.Close
-   Set rsQry = Nothing
-End Sub
-'--------------------------------------------------------------------------------------------------------------------------
-%>
-<%
 '------------ RUN BEFORE PAGE RENDER ----------
-' --- Get Form details from DB ---
-'Call GetFormDetails ( Request("proj_id"), objFormCollector )
 ' --- Enter Form Validation Rule Changes here... ----
 '----------------------------------------------------
 ' --- RUN onPostBack ---
 If Request("action") <> "" Then
    Dim decision
    Dim problem : problem = false
+   Dim mode, pvid
    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 ( rfile & "?rtag_id="&Request("rtag_id") )
+      Call OpenInWindow ( rfile & "?rtag_id="&DB_RTAG_ID )
    ElseIf decision = 1 Then
+    '   Destroy or Remove-from-release
+    '   If the package is 'locked' then it will be removed from the release
+    '   Otherwise the package will be destroyed
       For Each PVS In aFullList
+          If PVS <> "" Then
+             mode = Mid(PVS,1,1)
+             pvid = Mid(PVS,2)
-         If PVS <> "" Then Call DestroyPackage(PVS, "N", ProblemsString)
+             If mode = "U" Then Call DestroyPackage(pvid, "N", ProblemsString)
+             If mode = "L" Then Call RemovePackage (pvid, "N", ProblemsString)
-         If ProblemsString <> "" Then
+             If ProblemsString <> "" Then
-            ProblemInfo.Add PVS, ProblemsString
+                ProblemInfo.Add pvid, ProblemsString
-            problem = true
+                problem = true
+             End If
          End If
       Next
    ElseIf decision = 2 Then
       For Each PVS In aFullList
+        If PVS <> "" Then
+            mode = Mid(PVS,1,1)
+            pvid = Mid(PVS,2)
-         If PVS <> "" Then Call MovePackage(PVS,Request("FRrtag_id"))
+            Call MovePackage(pvid,Request("FRrtag_id"))
+        End If
       Next
    End If
    If objEH.Finally AND NOT problem Then
-      Call OpenInWindow ( "_change_release_mode.asp?mode_code=" & parModeCode & "&rtag_id="&Request("rtag_id") )
+      Call OpenInWindow ( "_change_release_mode.asp?mode_code=" & parModeCode & "&rtag_id="&DB_RTAG_ID )
    End If
 End If
 '----------------------------------------------
                      <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>
+                        <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col" width="1%">Lck</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 = ""
-                     OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
+                     OraDatabase.Parameters.Add "RTAG_ID", DB_RTAG_ID, ORAPARM_INPUT, ORATYPE_NUMBER
                      Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("CheckWIPS.sql") , cint(0) )
                      OraDatabase.Parameters.Remove "RTAG_ID"
                      '--- Render rows ---
                      Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
+                        Dim vlink, pvidFlag
+                        pvid = CStr(rsQry("pv_id"))
+                        vlink = "dependencies.asp?rtag_id=" & DB_RTAG_ID & "&pv_id=" & pvid
                         'Add   the   pv_ids   to   the   Array
+                        pvidFlag = "U"
-                        pvIdList.Add   CStr(rsQry("pv_id")), rsQry("pkg_version")
+                        If rsQry("dlocked") = "Y" Then
+                            pvidFlag = "L"
+                        End If
+                        PVS = PVS + pvidFlag + pvid +  ","
                         ' -------- GROUP BY BASE VIEW  -----------------
                         If CStr(currState) <> CStr(rsQry("state")) Then
                         %>
                            <tr>
                               <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                         %>
                         <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>
+                           <td nowrap class="body_rowg"><a href=<%=vlink%>><%=rsQry("pkg_version")%></a></td>
+                           <td nowrap class="body_rowg">
+                           <%If pvidFlag = "L" Then
+                                Response.Write imgPkgLocked
+                            End If
+                           %>
+                           </td>
                         <%If ProblemInfo.Count > 0 Then%>
-                           <td nowrap class="body_rowg err_alert"><%=NewLine_To_BR(ProblemInfo.Item(CStr(rsQry("pv_id"))))%></td>
+                           <td nowrap class="body_rowg err_alert"><%=NewLine_To_BR(ProblemInfo.Item(pvid))%></td>
                         <%End If%>
                         </tr>
                         <%
                         rsQry.MoveNext
                            </tr>
                         <%End If
                      Loop
                      rsQry.Close()
                      Set rsQry = nothing
-                     pvIds = pvIdList.Keys
-                     For i = 0 to pvIdList.Count -1
-                        PVS   =   PVS   +   pvIds(i)   +   ","
-                     Next
-                     Set pvIds = Nothing
                      %>
                      <tr>
                         <td class="form_iname">&nbsp;</td>
                         <td>&nbsp;</td>
                         <td class="val_err"></td>
             </tr>
             <tr>
                <td background="images/bg_action_norm.gif" ></td>
                <td align="right" background="images/bg_action_norm.gif" >
                   <a class="body_col">Select Decision: </a>
-                  <select name="decision" id="decision" onChange="RequestDetails( this.value, '?proj_id=<%=Get_Proj_ID(Request("rtag_id"))%>&rtag_id=<%=Request("rtag_id")%>', FormName.FRrtag_id );" class="form_item">
+                  <select name="decision" id="decision" onChange="RequestDetails( this.value, '?proj_id=<%=DB_PROJ_ID%>&rtag_id=<%=DB_RTAG_ID%>', FormName.FRrtag_id );" class="form_item">
                      <option value='0' selected>--None--</option>
                      <option value='1' >Delete All</option>
                      <option value='2' >Move All</option>
                   </select>
                   <a class="body_col">Select Destination: </a>
                   <select name="FRrtag_id" id="FRrtag_id" class="form_item">
                   </select>
                   <%=objFormComponent.SubmitButton ( "OK", "class='form_btn' id='FormOk' disabled" )%>&nbsp;
-                  <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", rfile&"?rtag_id="&Request("rtag_id") )%>
+                  <%=objFormComponent.CancelButton ( "Cancel", "class='form_btn'", rfile&"?rtag_id="&DB_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%>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/web/form_check_closed_mode.asp – Rev 6693 → 6694