pears.NetOwnerSettingsSaveRightsDefault

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
}