| Line 411... |
Line 411... |
| 411 |
If ( NNrtag_id <> "") AND (NNpv_id <> "") Then
|
411 |
If ( NNrtag_id <> "") AND (NNpv_id <> "") Then
|
| 412 |
|
412 |
|
| 413 |
'-- Get Package details
|
413 |
'-- Get Package details
|
| 414 |
Call Get_Pkg_Info ( NNpv_id, NNrtag_id )
|
414 |
Call Get_Pkg_Info ( NNpv_id, NNrtag_id )
|
| 415 |
|
415 |
|
| - |
|
416 |
' Only process the package if it is still pending approval
|
| - |
|
417 |
' If the package has already been released, then we don't want to mark it as ready to build- again
|
| - |
|
418 |
If pkgInfoHash.Item("dlocked") = "P" Then
|
| - |
|
419 |
|
| 416 |
If pkgInfoHash.Item("build_type") = "A" Then
|
420 |
If pkgInfoHash.Item("build_type") = "A" Then
|
| 417 |
'Check If There Already Exists A WIP Instance Of The Package In The Release
|
421 |
'Check If There Already Exists A WIP Instance Of The Package In The Release
|
| 418 |
If Check_Package_WIP_Already_Exists(NNrtag_id, NNpv_id) > 0 Then
|
422 |
If Check_Package_WIP_Already_Exists(NNrtag_id, NNpv_id) > 0 Then
|
| 419 |
RaiseWIPExists = TRUE
|
423 |
RaiseWIPExists = TRUE
|
| 420 |
End If
|
424 |
End If
|
| 421 |
|
425 |
|
| 422 |
If PRIVATE_Is_Allowed_To_Approve_AutoBuild(NNrtag_id) Then
|
426 |
If PRIVATE_Is_Allowed_To_Approve_AutoBuild(NNrtag_id) Then
|
| 423 |
'-- Approve Automatic-build package
|
427 |
'-- Approve Automatic-build package
|
| 424 |
Call CheckRequirementsForMakeApproved ( NNpv_id, NNrtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
428 |
Call CheckRequirementsForMakeApproved ( NNpv_id, NNrtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
| 425 |
If IsNull(retERRmsg) Then
|
429 |
If IsNull(retERRmsg) Then
|
| 426 |
Dim EmailBody
|
- |
|
| 427 |
|
- |
|
| 428 |
If PRIVATE_MakeApproved (NNrtag_id, NNpv_id) = TRUE Then
|
430 |
If PRIVATE_MakeApproved (NNrtag_id, NNpv_id) = TRUE Then
|
| 429 |
|
431 |
|
| 430 |
If ( RaiseWIPExists = TRUE ) AND ( isBulk = FALSE ) Then
|
432 |
If ( RaiseWIPExists = TRUE ) AND ( isBulk = FALSE ) Then
|
| 431 |
Call RaiseMsg ( enum_MSG_PACKAGE_WIP_EXISTS&"?rtag_id="& NNrtag_id & "&pv_id="& NNpv_id & "", NNpv_id )
|
433 |
Call RaiseMsg ( enum_MSG_PACKAGE_WIP_EXISTS&"?rtag_id="& NNrtag_id & "&pv_id="& NNpv_id & "", NNpv_id )
|
| 432 |
' RaiseMsg redirects loaded web page, so no return
|
434 |
' RaiseMsg redirects loaded web page, so no return
|
| 433 |
' Deal with BulkMakeRelease elsewhere
|
435 |
' Deal with BulkMakeRelease elsewhere
|
| - |
|
436 |
End If
|
| - |
|
437 |
' indicate success
|
| - |
|
438 |
PUBLIC_ApproveRelease = TRUE
|
| 434 |
End If
|
439 |
End If
|
| 435 |
' indicate success
|
- |
|
| 436 |
PUBLIC_ApproveRelease = TRUE
|
- |
|
| 437 |
End If
|
- |
|
| 438 |
Else
|
440 |
Else
|
| 439 |
Call RaiseMsg ( Eval(retERRmsg), NNrtag_id & "|" & NNpv_id & "|" & retParameters & "|" & "N" )
|
441 |
Call RaiseMsg ( Eval(retERRmsg), NNrtag_id & "|" & NNpv_id & "|" & retParameters & "|" & "N" )
|
| 440 |
End If
|
442 |
End If
|
| 441 |
Else
|
443 |
Else
|
| 442 |
' Indicate an auto-build permission problem was detected in the global variable.
|
444 |
' Indicate an auto-build permission problem was detected in the global variable.
|
| 443 |
' This is only used within the context of a bulk release.
|
445 |
' This is only used within the context of a bulk release.
|
| 444 |
AutoBuildPermissionDenied = TRUE
|
446 |
AutoBuildPermissionDenied = TRUE
|
| 445 |
End If
|
447 |
End If
|
| 446 |
Else
|
448 |
Else
|
| 447 |
If PRIVATE_Is_Allowed_To_Approve_ManualBuild(NNrtag_id) Then
|
449 |
If PRIVATE_Is_Allowed_To_Approve_ManualBuild(NNrtag_id) Then
|
| 448 |
'-- Approve a Manual Build Release
|
450 |
'-- Approve a Manual Build Release
|
| 449 |
Call CheckRequirementsForMakeRelease ( NNpv_id, NNrtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
451 |
Call CheckRequirementsForMakeRelease ( NNpv_id, NNrtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
|
| 450 |
If IsNull(retERRmsg) Then
|
452 |
If IsNull(retERRmsg) Then
|
| 451 |
|
453 |
|
| 452 |
If PUBLIC_MakeRelease ( NNrtag_id, NNpv_id ) = TRUE Then
|
454 |
If PUBLIC_MakeRelease ( NNrtag_id, NNpv_id ) = TRUE Then
|
| 453 |
' If all went well, initiate the generation of release notes, and email any interested parties
|
455 |
' If all went well, initiate the generation of release notes, and email any interested parties
|
| 454 |
If PUBLIC_Run_onMakeOfficial ( NNrtag_id, NNpv_id ) = TRUE Then
|
456 |
If PUBLIC_Run_onMakeOfficial ( NNrtag_id, NNpv_id ) = TRUE Then
|
| 455 |
Call PUBLIC_NotifyInterestManualBuild( NNrtag_id, NNpv_id )
|
457 |
Call PUBLIC_NotifyInterestManualBuild( NNrtag_id, NNpv_id )
|
| 456 |
|
458 |
|
| 457 |
' indicate success
|
459 |
' indicate success
|
| 458 |
PUBLIC_ApproveRelease = TRUE
|
460 |
PUBLIC_ApproveRelease = TRUE
|
| 459 |
End If
|
461 |
End If
|
| 460 |
End If
|
462 |
End If
|
| 461 |
Else
|
463 |
Else
|
| 462 |
Call RaiseMsg ( Eval(retERRmsg), NNrtag_id & "|" & NNpv_id & "|" & retParameters & "|" & "N" )
|
464 |
Call RaiseMsg ( Eval(retERRmsg), NNrtag_id & "|" & NNpv_id & "|" & retParameters & "|" & "N" )
|
| 463 |
End If
|
465 |
End If
|
| 464 |
Else
|
466 |
Else
|
| 465 |
' Indicate a manual-build permission problem was detected in the global variable
|
467 |
' Indicate a manual-build permission problem was detected in the global variable
|
| 466 |
' This is only used within the context of a bulk release.
|
468 |
' This is only used within the context of a bulk release.
|
| 467 |
ManualBuildPermissionDenied = TRUE
|
469 |
ManualBuildPermissionDenied = TRUE
|
| - |
|
470 |
End If
|
| 468 |
End If
|
471 |
End If
|
| - |
|
472 |
|
| - |
|
473 |
Else
|
| - |
|
474 |
' Package not in a state to be approved for building
|
| - |
|
475 |
'
|
| - |
|
476 |
PUBLIC_ApproveRelease = TRUE
|
| 469 |
End If
|
477 |
End If
|
| 470 |
End If
|
478 |
End If
|
| 471 |
End Function
|
479 |
End Function
|
| 472 |
'-----------------------------------------------------------------------------------------------------------------------------
|
480 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 473 |
|
481 |
|
| 474 |
|
482 |
|