Subversion Repositories DevTools

Rev

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

Rev 5170 Rev 5171
Line 69... Line 69...
69 
'           sSyncRtags          - Not Used any more
 69 
'           sSyncRtags          - Not Used any more
70 
'           retNEWpv_id         - Return the PVID of the (replaced) package
 70 
'           retNEWpv_id         - Return the PVID of the (replaced) package
71 
'
 71 
'
72
72
73 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
 73 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
74 
   Dim cAlterReleaseWhileRestrictive, rsQry
 74 
   Dim cAlterReleaseWhileRestrictive
75 
   Dim Original_SSnewver
 - 
 
76 
   Dim newPkgVersion
 75 
   Dim newPkgVersion
77 
   Original_SSnewver = SSnewver
 - 
 
78 
 
 76 
 
79 
   On Error Resume Next
 77 
   On Error Resume Next
80 
   objEH.ErrorRedirect = TRUE
 78 
   objEH.ErrorRedirect = TRUE
81 
 
 79 
 
82 
   ' Manually built package
 80 
   ' Manually built package
Line 110... Line 108...
110 
   OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED,     ORAPARM_INPUT, ORATYPE_NUMBER
 108 
   OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED,     ORAPARM_INPUT, ORATYPE_NUMBER
111 
   OraDatabase.Parameters.Add "RETPV_ID",                  0,                             ORAPARM_OUTPUT,ORATYPE_NUMBER
 109 
   OraDatabase.Parameters.Add "RETPV_ID",                  0,                             ORAPARM_OUTPUT,ORATYPE_NUMBER
112 
 
 110 
 
113 
   objEH.TryORA ( OraSession )
 111 
   objEH.TryORA ( OraSession )
114 
 
 112 
 
115 
   ' The new package may be based on an existing package
 - 
 
116 
   '    Get the information on the existing package
 - 
 
117 
   Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_CONTENT WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID = "& NNorig_pv_id &"", cint(0))
 - 
 
118 
 
 - 
 
119 
   '  If the previous version exists and it is deprecated then ...
 113 
    ' Create a new version of the package (if it does not exist)
120 
   '    What is so special about a deprecated package. The '...', on the previous line,
- 
 
121 
   '    is not very useful
 - 
 
122 
   '
 - 
 
123 
   '  Not sure that we can even get here
 114 
    ' Check that we can update the release
124 
   '  Whatever '6' means - it is not for deprecated packages
 115 
    ' Replace package in the release
125 
   '
 116 
    '
126 
   If (NOT IsNull(rsQry("pkg_id"))) AND rsQry("pkg_state") = 6  Then
 - 
 
127 
 
 - 
 
128 
      Dim rsPv_id
 - 
 
129 
 
 - 
 
130 
      If (SSnewver) <> ""  Then
 - 
 
131 
 
 - 
 
132 
         Set rsPv_id = OraDatabase.DbCreateDynaset("SELECT * FROM PACKAGE_VERSIONS WHERE PKG_VERSION ='"& SSnewver &"' AND PKG_ID = "& rsQry("pkg_id") &"", cint(0))
 - 
 
133 
 
 - 
 
134 
         retNEWpv_id =  rsPv_id("pv_id")
 - 
 
135 
 
 - 
 
136 
         rsPv_id.Close()
 - 
 
137 
         Set rsPv_id = nothing
 - 
 
138 
      Else
 - 
 
139 
         retNEWpv_id = NNSetToPv_id
 - 
 
140 
      End If
 - 
 
141 
 
 - 
 
142 
      If NOT IsNull(retNewpv_id) Then
 - 
 
143 
         OraDatabase.ExecuteSQL _
 - 
 
144 
         "BEGIN "&_
 - 
 
145 
         " UPDATE RELEASE_CONTENT SET PV_ID ="& retNEWpv_id &" WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID ="& parOLDpv_id &"; "&_
 - 
 
146 
         "END;"
 - 
 
147 
      Else
 - 
 
148 
         OraDatabase.ExecuteSQL _
 117 
    OraDatabase.ExecuteSQL _
149 
         "BEGIN "&_
 118 
    "BEGIN "&_
150 
         " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
 119 
    " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
151 
         "                    :PKG_VERSION,"&_
 120 
                           " :PKG_VERSION,"&_
152 
         "                    :BUILD_TYPE,"&_
 121 
                           " :BUILD_TYPE,"&_
- 
 
 122 
                           " :CHANGE_TYPE,"&_
153 
         "                    :SET_TO_PV_ID,"&_
 123 
                           " :SET_TO_PV_ID,"&_
154 
         "                    :RTAG_ID,"&_
 124 
                           " :RTAG_ID,"&_
155 
         "                    :USER_ID,"&_
 125 
                           " :USER_ID,"&_
156 
         "                    :enumISSUES_STATE_IMPORTED,"&_
 126 
                           " :enumISSUES_STATE_IMPORTED,"&_
157 
         "                    :RETPV_ID ); "&_
 127 
                           " :RETPV_ID ); "&_
158 
         " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
 128 
    " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
159 
         " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
 129 
    " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
160 
         "END;"
 130 
    "END;"
161 
 
 131 
 
162 
         retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 - 
 
163 
 
 - 
 
164 
      End If
 - 
 
165 
   Else
 - 
 
166 
 
 - 
 
167 
      ' Create a new version of the package (if It does not exist)
 - 
 
168 
      ' Check that we can update the release
 - 
 
169 
      ' Replace package in the release
 - 
 
170 
      '
 - 
 
171 
      OraDatabase.ExecuteSQL _
 - 
 
172 
      "BEGIN "&_
 - 
 
173 
      " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
 - 
 
174 
                               " :PKG_VERSION,"&_
 - 
 
175 
                               " :BUILD_TYPE,"&_
 - 
 
176 
                               " :CHANGE_TYPE,"&_
 - 
 
177 
                               " :SET_TO_PV_ID,"&_
 - 
 
178 
                               " :RTAG_ID,"&_
 - 
 
179 
                               " :USER_ID,"&_
 - 
 
180 
                               " :enumISSUES_STATE_IMPORTED,"&_
 - 
 
181 
                               " :RETPV_ID ); "&_
 - 
 
182 
      " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
 - 
 
183 
      " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
 - 
 
184 
      "END;"
 - 
 
185 
 
 - 
 
186 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 132 
    retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
187 
 
 - 
 
188 
   End If
 - 
 
189 
 
 133 
 
190 
   objEH.CatchORA ( OraSession )
 134 
   objEH.CatchORA ( OraSession )
191 
   If objEH.LastOraFailed = FALSE Then
 135 
   If objEH.LastOraFailed = FALSE Then
192 
      Call UpdateChangeType (retNEWpv_id, parChangeType )
 136 
      Call UpdateChangeType (retNEWpv_id, parChangeType )
193 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
 137 
      Call UpdateReasonForVersion (retNEWpv_id, Request("FRreason"))
194 
   End If
 138 
   End If
195 
 
 139 
 
196 
   rsQry.Close()
 - 
 
197 
   Set rsQry = nothing
 - 
 
198 
 
 - 
 
199 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
 140 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
200 
   OraDatabase.Parameters.Remove "ALTER_RELEASE"
 141 
   OraDatabase.Parameters.Remove "ALTER_RELEASE"
201 
   OraDatabase.Parameters.Remove "PKG_VERSION"
 142 
   OraDatabase.Parameters.Remove "PKG_VERSION"
202 
   OraDatabase.Parameters.Remove "CHANGE_TYPE"
 143 
   OraDatabase.Parameters.Remove "CHANGE_TYPE"
203 
   OraDatabase.Parameters.Remove "BUILD_TYPE"
 144 
   OraDatabase.Parameters.Remove "BUILD_TYPE"