| Line 442... |
Line 442... |
| 442 |
Else
|
442 |
Else
|
| 443 |
Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, parSync_rtags, NEWpv_id )
|
443 |
Call New_Version ( parFRnewver, parOLDpv_id, parSetToPv_id, parRtag_id, parSync_rtags, NEWpv_id )
|
| 444 |
|
444 |
|
| 445 |
' Report change to Release archive server so that it can be synced
|
445 |
' Report change to Release archive server so that it can be synced
|
| 446 |
Dim objRC: Set objRC = New ReleaseChanged
|
446 |
Dim objRC: Set objRC = New ReleaseChanged
|
| 447 |
Call objRC.Run_ReleaseChanged(parRtag_id,parSetToPv_id,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
|
447 |
Call objRC.Run_ReleaseChanged(parRtag_id,NEWpv_id,enumRELEASE_CHANGE_MODE_PKG_ADDED, true)
|
| 448 |
Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
|
448 |
Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
|
| 449 |
Set objRC = Nothing
|
449 |
Set objRC = Nothing
|
| 450 |
|
450 |
|
| 451 |
If objEH.Finally Then
|
451 |
If objEH.Finally Then
|
| 452 |
Response.Redirect("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
|
452 |
Response.Redirect("dependencies.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
|