| Line 407... |
Line 407... |
| 407 |
|
407 |
|
| 408 |
If Record_Count > 0 And parBuildType = "M" Then
|
408 |
If Record_Count > 0 And parBuildType = "M" Then
|
| 409 |
Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
|
409 |
Call RaiseMsg ( enum_MSG_PACKAGE_VERSION_EXISTS&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
|
| 410 |
Else
|
410 |
Else
|
| 411 |
Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, bImode, NEWpv_id )
|
411 |
Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, bImode, NEWpv_id )
|
| 412 |
|
- |
|
| 413 |
If not bImode Then
|
412 |
If not bImode Then
|
| - |
|
413 |
'
|
| 414 |
' Direct insert ( not pending )
|
414 |
' Direct insert ( not pending )
|
| 415 |
' Report change to Release archive server so that it can be synced
|
415 |
' Report change to Release archive server so that it can be synced
|
| - |
|
416 |
' But only if the package has been added to the release and not simply created as a WIP
|
| - |
|
417 |
'
|
| - |
|
418 |
' Could do this better, but then this entire page would need to be split into
|
| - |
|
419 |
' One for a New package-versions
|
| - |
|
420 |
' One for Replacing a package in a release
|
| - |
|
421 |
' One for adding a package to a release
|
| - |
|
422 |
'
|
| - |
|
423 |
Dim newDlockState
|
| - |
|
424 |
Query_string = " SELECT pv.dlocked"&_
|
| - |
|
425 |
" FROM package_versions pv"&_
|
| - |
|
426 |
" WHERE pv.pv_id = "& NEWpv_id
|
| - |
|
427 |
|
| - |
|
428 |
Set rsQry = OraDatabase.DbCreateDynaset(Query_String, cint(0))
|
| - |
|
429 |
newDlockState = rsQry("dlocked")
|
| - |
|
430 |
Record_Count = rsQry.RecordCount
|
| - |
|
431 |
rsQry.Close()
|
| - |
|
432 |
Set rsQry = Nothing
|
| - |
|
433 |
If newDlockState = "Y" Then
|
| 416 |
Dim objRC: Set objRC = New ReleaseChanged
|
434 |
Dim objRC: Set objRC = New ReleaseChanged
|
| 417 |
Call objRC.Run_ReleaseChanged(parRtag_id,NEWpv_id,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
|
435 |
Call objRC.Run_ReleaseChanged(parRtag_id,NEWpv_id,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
|
| 418 |
Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
|
436 |
Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
|
| 419 |
Set objRC = Nothing
|
437 |
Set objRC = Nothing
|
| - |
|
438 |
End If
|
| 420 |
End If
|
439 |
End If
|
| 421 |
|
440 |
|
| 422 |
If objEH.Finally Then
|
441 |
If objEH.Finally Then
|
| 423 |
Call Destroy_All_Objects
|
442 |
Call Destroy_All_Objects
|
| 424 |
Response.Redirect("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
|
443 |
Response.Redirect("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
|