pears.NetOwnerFavouritesAdd [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.NetOwnerFavouritesAdd ======
<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"."NetOwnerFavouritesAdd"( in "pWebUserID" char(20),in "pObjectID" char(20),in "pType" char(10),in "pName" char(60) default null,in "pParentID" char(20) default null ) 
result( "pResult" char(255) ) 
begin
  declare "favouriteType" char(1);
  if "IQXNetHasPermission"("pWebUserID",'FAVOURITES') = 0 then
    select '99:~Permission denied';
    return
  end if;
  case "LOWER"("pType")
  when 'heading' then
    set "favouriteType" = 'H'
  when 'company' then
    set "favouriteType" = 'C'
  when 'contact' then
    set "favouriteType" = 'E'
  when 'person' then
    set "favouriteType" = 'P'
  when 'vacancy' then
    set "favouriteType" = 'V'
  when 'placement' then
    set "favouriteType" = 'L'
  else
    select '90:~Unknown favourite type';
    return
  end case;
  insert into "Favourites"( "FavouritesID","Parent","ID","staffID","Description","Type" ) values
    ( "uniquekey"('x'),"nullif"("pParentID",''),"nullif"("pObjectID",''),"userStaffID","nullif"("pName",''),"favouriteType" ) ;
  select '0:~Success'
end /* DOC

2019-07-09 ET created procedure to add items to favourites.

*/
go

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."NetOwnerFavouritesAdd" IS 
{create PROCEDURE pears."NetOwnerFavouritesAdd"( in pWebUserID char(20), in pObjectID char(20), in pType char(10), in pName char(60) default null, in pParentID char(20) default null )
result(pResult char(255) )
BEGIN
    DECLARE favouriteType char(1);

    if IQXNetHasPermission(pWebUserID,'FAVOURITES') = 0 then
        select '99:~Permission denied';
        return;
    end if;

    CASE LOWER(pType)
        WHEN 'heading' THEN
            SET favouriteType = 'H'
        WHEN 'company' THEN
            SET favouriteType = 'C'
        WHEN 'contact' THEN
            SET favouriteType = 'E'
        WHEN 'person' THEN
            SET favouriteType = 'P'
        WHEN 'vacancy' THEN
            SET favouriteType = 'V'
        WHEN 'placement' THEN
            SET favouriteType = 'L'
        ELSE
            SELECT '90:~Unknown favourite type';
            RETURN;
    END CASE;

    insert into Favourites (FavouritesID, Parent, ID, staffID, Description, Type) 
    values (uniquekey('x'), nullif(pParentID, ''), nullif(pObjectID, ''), userStaffID, nullif(pName,''), favouriteType);

    select '0:~Success';
END

/* DOC

2019-07-09 ET created procedure to add items to favourites.

*/
}
</code>