Subversion Repositories DevTools

Rev

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

Rev 5171 Rev 5173
Line 38... Line 38...
38 
Dim parFRpkgName
 38 
Dim parFRpkgName
39 
Dim parChangeType
 39 
Dim parChangeType
40 
Dim parBase_view_id
 40 
Dim parBase_view_id
41 
Dim parPersonal_view_id
 41 
Dim parPersonal_view_id
42 
Dim parBuildType
 42 
Dim parBuildType
- 
 
 43 
Dim bImode
43 
Dim newPkgPv_id
 44 
Dim newPkgPv_id
44 
Dim errMessage
 45 
Dim errMessage
45 
 
 46 
 
46 
'------------ Constants Declaration -----------
 47 
'------------ Constants Declaration -----------
47 
'------------ Variable Init -------------------
 48 
'------------ Variable Init -------------------
Line 54... Line 55...
54 
parFRpkgName = Request("FRpkgName")
 55 
parFRpkgName = Request("FRpkgName")
55 
parChangeType = Request("change_type")
 56 
parChangeType = Request("change_type")
56 
parBase_view_id = Request("base_view_id")
 57 
parBase_view_id = Request("base_view_id")
57 
parPersonal_view_id = Request("personal_view_id")
 58 
parPersonal_view_id = Request("personal_view_id")
58 
parBuildType = Request("build_type")
 59 
parBuildType = Request("build_type")
- 
 
 60 
bImode = (Request("iMode") = "pending")
59 
 
 61 
 
60 
'----------------------------------------------
 62 
'----------------------------------------------
61 
%>
 63 
%>
62 
<%
 64 
<%
63 
'----------------------------------------------
 65 
'----------------------------------------------
64 
'   Appears to be a 'Replace Version'
 66 
'   Appears to be a 'Replace Version'
65 
'   Args:   SSnewver            - New Version String (may be empty)
 67 
'   Args:   SSnewver            - New Version String (may be empty)
66 
'           NNorig_pv_id        - original PVID
 68 
'           NNorig_pv_id        - original PVID
67 
'           NNSetToPv_id        - New PVID
 69 
'           NNSetToPv_id        - New PVID
68 
'           NNrtag_id           - Release Identifier
 70 
'           NNrtag_id           - Release Identifier
69 
'           sSyncRtags          - Not Used any more
 71 
'           bImode              - True: Insert into pending
70 
'           retNEWpv_id         - Return the PVID of the (replaced) package
 72 
'           retNEWpv_id         - Return the PVID of the (replaced) package
71 
'
 73 
'
72
74
73 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
 75 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, bImode, retNEWpv_id )
74 
   Dim cAlterReleaseWhileRestrictive
 76 
   Dim cAlterReleaseWhileRestrictive
75 
   Dim newPkgVersion
 77 
   Dim newPkgVersion
76 
 
 78 
 
77 
   On Error Resume Next
 79 
   On Error Resume Next
78 
   objEH.ErrorRedirect = TRUE
 80 
   objEH.ErrorRedirect = TRUE
Line 112... Line 114...
112 
 
 114 
 
113 
    ' Create a new version of the package (if it does not exist)
 115 
    ' Create a new version of the package (if it does not exist)
114 
    ' Check that we can update the release
 116 
    ' Check that we can update the release
115 
    ' Replace package in the release
 117 
    ' Replace package in the release
116 
    '
 118 
    '
- 
 
 119 
    if bImode Then
117 
    OraDatabase.ExecuteSQL _
 120 
        OraDatabase.ExecuteSQL _
- 
 
 121 
        "BEGIN "&_
- 
 
 122 
        " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
- 
 
 123 
                               " :PKG_VERSION,"&_
- 
 
 124 
                               " :BUILD_TYPE,"&_
- 
 
 125 
                               " :CHANGE_TYPE,"&_
- 
 
 126 
                               " :SET_TO_PV_ID,"&_
- 
 
 127 
                               " :RTAG_ID,"&_
- 
 
 128 
                               " :USER_ID,"&_
- 
 
 129 
                               " :enumISSUES_STATE_IMPORTED,"&_
- 
 
 130 
                               " :RETPV_ID ); "&_
- 
 
 131 
        " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
- 
 
 132 
        " PK_PLANNED.MERGE_PACKAGE (:RETPV_ID, PK_ENVIRONMENT.GET_VIEW_LOCATION (:ORIG_PV_ID, :RTAG_ID), :RTAG_ID, :USER_ID, 'A'); "&_
- 
 
 133 
        "END;"
- 
 
 134 
    Else
- 
 
 135 
        OraDatabase.ExecuteSQL _
118 
    "BEGIN "&_
 136 
        "BEGIN "&_
119 
    " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
 137 
        " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
120 
                           " :PKG_VERSION,"&_
 138 
                               " :PKG_VERSION,"&_
121 
                           " :BUILD_TYPE,"&_
 139 
                               " :BUILD_TYPE,"&_
122 
                           " :CHANGE_TYPE,"&_
 140 
                               " :CHANGE_TYPE,"&_
123 
                           " :SET_TO_PV_ID,"&_
 141 
                               " :SET_TO_PV_ID,"&_
124 
                           " :RTAG_ID,"&_
 142 
                               " :RTAG_ID,"&_
125 
                           " :USER_ID,"&_
 143 
                               " :USER_ID,"&_
126 
                           " :enumISSUES_STATE_IMPORTED,"&_
 144 
                               " :enumISSUES_STATE_IMPORTED,"&_
127 
                           " :RETPV_ID ); "&_
 145 
                               " :RETPV_ID ); "&_
128 
    " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
 146 
        " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
129 
    " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
 147 
        " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
130 
    "END;"
 148 
        "END;"
- 
 
 149 
    End If
131 
 
 150 
 
132 
    retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 151 
    retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
133 
 
 152 
 
134 
   objEH.CatchORA ( OraSession )
 153 
   objEH.CatchORA ( OraSession )
135 
   If objEH.LastOraFailed = FALSE Then
 154 
   If objEH.LastOraFailed = FALSE and not bImode Then
136 
      Call UpdateChangeType (retNEWpv_id, parChangeType )
 155 
      Call UpdateChangeType (retNEWpv_id, parChangeType )
137 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
 156 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
138 
   End If
 157 
   End If
139 
 
 158 
 
140 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
 159 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
Line 379... Line 398...
379 
         End If
 398 
         End If
380 
 
 399 
 
381 
         If Record_Count > 0 And parBuildType = "M" Then
 400 
         If Record_Count > 0 And parBuildType = "M" Then
382 
            Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
 401 
            Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
383 
         Else
 402 
         Else
384 
            Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, parSync_rtags, NEWpv_id )
 403 
            Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, bImode, NEWpv_id )
385 
 
 404 
 
- 
 
 405 
            If not bImode Then
- 
 
 406 
                ' Direct insert ( not pending )
386 
            ' Report change to Release archive server so that it can be synced
 407 
                ' Report change to Release archive server so that it can be synced
387 
            Dim objRC: Set objRC = New ReleaseChanged
 408 
                Dim objRC: Set objRC = New ReleaseChanged
388 
            Call objRC.Run_ReleaseChanged(parRtag_id,NEWpv_id,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
 409 
                Call objRC.Run_ReleaseChanged(parRtag_id,NEWpv_id,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
389 
            Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
 410 
                Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
390 
            Set objRC = Nothing
 411 
                Set objRC = Nothing
- 
 
 412 
            End If
391 
 
 413 
 
392 
            If objEH.Finally Then
 414 
            If objEH.Finally Then
393 
               Response.Redirect("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
 415 
               Response.Redirect("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
394 
            End If
 416 
            End If
395 
         End If
 417 
         End If