Subversion Repositories DevTools

ElseIf (parOpr = "getSdkDetails") Then

    getSdkDetails

ElseIf (parOpr = "deleteSdkVersion") Then

    deleteSdkVersion

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

' Function:    getSdkDetails

' Description: Get Details for a specific SDK Family

'              Hash of:

'               Lots of stuff

'

' Options:      sdk_id  - SDK to get

Sub getSdkDetails

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdk_id : sdk_id = QStrPar("sdk_id")

    OraDatabase.Parameters.Add "SDK_ID",      sdk_id, ORAPARM_INPUT, ORATYPE_NUMBER

    SqlQry = "SELECT * " &_

             "FROM SDK_NAMES " &_

             "WHERE SDK_ID = :SDK_ID"

    ' Perform Query

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

on error goto 0

    ' Process Results

    Dim resultSet : Set resultSet = oJSON.Collection()

    If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

        Dim ii

        for ii = 0 to rsQry.Fields.Count - 1

            resultSet (rsQry.FieldName(ii)) = rsQry.Fields(ii)

        Next

        Set oJSON.data("aaData") = resultSet

        result = 0

    End If

    result = 0

    rsQry.Close

    Set rsQry = Nothing

    OraDatabase.Parameters.Remove "SDK_ID"

End Sub

' Function:     deleteSdkVersion

' Description:  Delete the specified Sdk Version

'               Will delete SDK_NAME entry if this is the last one

'                   sdktag_id   - Version to delete

'

'   SHOULD have checks to ensure that its not in use

Sub deleteSdkVersion

    Dim sdkTagId : sdkTagId = QStrPar("sdktagId")

    '

    '   Setup for the database access

    '

    OraDatabase.Parameters.Add "SDKTAG_ID", sdkTagId, ORAPARM_INPUT, ORATYPE_NUMBER

     '  Test to see if the version is in use - simply to provide a Nice Error message

    SqlQry = "SELECT * FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_ID"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    'On Error Resume Next

    Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

    objEH.CatchORA ( OraSession )

    On Error GoTo 0

    If rsQry.RecordCount = 0 Then

        result = -3

        oJSON.data("error") = -1

        oJSON.data("emsgSummary") = "SDK Verion does not exist"

        oJSON.data("emsgDetails") = oJSON.data("emsgSummary")

    Else

        ' Determine the number of times this SDK_TAG is in use

        ' Determine the sdk_tag

        SqlQry = "SELECT st.SDK_ID, st.SDKTAG_ID FROM SDK_TAGS st WHERE SDK_ID IN ( SELECT SDK_ID FROM SDK_TAGS WHERE SDKTAG_ID=:SDKTAG_ID)"

        Dim sdkId, sdkTagCount

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        On Error Resume Next

        Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )

        If Err.Number = 0 Then

            sdkTagCount = rsQry.RecordCount

            oJSON.data("sdkTagCount") = sdkTagCount

            If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then

                sdkId = rsQry.Fields(0)

                oJSON.data("sdkId") = sdkId

            End If

            ' Delete content

            SqlQry = "DELETE FROM SDK_CONTENT WHERE SDKTAG_ID = :SDKTAG_ID"

            objEH.ErrorRedirect = FALSE

            objEH.TryORA ( OraSession )

            On Error Resume Next

            OraDatabase.ExecuteSQL SqlQry

            ' Delete tag

            If Err.Number = 0 Then

                SqlQry = "DELETE FROM SDK_TAGS WHERE SDKTAG_ID = :SDKTAG_ID"

                OraDatabase.ExecuteSQL SqlQry

            End If

            If Err.Number = 0 Then

                ' Possibly delete the Sdk Name entry

                If sdkTagCount = 1 Then

                    SqlQry = "DELETE FROM SDK_NAMES WHERE SDK_ID = :SDK_ID"

                    OraDatabase.Parameters.Add "SDK_ID", sdkId, ORAPARM_INPUT, ORATYPE_NUMBER

                    OraDatabase.ExecuteSQL SqlQry

                    OraDatabase.Parameters.Remove "SDK_ID"   

                    oJSON.data("SdkNameRemoved") = sdkId

                End If

            End If

            objEH.CatchORA ( OraSession )

            On Error GoTo 0

            result = 0

        End If

    End If

    OraDatabase.Parameters.Remove "SDKTAG_ID"   

End Sub

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