Subversion Repositories DevTools

ElseIf (parOpr = "RemoveUserFromProject") Then

    If canModify() Then RemoveUserFromProject

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

' Function:    RemoveUserFromProject

' Description: Remove the named user from the specified project

'              pkg_id   - Package to process

'              user_id  - User to Remove

'              proj_id  - Project to remove the user from

Sub RemoveUserFromProject

    Dim  parPkgId : parPkgId = QStrPar("pkg_id")

    Dim  parUserId : parUserId = QStrPar("user_id")

    Dim  parProjId : parProjId = QStrPar("proj_id")

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

        objEH.ErrorRedirect = FALSE

        objEH.TryORA ( OraSession )

        'On Error Resume Next

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

        OraDatabase.Parameters.Add "PKG_ID",	parPkgId, 	ORAPARM_INPUT, ORATYPE_NUMBER

        OraDatabase.Parameters.Add "USER_ID", 	parUserId,  ORAPARM_INPUT, ORATYPE_NUMBER

        OraDatabase.ExecuteSQL "BEGIN REMOVE_PACKAGE_INTEREST ( :PROJ_ID, :PKG_ID, :USER_ID ); END;"

        OraDatabase.Parameters.Remove "PROJ_ID"

        OraDatabase.Parameters.Remove "PKG_ID"

        OraDatabase.Parameters.Remove "USER_ID"

        objEH.CatchORA ( OraSession )

        result = 0

    Else

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

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

    End If

End Sub