Index: openacs-4/packages/forums/sql/postgresql/forums-notifications-init.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/forums/sql/postgresql/forums-notifications-init.sql,v diff -u -N --- openacs-4/packages/forums/sql/postgresql/forums-notifications-init.sql 12 Aug 2013 09:34:30 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,134 +0,0 @@ - --- --- The Forums Package --- --- @author gwong@orchardlabs.com,ben@openforce.biz --- @creation-date 2002-05-16 --- --- This code is newly concocted by Ben, but with significant concepts and code --- lifted from Gilbert's UBB forums. Thanks Orchard Labs. --- - --- the integration with Notifications - - - --- --- procedure inline_0/0 --- -CREATE OR REPLACE 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', - 'forums_forum_notif_type', - 'forums' - ); - - v_foo := acs_sc_impl_alias__new ( - 'NotificationType', - 'forums_forum_notif_type', - 'GetURL', - 'forum::notification::get_url', - 'TCL' - ); - - v_foo := acs_sc_impl_alias__new ( - 'NotificationType', - 'forums_forum_notif_type', - 'ProcessReply', - 'forum::notification::process_reply', - 'TCL' - ); - - PERFORM acs_sc_binding__new ( - 'NotificationType', - 'forums_forum_notif_type' - ); - - v_foo:= notification_type__new ( - NULL, - impl_id, - 'forums_forum_notif', - 'Forum Notification', - 'Notifications for Entire Forums', - 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'); - - -- the notification type impl - impl_id := acs_sc_impl__new ( - 'NotificationType', - 'forums_message_notif_type', - 'forums' - ); - - v_foo := acs_sc_impl_alias__new ( - 'NotificationType', - 'forums_message_notif_type', - 'GetURL', - 'forum::notification::get_url', - 'TCL' - ); - - v_foo := acs_sc_impl_alias__new ( - 'NotificationType', - 'forums_message_notif_type', - 'ProcessReply', - 'forum::notification::process_reply', - 'TCL' - ); - - PERFORM acs_sc_binding__new ( - 'NotificationType', - 'forums_message_notif_type' - ); - - v_foo:= notification_type__new ( - NULL, - impl_id, - 'forums_message_notif', - 'Message Notification', - 'Notifications for Message Thread', - 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(); \ No newline at end of file