pears.CollectionDeleteAllowed

COMMENT TO PRESERVE FORMAT ON PROCEDURE "pears"."CollectionDeleteAllowed" IS 
{CREATE FUNCTION CollectionDeleteAllowed 
 
/* Application Maintained Function / Procedure - DO NOT EDIT*/
 
(pCollectionid CHAR(20))
RETURNS long VARCHAR
BEGIN
    DECLARE rv long VARCHAR;
    DECLARE collectioncount INTEGER;
    SET rv='';
    IF NOT EXISTS(SELECT * FROM collection WHERE collectionid = pCollectionid) THEN
       RETURN "string"('Collection not found');
    END IF;
    SELECT COUNT(*) INTO collectioncount FROM collection WHERE parent = pCollectionid;
    IF collectioncount>0 THEN
      SET rv =  string('Collection has ',collectioncount,' children');
    END IF;
    SELECT COUNT(*) INTO collectioncount FROM collectionchat  WHERE collectionid = pcollectionid;
    IF collectioncount>0 THEN
      SET rv =  TRIM( string( rv , CHAR(13), CHAR(10), 'Collection has ',collectioncount,' messages'));
    END IF;
    RETURN rv;
END
}