pears.NetOwnerFavouritesRemove [iqx]

This page is read only. You can view the source, but not change it. Ask your administrator if you think this is wrong.
====== pears.NetOwnerFavouritesRemove ======
<WRAP center round info>
Generated schema reference. Regenerate this page from the SQL unload; keep hand-maintained business notes in the narrative namespace.
</WRAP>

===== Original SQL =====
<code sql>
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.

*/
}
</code>