pears.NetOwnerSettingsGetRightAllowed

CREATE PROCEDURE "pears"."NetOwnerSettingsGetRightAllowed"( IN "pWebUserID" CHAR(20) ) 
RESULT( "rightID" CHAR(255),"userClass" CHAR(255),"MaintainOnWeb" CHAR(1) ) 
BEGIN
  IF NOT "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
    SELECT "IQXNetRightID" AS "rightID","IQXNetUserClassID" AS "userClass","MaintainOnWeb" FROM "IQXNetRightAllowed"
  ELSE
    SELECT '99:~Permission denied','',''
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSettingsGetRightAllowed" IS 
{CREATE PROCEDURE pears."NetOwnerSettingsGetRightAllowed"( IN "pWebUserID" CHAR(20)) 
RESULT( "rightID" CHAR(255), "userClass" CHAR(255), "MaintainOnWeb" CHAR(1)) 
BEGIN
    IF NOT "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
        SELECT IQXNetRightID AS rightID, IQXNetUserClassID AS userClass, MaintainOnWeb FROM IQXNetRightAllowed
    ELSE
        SELECT '99:~Permission denied', '', '';
    END IF;
END
}