Subversion Repositories DevTools

'--------------------------------------------------------------------------------------------------------------------------

'   Data structure to assist in the Release Mode Transition Check

'   Tuples (FromCondition, ToCondition)  '-' == Always

'   Order matches ReleaseModeAccessCheck

'

Dim RMTD_Data

RMTD_Data = Array(Array("-"                        ,"-"), _

                  Array("ChangeModeFromRestrictive","-"), _

                  Array("ChangeModeFromRestrictive","-"), _

                  Array("ChangeModeFromClosed"     ,"ChangeModeToClosed"), _

                  Array("ChangeModeFromClosed"     ,"ChangeModeToPreserved"), _

                  Array("ChangeModeFromArchived"   ,"ChangeModeToArchived") _

                  )

'-------------------------------------------------

' Function: ReleaseMode2Index    

' Description: Convert a enumDB_RELEASE_IN_*** into an index into the above array

'

Function ReleaseMode2Index( eReleaseMode )

    If eReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then

        ReleaseMode2Index = 0

    ElseIf eReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then

        ReleaseMode2Index = 1

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then

        ReleaseMode2Index = 2

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then

        ReleaseMode2Index = 3

    ElseIf eReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then

        ReleaseMode2Index = 4

    ElseIf eReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then

        ReleaseMode2Index = 5

    Else

        ReleaseMode2Index = -1

    End If

End Function

'-------------------------------------------------

' Function:     ReleaseModeAccessCheck    

' Description:  Determine if the user can change the Release Mode

'               from - Start at this Release Mode

'               to   - Can the user transition to this mode

' Returns:      True - yes they can

'

Function ReleaseModeAccessCheck( from, toMode )

    Dim fromIndex : fromIndex = ReleaseMode2Index(from)

    Dim toIndex   : toIndex = ReleaseMode2Index(toMode)

    ReleaseModeAccessCheck = False

    ' Can't Change to same mode

    If from = toMode Then

        Exit Function

    End If

    On Error Resume Next

    Dim fromAccess : fromAccess = ""

    Dim toAccess   : toAccess = ""

    ' Get access type from table

    '   ""      - No access (internal error)

    '   "-"     - All Access allowed (if user is logged in )

    '   Else    - Name of a canActionControlInProject

    fromAccess = RMTD_Data(fromIndex)(0)

    toAccess = RMTD_Data(toIndex)(1)

    ' Check From Condition

    If fromAccess = "-" Then

        ReleaseModeAccessCheck = canActionInProject()

    ElseIf fromAccess <> "" Then

        ReleaseModeAccessCheck = canActionControlInProject(fromAccess)

    End If

    If NOT ReleaseModeAccessCheck  Then

        Exit Function

    End If

    ' Check to Condition

    If toAccess = "-" Then

        ReleaseModeAccessCheck = canActionInProject()

    ElseIf toAccess <> "" Then 

        ReleaseModeAccessCheck = canActionControlInProject(toAccess)

    End If

End Function

'-------------------------------------------------

' Function:    releaseIsClosed

' Description: Determine if a release can be modified at all

' Returns:     True: Release cannot be modified

'                    ie: it is NOT in a state that allows modification

'

Function releaseIsClosed(eReleaseMode)

    If eReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then

        releaseIsClosed = False

    ElseIf eReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then

        releaseIsClosed = False

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then

        releaseIsClosed = False

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then

        releaseIsClosed = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then

        releaseIsClosed = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then

        releaseIsClosed = True

    Else

        releaseIsClosed = True

    End If

End Function

'-------------------------------------------------

' Function:    releaseIsWritable

' Description: Determine if a release can be modified

' Returns:     True: Release can be modified

'                    ie: it is in a state that allows modification

'

Function releaseIsWritable(eReleaseMode)

    If eReleaseMode = enumDB_RELEASE_IN_OPEN_MODE AND canActionInProject() Then

        releaseIsWritable = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE AND canActionControlInProject("AlterReleaseContentsInRestrictiveMode") Then

        releaseIsWritable = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND canActionControlInProject("AlterReleaseContentsInRestrictiveMode")Then

        releaseIsWritable = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then

        releaseIsWritable = False

    ElseIf eReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then

        releaseIsWritable = False

    ElseIf eReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then

        releaseIsWritable = False

    Else

        releaseIsWritable = False

    End If

End Function

'-------------------------------------------------

' Function:    releaseIsMergable

' Description: Determine if the user can 'Merge' into the release

' Returns:     True: Release can be modified

'                    ie: it is in a state that allows modification

'

Function releaseIsMergable(eReleaseMode)

    If eReleaseMode = enumDB_RELEASE_IN_OPEN_MODE AND canActionControlInProject("MergeRelease") Then

        releaseIsMergable = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE AND canActionControlInProject("MergeRelease")  Then

        releaseIsMergable = True

    ElseIf eReleaseMode = enumDB_RELEASE_IN_CCB_MODE AND canActionControlInProject("MergeReleaseForCCB") Then

        releaseIsMergable = True

    Else

        releaseIsMergable = False

    End If

End Function