====== pears.NetOwnerSettingsSaveRightsDefault ======
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
===== Original 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
}