pears.NetOwnerSettingsGetRight

CREATE PROCEDURE "pears"."NetOwnerSettingsGetRight"( IN "pWebUserID" CHAR(20) ) 
RESULT( "rightID" CHAR(255),"description" long VARCHAR ) 
// IQXWeb
BEGIN
  IF NOT "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
    SELECT "IQXNetRightID" AS "rightID","Description" AS "description" FROM "IQXNetRight"
      ORDER BY "SortOrder" ASC
  ELSE
    SELECT '99:~Permission denied',''
  END IF
END
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerSettingsGetRight" IS 
{CREATE PROCEDURE pears."NetOwnerSettingsGetRight"( IN "pWebUserID" CHAR(20)) 
RESULT( "rightID" CHAR(255),"description" long VARCHAR ) 
// IQXWeb
BEGIN
    IF NOT "IQXNetHasPermission"("pWebUserID",'APIDESIGN') = 0 THEN
        SELECT IQXNetRightID AS rightID, Description AS description FROM IQXNetRight
        ORDER BY SortOrder
    ELSE
        SELECT '99:~Permission denied', '';
    END IF;
END
}