| Line 525... |
Line 525... |
| 525 |
FRpeggedYES = ""
|
525 |
FRpeggedYES = ""
|
| 526 |
FRpeggedNO = ""
|
526 |
FRpeggedNO = ""
|
| 527 |
FRpegDisabled = "disabled='disabled'"
|
527 |
FRpegDisabled = "disabled='disabled'"
|
| 528 |
|
528 |
|
| 529 |
' Allow pegging/un-pegging to occur for locked/released versions only, and by users who have the appropriate permission
|
529 |
' Allow pegging/un-pegging to occur for locked/released versions only, and by users who have the appropriate permission
|
| 530 |
If (objAccessControl.IsVisible( "PegPackageVersions" )) AND isDLocked = "Y" Then
|
530 |
If (canShowControlInProject( "PegPackageVersions" )) AND isDLocked = "Y" Then
|
| 531 |
FRpegDisabled = ""
|
531 |
FRpegDisabled = ""
|
| 532 |
End If
|
532 |
End If
|
| 533 |
|
533 |
|
| 534 |
Dim rsQryPegged, peggedFlag
|
534 |
Dim rsQryPegged, peggedFlag
|
| 535 |
Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM PEGGED_VERSIONS WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|
535 |
Set rsQryPegged = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM PEGGED_VERSIONS WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|
| Line 569... |
Line 569... |
| 569 |
FRadvripYES = ""
|
569 |
FRadvripYES = ""
|
| 570 |
FRadvripNO = ""
|
570 |
FRadvripNO = ""
|
| 571 |
FRadvripDisabled = "disabled='disabled'"
|
571 |
FRadvripDisabled = "disabled='disabled'"
|
| 572 |
|
572 |
|
| 573 |
' Allow setting of advisory ripple to occur only by users who have the appropriate permission
|
573 |
' Allow setting of advisory ripple to occur only by users who have the appropriate permission
|
| 574 |
If (objAccessControl.IsVisible( "AdvRipPackageVersions" )) AND isDLocked = "Y" Then
|
574 |
If (canShowControlInProject( "AdvRipPackageVersions" )) AND isDLocked = "Y" Then
|
| 575 |
FRadvripDisabled = ""
|
575 |
FRadvripDisabled = ""
|
| 576 |
End If
|
576 |
End If
|
| 577 |
|
577 |
|
| 578 |
Dim rsQryAdvRip, advRipFlag
|
578 |
Dim rsQryAdvRip, advRipFlag
|
| 579 |
Set rsQryAdvRip = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM ADVISORY_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|
579 |
Set rsQryAdvRip = OraDatabase.DbCreateDynaset( "SELECT COUNT(*) as record_count FROM ADVISORY_RIPPLE WHERE RTAG_ID ="& parRtag_id &"AND PV_ID ="& parPv_id, cint(0))
|