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