pears.NetOwnerFavouritesRemove

CREATE PROCEDURE "pears"."NetOwnerFavouritesRemove"( IN "pWebUserID" CHAR(20),IN "pID" CHAR(20) ) 
RESULT( "pResult" CHAR(255) ) 
BEGIN
  IF "IQXNetHasPermission"("pWebUserID",'FAVOURITES') = 0 OR NOT "userStaffID" = (SELECT "staffID" FROM "favourites" WHERE "FavouritesID" = "pID") THEN
    SELECT '99:~Permission denied';
    RETURN
  END IF;
  IF(SELECT "count"() FROM "favourites" WHERE "parent" = "pID") > 0 THEN
    SELECT '105:~Favourite has children';
    RETURN
  END IF;
  DELETE FROM "Favourites" WHERE "FavouritesID" = "pID";
  SELECT '0:~Success'
END /* DOC
 
2019-07-09  Created procedure to delete from favourites.  Only allows deletion if favourite is owned by consultant and it does not have any children.
 
*/
GO
 
COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerFavouritesRemove" IS 
{CREATE PROCEDURE pears."NetOwnerFavouritesRemove"( IN pWebUserID CHAR(20), IN pID CHAR(20) )
RESULT(pResult CHAR(255) )
BEGIN
    IF IQXNetHasPermission(pWebUserID,'FAVOURITES') = 0 OR NOT userStaffID = (SELECT staffID FROM favourites WHERE FavouritesID = pID ) THEN
        SELECT '99:~Permission denied';
        RETURN;
    END IF;
 
    IF (SELECT COUNT(*) FROM favourites WHERE parent = pID) > 0 THEN
        SELECT '105:~Favourite has children';
        RETURN;
    END IF;
 
    DELETE FROM Favourites WHERE FavouritesID=pID;
    SELECT '0:~Success';
END
 
/* DOC
 
2019-07-09  Created procedure to delete from favourites.  Only allows deletion if favourite is owned by consultant and it does not have any children.
 
*/
}