====== pears.NetOwnerSettingsSaveRightsAllowed ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
create procedure "pears"."NetOwnerSettingsSaveRightsAllowed"( in "pWebUserID" char(20),in "rightAllowed" integer,in "rightID" char(50),in "userClass" char(50),in "OnWeb" integer ) 
result( "pResult" char(255) ) 
begin
  declare "allowConsultantsToEdit" integer;
  set "allowConsultantsToEdit" = "OnWeb";
  if "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 then
    select '99:~Permission denied'
  else
    if "allowConsultantsToEdit" = 0 then
      set "allowConsultantsToEdit" = null
    end if;
    delete from "IQXNetRightAllowed" where "IQXNetRightID" = "rightID" and "IQXNetUserClassID" = "userClass";
    if "rightAllowed" = 1 then
      insert into "IQXNetRightAllowed" values
        ( "rightID","userClass",'*',"allowConsultantsToEdit" ) 
    end if;
    select '0:~Success'
  end if
end
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSettingsSaveRightsAllowed" IS 
{create PROCEDURE pears."NetOwnerSettingsSaveRightsAllowed"( in "pWebUserID" char(20), in "rightAllowed" integer, in "rightID" char(50), in "userClass" char(50), in "OnWeb" integer) 
result(pResult char(255) )
BEGIN
    declare allowConsultantsToEdit integer;
    set allowConsultantsToEdit = OnWeb;
    if "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 then
        select '99:~Permission denied';
    else
        if allowConsultantsToEdit = 0 then
            set allowConsultantsToEdit = null;
        end if;
	    delete from IQXNetRightAllowed where IQXNetRightID = rightID and IQXNetUserClassID = userClass;
        if rightAllowed = 1 then
            INSERT INTO IQXNetRightAllowed
            VALUES (rightID, userClass, '*', allowConsultantsToEdit)
        end if;
        select '0:~Success';
    end if;
END
}
</code>