USP_DATAFORMTEMPLATE_EDIT_DATALIST_PERMISSIONS

CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_DATALIST_PERMISSIONS(
    @ID uniqueidentifier,
    @CHANGEAGENTID uniqueidentifier = null,    
    @SYSTEMROLELIST xml

) AS

set nocount on;

declare @contextCache varbinary(128);

if @CHANGEAGENTID is null  
    exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;


declare @CURRENTDATE datetime;
set @CURRENTDATE=getdate();

    /* cache current context information */
    set @contextCache = CONTEXT_INFO();

    /* set CONTEXT_INFO to @CHANGEAGENTID */
    if not @CHANGEAGENTID is null
        set CONTEXT_INFO @CHANGEAGENTID


BEGIN TRY

    -- build a temporary table containing the values from the XML, excluding ones where permission is None

    declare @TempTbl table (ID uniqueidentifier, SYSTEMROLEID uniqueidentifier, GRANTORDENY bit)
    insert into @TempTbl 
        select ID, SYSTEMROLEID, GRANTORDENY
        from dbo.UFN_DATALIST_GETSYSTEMROLEPERMISSIONSLIST_FROMITEMLISTXML(@SYSTEMROLELIST)
        where (GRANTORDENY = 0) or (GRANTORDENY = 1)

    -- rebuild the system role list

    set @SYSTEMROLELIST = 
        (select ID, SYSTEMROLEID, GRANTORDENY
         from @TempTbl
         for xml raw('ITEM'), type, elements, root('SYSTEMROLELIST'), BINARY BASE64)

    if @SYSTEMROLELIST is null
        delete from dbo.SYSTEMROLEPERM_DATALIST where DATALISTCATALOGID = @ID
    else
        exec dbo.USP_DATALIST_GETSYSTEMROLEPERMISSIONSLIST_UPDATEFROMXML @ID, @SYSTEMROLELIST, @CHANGEAGENTID;

    /* reset CONTEXT_INFO to previous value */
    if not @contextCache is null
        set CONTEXT_INFO @contextCache

    return 0;

END TRY
BEGIN CATCH
    exec dbo.USP_RAISE_ERROR;
    return 1;
END CATCH