| Line 197... |
Line 197... |
| 197 |
Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
|
197 |
Sub CheckRequirementsForMakeRelease ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
|
| 198 |
Dim QueryString, rsQry
|
198 |
Dim QueryString, rsQry
|
| 199 |
QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id
|
199 |
QueryString = "SELECT pv.IS_PATCH FROM PACKAGE_VERSIONS pv WHERE pv.PV_ID = "& nPv_id
|
| 200 |
Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
|
200 |
Set rsQry = OraDatabase.DbCreateDynaset( QueryString, cint(0))
|
| 201 |
|
201 |
|
| 202 |
Dim vcstag
|
- |
|
| 203 |
|
- |
|
| 204 |
vcstag = get_vcs_tag( nPv_id )
|
- |
|
| 205 |
|
- |
|
| 206 |
If IsNull(rsQry("is_patch")) Then
|
202 |
If IsNull(rsQry("is_patch")) Then
|
| 207 |
' For Package
|
203 |
' For Package
|
| 208 |
If vcstag = enum_VCS_UNCONTROLLED_TAG Then
|
- |
|
| 209 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_UC.sql" ) )
|
204 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official.sql" ) )
|
| 210 |
ElseIf vcstag = enum_VCS_CLEARCASE_TAG OR vcstag = enum_VCS_CVS_TAG Then
|
- |
|
| 211 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_CC.sql" ) )
|
- |
|
| 212 |
ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
|
- |
|
| 213 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_SVN.sql" ) )
|
- |
|
| 214 |
End If
|
- |
|
| 215 |
Else
|
205 |
Else
|
| 216 |
' For Patch
|
206 |
' For Patch
|
| 217 |
If vcstag = enum_VCS_UNCONTROLLED_TAG Then
|
- |
|
| 218 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_UC.sql" ) )
|
207 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch.sql" ) )
|
| 219 |
ElseIf vcstag = enum_VCS_CLEARCASE_TAG OR vcstag = enum_VCS_CVS_TAG Then
|
- |
|
| 220 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_CC.sql" ) )
|
- |
|
| 221 |
ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
|
- |
|
| 222 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_SVN.sql" ) )
|
- |
|
| 223 |
End If
|
- |
|
| 224 |
End If
|
208 |
End If
|
| 225 |
|
209 |
|
| 226 |
rsQry.Close()
|
210 |
rsQry.Close()
|
| 227 |
Set rsQry = nothing
|
211 |
Set rsQry = nothing
|
| 228 |
|
212 |
|
| 229 |
End Sub
|
213 |
End Sub
|
| 230 |
'-----------------------------------------------------------------------------------------------------------------------------
|
214 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 231 |
Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
|
215 |
Sub CheckRequirementsForMakePending ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
|
| 232 |
Dim vcstag
|
- |
|
| 233 |
|
- |
|
| 234 |
vcstag = get_vcs_tag( nPv_id )
|
- |
|
| 235 |
If vcstag = enum_VCS_UNCONTROLLED_TAG Then
|
- |
|
| 236 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_UC.sql" ) )
|
- |
|
| 237 |
ElseIf vcstag = enum_VCS_CLEARCASE_TAG OR vcstag = enum_VCS_CVS_TAG Then
|
- |
|
| 238 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_CC.sql" ) )
|
216 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending.sql" ) )
|
| 239 |
ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
|
- |
|
| 240 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_SVN.sql" ) )
|
- |
|
| 241 |
End If
|
- |
|
| 242 |
End Sub
|
217 |
End Sub
|
| 243 |
'-----------------------------------------------------------------------------------------------------------------------------
|
218 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 244 |
Sub CheckRequirementsForMakeApproved ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
|
219 |
Sub CheckRequirementsForMakeApproved ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters )
|
| 245 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_approved.sql" ) )
|
220 |
Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_approved.sql" ) )
|
| 246 |
End Sub
|
221 |
End Sub
|