pears.NetOwnerSettingsSaveRightsAssigned

CREATE PROCEDURE "pears"."NetOwnerSettingsSaveRightsAssigned"( IN "pWebUserID" CHAR(20),IN "rightID" CHAR(50),IN "userID" CHAR(20),IN "newValue" INTEGER ) 
RESULT( "pResult" CHAR(255) ) 
BEGIN
  IF "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
    SELECT '99:~Permission denied'
  ELSE
    DELETE FROM "IQXNetRightAssigned" WHERE "IQXNetUserID" = "userID" AND "IQXNetRightID" = "rightID";
    IF NOT "newValue" = 0 THEN
      INSERT INTO "IQXNetRightAssigned" VALUES
        ( "userID","rightID","newValue" ) 
    END IF;
    SELECT '0:~Success'
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSettingsSaveRightsAssigned" IS 
{CREATE PROCEDURE pears."NetOwnerSettingsSaveRightsAssigned"( IN "pWebUserID" CHAR(20), IN "rightID" CHAR(50), IN "userID" CHAR(20), IN "newValue" INTEGER) 
RESULT(pResult CHAR(255) )
BEGIN
    IF "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
        SELECT '99:~Permission denied';
    ELSE
        DELETE FROM IQXNetRightAssigned WHERE IQXNetUserID = userID AND IQXNetRightID = rightID;
        IF NOT "newValue" = 0 THEN
            INSERT INTO IQXNetRightAssigned
            VALUES(userID, rightID, newValue)
        END IF;
        SELECT '0:~Success';
    END IF;
END
}