Subversion Repositories DevTools

ElseIf (parOpr = "addAutoBuildNotification" ) Then

    If canModify() Then addAutoBuildNotification

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

' Function:    addAutoBuildNotification

' Description: Add users to an autobuild notification

'              user_id      - Comma sep list of users

'              base_view_id - Base view to which users are added

'              proj_id      - Project ID

Sub addAutoBuildNotification

    Dim  parViewId : parViewId = QStrPar("base_view_id")

    Dim  parUserId : parUserId = QStrPar("user_id")

    Dim  parProjId : parProjId = QStrPar("proj_id")

    If parViewId <> "" AND parUserId<> "" AND parProjId <> "" Then

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        'On Error Resume Next

        OraDatabase.Parameters.Add "USER_ID_LIST", 		parUserId,      ORAPARM_INPUT, ORATYPE_VARCHAR2

	    OraDatabase.Parameters.Add "PROJ_ID", 			parProjId, 		ORAPARM_INPUT, ORATYPE_NUMBER

	    OraDatabase.Parameters.Add "VIEW_ID", 			parViewId, 		ORAPARM_INPUT, ORATYPE_NUMBER

        OraDatabase.ExecuteSQL "BEGIN ADD_AUTOBUILD_FAILURE_INFO ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST ); END;"

        OraDatabase.Parameters.Remove "USER_ID_LIST"

        OraDatabase.Parameters.Remove "PROJ_ID"

        OraDatabase.Parameters.Remove "VIEW_ID"

        objEH.CatchORA ( OraSession )

        result = 0

    Else

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

        oJSON.data("emsgDetails") = "Insufficient arguments"

    End If

End Sub