pears.NetOwnerSettingsSaveRightsAllowed

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
}