-- Contact Group Notifications
--
-- @author Matthew Geddert (openacs@geddert.com)
-- @creation-date 2007-06-25
-- @cvs-id $Id: groups-notifications-init.sql,v 1.1 2007/06/27 23:55:36 matthewg Exp $
--

create function inline_0() returns integer as '
declare
        impl_id integer;
        v_foo   integer;
begin
        -- the notification type impl
        impl_id := acs_sc_impl__new (
                      ''NotificationType'',
                      ''contacts_group_notif_type'',
                      ''contacts''
        );

        v_foo := acs_sc_impl_alias__new (
                    ''NotificationType'',
                    ''contacts_group_notif_type'',
                    ''GetURL'',
                    ''contacts::group::notification::get_url'',
                    ''TCL''
        );

        v_foo := acs_sc_impl_alias__new (
                    ''NotificationType'',
                    ''contacts_group_notif_type'',
                    ''ProcessReply'',
                    ''contacts::group::notification::process_reply'',
                    ''TCL''
        );

        PERFORM acs_sc_binding__new (
                    ''NotificationType'',
                    ''contacts_group_notif_type''
        );

        v_foo:= notification_type__new (
	        NULL,
                impl_id,
                ''contacts_group_notif'',
                ''Group Notification'',
                ''Notifications for Groups'',
		now(),
                NULL,
                NULL,
		NULL
        );

        -- enable the various intervals and delivery methods
        insert into notification_types_intervals
        (type_id, interval_id)
        select v_foo, interval_id
        from notification_intervals where name in (''instant'',''hourly'',''daily'');

        insert into notification_types_del_methods
        (type_id, delivery_method_id)
        select v_foo, delivery_method_id
        from notification_delivery_methods where short_name in (''email'');

	return (0);
end;
' language 'plpgsql';

select inline_0();
drop function inline_0();