Subversion Repositories DevTools

ElseIf (parOpr = "updateSdkVersionDetails") Then

    updateSdkVersionDetails

' Function:    updateSdkVersionDetails

' Description: Update specific parts of the SDK Version Meta Data

'

' Options:      sdktag_id       - SDK Version to update

'               sdkTagName     -

'               sdkTagComment  -

Sub updateSdkVersionDetails

    '   Get Data for an existing entry

    '   Setup for the database access

    Dim sdktag_id : sdktag_id = QStrPar("sdktag_id")

    Dim sdkTagName : sdkTagName = QStrPar("sdkTagName")

    Dim sdkTagComment : sdkTagComment = QStrPar("sdkTagComment")

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

    OraDatabase.Parameters.Add "SDKTAG_NAME",      sdkTagName, ORAPARM_INPUT, ORATYPE_VARCHAR2

    OraDatabase.Parameters.Add "DESCRIPTION",      sdkTagComment, ORAPARM_INPUT, ORATYPE_VARCHAR2

    '   Update an existing entry

    SqlQry = "UPDATE SDK_TAGS SET SDKTAG_NAME = :SDKTAG_NAME, DESCRIPTION = :DESCRIPTION WHERE SDKTAG_ID = :SDKTAG_ID"

    objEH.ErrorRedirect = FALSE

    objEH.TryORA ( OraSession )

    On Error Resume Next

    OraDatabase.ExecuteSQL SqlQry

    objEH.CatchORA ( OraSession )

    On Error GoTo 0

    result = 0

    OraDatabase.Parameters.Remove "DESCRIPTION"

    OraDatabase.Parameters.Remove "SDKTAG_NAME"

    OraDatabase.Parameters.Remove "SDKTAG_ID"

End Sub

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