pears.NetOwnerFavouritesAdd

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.
 
*/
}