pears.NetOwnerSettingsSaveRightsDefault [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.NetOwnerSettingsSaveRightsDefault ======
<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"."NetOwnerSettingsSaveRightsDefault"( in "pWebUserID" char(20),in "assignByDefault" integer,in "rightID" char(50),in "userClass" char(50) ) 
result( "pResult" char(255) ) 
begin
  if "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 then
    select '99:~Permission denied'
  else
    delete from "IQXNetRightDefault" where "IQXNetRightID" = "rightID" and "IQXNetUserClassID" = "userClass";
    if "assignByDefault" = 1 then
      insert into "IQXNetRightDefault" values
        ( "rightID","userClass",'*' ) 
    end if;
    select '0:~Success'
  end if
end
go

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